Implement `quit' action keyword

features/actions/quit.feature

@@ -0,0 +1,9 @@
+Feature: `quit' action keyword
+
+  Scenario: requests quit when invoked
+    Given uhwm is running with this run control file:
+      """
+      key(:f) { quit }
+      """
+    When I press the alt+f keys
+    Then uhwm must terminate successfully

lib/uh/wm.rb

@@ -3,6 +3,7 @@ require 'logger'
 require 'optparse'
 require 'uh'
 
+require 'uh/wm/actions_handler'
 require 'uh/wm/cli'
 require 'uh/wm/dispatcher'
 require 'uh/wm/env'

lib/uh/wm/actions_handler.rb

@@ -0,0 +1,17 @@
+module Uh
+  module WM
+    class ActionsHandler
+      def initialize env, events
+        @env, @events = env, events
+      end
+
+      def evaluate code
+        instance_eval &code
+      end
+
+      def quit
+        @events.emit :quit
+      end
+    end
+  end
+end

lib/uh/wm/env.rb

@@ -19,7 +19,9 @@ module Uh
       def initialize output
         @output   = output
         @rc_path  = RC_PATH
-        @keybinds = {}
+        @keybinds = {
+          q: proc { quit }
+        }
       end
 
       def verbose?

lib/uh/wm/runner.rb

@@ -14,12 +14,13 @@ module Uh
       extend Forwardable
       def_delegator :@env, :layout
 
-      attr_reader :env, :events, :manager
+      attr_reader :env, :events, :manager, :actions
 
       def initialize env, manager: nil, stopped: false
         @env      = env
         @events   = Dispatcher.new
         @manager  = manager || Manager.new(@events)
+        @actions  = ActionsHandler.new(@env, @events)
         @stopped  = stopped
       end
 
@@ -36,6 +37,7 @@ module Uh
       end
 
       def register_event_hooks
+        register_runner_hooks
         register_manager_hooks
         register_layout_event_hooks
         register_key_bindings_hooks
@@ -43,7 +45,6 @@ module Uh
 
       def connect_manager
         @manager.connect
-        @manager.grab_key :q
         @env.keybinds.each do |keysym, _|
           @manager.grab_key *keysym
         end
@@ -56,6 +57,10 @@ module Uh
 
       private
 
+      def register_runner_hooks
+        @events.on(:quit) { stop! }
+      end
+
       def register_manager_hooks
         @events.on(:connecting) do |display|
           @env.log_debug "Connecting to X server on `#{display}'"
@@ -72,9 +77,10 @@ module Uh
       end
 
       def register_key_bindings_hooks
-        @events.on(:key, :q) { stop! }
         @env.keybinds.each do |keysym, code|
-          @events.on :key, *keysym, &code
+          @events.on :key, *keysym do
+            @actions.evaluate code
+          end
         end
       end
     end

spec/uh/wm/actions_handler_spec.rb

@@ -0,0 +1,23 @@
+module Uh
+  module WM
+    RSpec.describe ActionsHandler do
+      let(:env)         { Env.new(StringIO.new) }
+      let(:events)      { Dispatcher.new }
+      subject(:actions) { described_class.new env, events }
+
+      describe '#evaluate' do
+        it 'evaluates given code' do
+          expect { actions.evaluate proc { throw :action_code } }
+            .to throw_symbol :action_code
+        end
+      end
+
+      describe '#quit' do
+        it 'emits the quit event' do
+          expect(events).to receive(:emit).with :quit
+          actions.quit
+        end
+      end
+    end
+  end
+end

spec/uh/wm/env_spec.rb

@@ -21,6 +21,10 @@ module Uh
         expect(env.layout_class).not_to be
       end
 
+      it 'has defaults key bindings set' do
+        expect(env.keybinds.keys).to eq %i[q]
+      end
+
       describe '#verbose?' do
         context 'when verbose mode is disabled' do
           before { env.verbose = false }

spec/uh/wm/runner_spec.rb

@@ -63,6 +63,12 @@ module Uh
       end
 
       describe '#register_event_hooks' do
+        it 'registers quit event hook' do
+          runner.register_event_hooks
+          expect(runner).to receive(:stop!)
+          runner.events.emit :quit
+        end
+
         it 'registers manager event hooks for logging' do
           runner.register_event_hooks
           expect(env).to receive(:log)
@@ -86,6 +92,13 @@ module Uh
           runner.register_event_hooks
           expect(runner.events[:key, :f, :shift]).not_to be_empty
         end
+
+        it 'registers key bindings code evaluation with the actions handler' do
+          env.keybinds[:f] = code = proc { }
+          runner.register_event_hooks
+          expect(runner.actions).to receive(:evaluate).with code
+          runner.events.emit :key, :f
+        end
       end
 
       describe '#connect_manager' do