[STUMP] minor netwm patch

[Rupert Swarbrick]

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

pgpyp15V4hI8S.pgp
Description: PGP signature