From 1f0cfee5a7b513177aead4d5ee44da34febc532a Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Wed, 20 Apr 2022 16:45:04 -0700 Subject: [PATCH] =?UTF-8?q?Call=20the=20=E2=80=98first-binding=E2=80=99=20?= =?UTF-8?q?function=20for=20xbindkeys?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit All of the top-level key bindings have been put into this one function, so I need to call it to actually enable the keybindings. --- oni/home/services/xbindkeys.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/oni/home/services/xbindkeys.scm b/oni/home/services/xbindkeys.scm index efcf659..0fe2a9c 100644 --- a/oni/home/services/xbindkeys.scm +++ b/oni/home/services/xbindkeys.scm @@ -70,7 +70,8 @@ (map (lambda (key-pair) (format #f " (xbindkey (quote ~s) ~s) \n" (car key-pair) (cdr key-pair))) others) - (list " )\n"))))) + (list " )\n" + "(first-binding)\n"))))) (define (add-xbindkeys-packages config) (list (home-xbindkeys-configuration-package config)))