Could this patch find its way to upstream? It calls the netwm-set-group-properties function on group kill as well as group create, which is useful if you use gnome-panel and workspace switcher applet (otherwise the applet doesn't know about the deletion).
Rupert
diff --git a/group.lisp b/group.lisp
index 3c86225..26f1a4b 100644
--- a/group.lisp
+++ b/group.lisp
@@ -227,13 +227,6 @@ there exists one."
(list i)
:cardinal 32))))
-(defun kill-group (group to-group)
- (unless (eq group to-group)
- (let ((screen (group-screen group)))
- (merge-groups group to-group)
- (setf (screen-groups screen) (remove group (screen-groups screen)))
- (netwm-update-groups screen))))
-
(defun netwm-set-group-properties (screen)
"Set NETWM properties regarding groups of SCREEN.
Groups are known as \"virtual desktops\" in the NETWM standard."
@@ -257,6 +250,14 @@ Groups are known as \"virtual desktops\" in the NETWM standard."
(apply #'concatenate 'list names))
:UTF8_STRING 8)))
+(defun kill-group (group to-group)
+ (unless (eq group to-group)
+ (let ((screen (group-screen group)))
+ (merge-groups group to-group)
+ (setf (screen-groups screen) (remove group (screen-groups screen)))
+ (netwm-update-groups screen)
+ (netwm-set-group-properties screen))))
+
(defun add-group (screen name &optional (type *default-group-type*))
"Create a new group in SCREEN with the supplied name. group names
starting with a . are considered hidden groups. Hidden groups are
pgpROa2nQ9W1L.pgp
Description: PGP signature
_______________________________________________ Stumpwm-devel mailing list Stumpwm-devel@nongnu.org http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
