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))))
(extra
(list
"set_monitors 1920x1080+0+0"
"focus_edge left"
"keybind Mod4-apostrophe spawn dunstctl close"
"keybind Mod4-quotedbl spawn dunstctl close-all"
"keybind Mod4-Control-apostrophe spawn dunstctl history-pop"
"keybind Mod4-Mod1-apostrophe spawn dunstctl context"
"spawn pick-random-wallpaper"))))
(mixed-text-file
"autostart"
"set_monitors 1920x1080+0+0\n"
"focus_edge left\n"
"keybind Mod4-apostrophe spawn dunstctl close\n"
"keybind Mod4-quotedbl spawn dunstctl close-all\n"
"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
(home-polybar-configuration

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

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