[stumpwm] streamline creating and renaming of groups

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")
+(when *initializing*
+  (grename "web")
   (gnewbg "emacs")
   (gnewbg "work")
   (gnewbg "misc")
   (gnewbg "music")
-(gnewbg "winkel")
+  (gnewbg "winkel"))
 
 ;; border width
 (setf *maxsize-border-width* 3)