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

Change herbstluftwm configuration to consist of multiple files

Browse source
This commit is contained in:
Tom Willemse 2023-08-23 11:24:42 -07:00
parent 9ecba4df90
commit b98c93c159
2 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -139,13 +139,15 @@
(dev split horizontal:0.54:1 (clients max:0) (clients vertical:0)))) (dev split horizontal:0.54:1 (clients max:0) (clients vertical:0))))
(extra (extra
(list (list
"set_monitors 1920x1080+0+0" (mixed-text-file
"focus_edge left" "autostart"
"keybind Mod4-apostrophe spawn dunstctl close" "set_monitors 1920x1080+0+0\n"
"keybind Mod4-quotedbl spawn dunstctl close-all" "focus_edge left\n"
"keybind Mod4-Control-apostrophe spawn dunstctl history-pop" "keybind Mod4-apostrophe spawn dunstctl close\n"
"keybind Mod4-Mod1-apostrophe spawn dunstctl context" "keybind Mod4-quotedbl spawn dunstctl close-all\n"
"spawn pick-random-wallpaper")))) "keybind Mod4-Control-apostrophe spawn dunstctl history-pop\n"
"keybind Mod4-Mod1-apostrophe spawn dunstctl context\n"
"spawn pick-random-wallpaper\n")))))
(service home-polybar-service-type (service home-polybar-service-type
(home-polybar-configuration (home-polybar-configuration

7
oni/home/services/herbstluftwm.scm
View file

@ -46,7 +46,7 @@
(alist '()) (alist '())
"Layouts to load for tags") "Layouts to load for tags")
(extra (extra
(list '()) (text-config '())
"Extra commands")) "Extra commands"))
(define (add-herbstluftwm-packages config) (define (add-herbstluftwm-packages config)
@ -105,8 +105,9 @@
(car layout-pair) (car layout-pair)
(cdr layout-pair))) (cdr layout-pair)))
(home-herbstluftwm-configuration-layouts config)) (home-herbstluftwm-configuration-layouts config))
(map (λ (line) (format #f "herbstclient ~a\n" line)) (list (serialize-text-config
(home-herbstluftwm-configuration-extra config)))))) config
(home-herbstluftwm-configuration-extra config)))))))
(define (add-herbstluftwm-executable config) (define (add-herbstluftwm-executable config)
(home-xinit-extension (home-xinit-extension