[stumpwm] streamline creating and renaming of groups

2021-11-18 18:39:51 +01:00 · 2021-11-18 18:39:51 +01:00 · cd3af2fe9f
parent 3d3e001a88
commit cd3af2fe9f
1 changed files with 7 additions and 6 deletions
--- a/stumpwm/stumpwmrc
+++ b/stumpwm/stumpwmrc
@ -22,12 +22,13 @@
 (set-module-dir "~/.stumpwm.d/modules")

 ;; creating or rename groups
-(setf (group-name (first (screen-groups (current-screen)))) "web")
-(gnewbg "emacs")
-(gnewbg "work")
-(gnewbg "misc")
-(gnewbg "music")
-(gnewbg "winkel")
+(when *initializing*
+  (grename "web")
+  (gnewbg "emacs")
+  (gnewbg "work")
+  (gnewbg "misc")
+  (gnewbg "music")
+  (gnewbg "winkel"))

 ;; border width
 (setf *maxsize-border-width* 3)