[home] Bind keys to functions.

`xbindkeysrc` dotfile file is sourced inside `.bash_profile`.

diff --git a/X11/.config/X11/xbindkeysrc b/X11/.config/X11/xbindkeysrc
new file mode 100644 (file)
index 0000000..31f74e4
--- /dev/null
+++ b/X11/.config/X11/xbindkeysrc
@@ -0,0 +1,14 @@
+# Copyright (c) 2022 Jakub Czajka <jakub@ekhem.eu.org>
+# License: GPL-3.0 or later.
+
+"volume 5%+"
+  XF86AudioRaiseVolume
+
+"volume 5%-"
+  XF86AudioLowerVolume
+
+"sleep 0.5; xtrlock"
+  Mod4 + l
+
+"sleep 0.5; xtrlock & sudo /bin/zzz"
+  Mod4 + s

diff --git a/bash/.bash_profile b/bash/.bash_profile
index c3a5c8124f54cbba3d2d42dee0d8296f29a90662..466810df1a513dc6967875964ddebf3de6c3dad5 100644 (file)
--- a/bash/.bash_profile
+++ b/bash/.bash_profile
@@ -20,4 +20,8 @@ if [ -d ${_confdir}/profile.d/ ]; then
     unset _f
 fi
 
+if [ -f ${_confdir}/X11/xbindkeysrc ]; then
+    xbindkeys --file "${XDG_CONFIG_HOME}/X11/xbindkeysrc"
+fi
+
 unset _confdir

diff --git a/conf/home/bash.scm b/conf/home/bash.scm
index 9efb1c77ed1fcf0c6dfc061b5db4e1da41650443..dfee317f64238cc2438c947af71a1d611406bc75 100644 (file)
--- a/conf/home/bash.scm
+++ b/conf/home/bash.scm
@@ -4,9 +4,11 @@
 ;; bash.scm - custom bash configuration.
 
 (define-module (conf home bash)
+  #:use-module (conf home program)
   #:use-module (conf home symlink)
   #:use-module (gnu home services)
   #:use-module (gnu packages bash)
+  #:use-module (gnu packages xdisorg)
   #:use-module (gnu services configuration)
   #:use-module (guix gexp)
   #:use-module (guix packages)
@@ -58,6 +60,15 @@
                 "bash/.config/profile.d/20-less.sh"
                 "bash/.config/profile.d/50-bash.sh")))
 
+(define xprofile-service
+  (service home-program-service-type
+          (home-program-configuration
+           (packages
+            (list xbindkeys))
+           (dotfiles
+            (list "X11/.config/X11/xbindkeysrc")))))
+
 (define bash-services
   (list bash-service
-       profile-service))
+       profile-service
+       xprofile-service))