diff options
| author |  Tom Willemse | 2023-08-23 11:24:42 -0700 |
|---|---|---|
| committer | Tom Willemse | 2023-08-23 11:24:42 -0700 |
| commit | b98c93c159ac3213442d9581a8ef54244fa814fc (patch) | |
| tree | 6fb361e3a60dcfda2e4b05e5e8c7f4ec53e3bdb8 /oni | |
| parent | 9ecba4df9048370423500149e4793b2c78c38307 (diff) | |
| download | new-dotfiles-b98c93c159ac3213442d9581a8ef54244fa814fc.tar.gz new-dotfiles-b98c93c159ac3213442d9581a8ef54244fa814fc.zip | |
Change herbstluftwm configuration to consist of multiple files
Diffstat (limited to 'oni')
| -rw-r--r-- | oni/home/config/data.scm | 16 | ||||
| -rw-r--r-- | oni/home/services/herbstluftwm.scm | 7 |
2 files changed, 13 insertions, 10 deletions
diff --git a/oni/home/config/data.scm b/oni/home/config/data.scm index f030911..23666f2 100644 --- a/oni/home/config/data.scm +++ b/oni/home/config/data.scm @@ -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 diff --git a/oni/home/services/herbstluftwm.scm b/oni/home/services/herbstluftwm.scm index 306e497..8dfc77c 100644 --- a/oni/home/services/herbstluftwm.scm +++ b/oni/home/services/herbstluftwm.scm @@ -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 |