Add commands to bind/unbind keys in the root keymap

mwitmer · Feb 3, 2014 · 94b7a37 · 94b7a37
1 parent f31cbe0
commit 94b7a37
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/module/guile-wm/module/root-keymap.scm b/module/guile-wm/module/root-keymap.scm
@@ -41,6 +41,12 @@
 
 (define-public root-key (make-procedure-with-setter root-key-ref root-key-set!))
 
+(define-command (bind-root-key! (key #:symbol) (str #:string))
+  (bind-key-command! root-keymap key str))
+
+(define-command (unbind-root-key! (key #:symbol))
+  (unbind-key! root-keymap key))
+
 (define (run-keymap get)
   (define (default d) (message (format #f "Unknown key: ~a" d)))
   (define keymap (keymap-with-default root-keymap default))