Register key bindings in the env with RunControl

lib/uh/wm/env.rb

@@ -13,12 +13,13 @@ module Uh
       def_delegator :logger, :debug, :log_debug
       def_delegator :@output, :print
 
-      attr_reader   :output
+      attr_reader   :output, :keybinds
       attr_accessor :verbose, :debug, :rc_path, :layout_class
 
       def initialize output
         @output   = output
         @rc_path  = RC_PATH
+        @keybinds = {}
       end
 
       def verbose?

lib/uh/wm/run_control.rb

@@ -16,6 +16,10 @@ module Uh
       def evaluate code
         instance_eval code
       end
+
+      def key keysym, &block
+        @env.keybinds[keysym] = block
+      end
     end
   end
 end

lib/uh/wm/runner.rb

@@ -44,6 +44,9 @@ module Uh
       def connect_manager
         @manager.connect
         @manager.grab_key :q
+        @env.keybinds.each do |keysym, _|
+          @manager.grab_key *keysym
+        end
       end
 
       def run_until &block
@@ -70,6 +73,9 @@ module Uh
 
       def register_key_bindings_hooks
         @events.on(:key, :q) { stop! }
+        @env.keybinds.each do |keysym, code|
+          @events.on :key, keysym, &code
+        end
       end
     end
   end