From cd3af2fe9f08c54fc62f5fbad5224886b2c4f456 Mon Sep 17 00:00:00 2001
From: Marcel Kapfer <opensource@mmk2410.org>
Date: Thu, 18 Nov 2021 18:39:51 +0100
Subject: [PATCH] [stumpwm] streamline creating and renaming of groups

---
 stumpwm/stumpwmrc | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/stumpwm/stumpwmrc b/stumpwm/stumpwmrc
index a8d0db3..8ff01e9 100644
--- 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)