ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Have rofi extend xbindkeys for keys to bind

Browse source
This commit is contained in:
Tom Willemse 2022-04-20 22:23:27 -07:00
parent 33ef2ba4f1
commit fd82bcabcd
3 changed files with 27 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
oni/home/data/config.scm
View file

@ -280,8 +280,6 @@
((XF86AudioPlay) . "herbstclient spawn mpc toggle")
((XF86AudioNext) . "herbstclient spawn mpc next")
((XF86AudioPrev) . "herbstclient spawn mpc prev")
((mod4 r) . "herbstclient spawn rofi -show run")
((mod4 w) . "herbstclient spawn rofi -show window -window-command \"/home/chelys/usr/bin/hlwm-switch-to-window {window}\"")
((mod4 c)
("1" . "herbstclient move_index 0")
("2" . "herbstclient move_index 1")
@ -354,8 +352,6 @@
(list
"set_monitors 1920x1080+0+0"
"focus_edge left"
"keybind Mod4-r spawn rofi -show run"
"keybind Mod4-w spawn rofi -show window -window-command \"$HOME/usr/bin/hlwm-switch-to-window {window}\""
"keybind Mod4-apostrophe spawn dunstctl close"
"keybind Mod4-quotedbl spawn dunstctl close-all"
"keybind Mod4-Control-apostrophe spawn dunstctl history-pop"

17
oni/home/services/xbindkeys.scm
View file

@ -8,7 +8,8 @@
#:use-module (guix gexp)
#:export (home-xbindkeys-service-type
home-xbindkeys-configuration))
home-xbindkeys-configuration
home-xbindkeys-extension))
(define-configuration home-xbindkeys-configuration
(package
@ -19,6 +20,12 @@
"Keybindings")
(no-serialization))
(define-configuration home-xbindkeys-extension
(keybindings
(alist '())
"Keybindings")
(no-serialization))
(define (serialize-keymap parent keymap)
(string-join
(let* ((prefixes (filter (lambda (pair) (list? (cdr pair))) keymap))
@ -76,6 +83,13 @@
(define (add-xbindkeys-packages config)
(list (home-xbindkeys-configuration-package config)))
(define (home-xbindkeys-extensions original-config extension-configs)
(home-xbindkeys-configuration
(inherit original-config)
(keybindings
(apply append (home-xbindkeys-configuration-keybindings original-config)
(map home-xbindkeys-extension-keybindings extension-configs)))))
(define (home-xbindkeys-shepherd-service config)
(list
(shepherd-service
@ -101,5 +115,6 @@
home-shepherd-service-type
home-xbindkeys-shepherd-service)))
(compose identity)
(extend home-xbindkeys-extensions)
(default-value (home-xbindkeys-configuration))
(description "Install and configure xbindkeys.")))

12
oni/home/services/xdisorg.scm
View file

@ -9,6 +9,7 @@
#:use-module (guix i18n)
#:use-module (guix modules)
#:use-module (guix diagnostics)
#:use-module (oni home services xbindkeys)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
@ -138,6 +139,12 @@
(append-map home-rofi-configuration-theme
extension-configs)))))))
(define (add-rofi-xbindkeys-keybindings config)
(home-xbindkeys-extension
(keybindings
'(((mod4 r) . "herbstclient spawn rofi -show run")
((mod4 w) . "herbstclient spawn rofi -show window -window-command \"/home/chelys/usr/bin/hlwm-switch-to-window {window}\"")))))
(define home-rofi-service-type
(service-type (name 'home-rofi)
(extensions
@ -146,7 +153,10 @@
home-rofi-files-service)
(service-extension
home-profile-service-type
home-rofi-profile-service)))
home-rofi-profile-service)
(service-extension
home-xbindkeys-service-type
add-rofi-xbindkeys-keybindings)))
(compose concatenate)
(extend home-rofi-extension)
(default-value (home-rofi-configuration))