diff options
Diffstat (limited to 'main.scm')
| -rw-r--r-- | main.scm | 23 |
1 files changed, 3 insertions, 20 deletions
@@ -30,30 +30,13 @@ 0 ; offset-height )) -(define (make-key key) - (list #f (key-from-str key))) - -(define (make-shift-key key) - (list #t (key-from-str key))) - (define wm-keybindings `((,(make-shift-key "q") . ,wm-quit) - (,(make-key "Tab") . ,wm-focus-next))) - -(define (grab-keys keybindings) - (unless (null? keybindings) - (let* ((keybinding (car keybindings)) - (chord (car keybinding)) - (func (cdr keybinding)) - (with-shift (car chord)) - (key (car (cdr chord)))) - (if with-shift - (wm-grab-key-with-mod-shift key) - (wm-grab-key-with-mod key)) - (grab-keys (cdr keybindings))))) + (,(make-key "Tab") . ,wm-focus-prev) + (,(make-shift-key "Tab") . ,wm-focus-next))) (when (wm-init) - (grab-keys wm-keybindings) + (wm-grab-keys wm-keybindings) (wm-set-key-press-handler! (lambda (mod keysym) (display (list mod keysym)) |