From 1f0cfee5a7b513177aead4d5ee44da34febc532a Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 20 Apr 2022 16:45:04 -0700
Subject: Call the ‘first-binding’ function for xbindkeys

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(-)

(limited to 'oni')

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)))
-- 
cgit v1.2.3-54-g00ecf