[Sawfish] Uniconify window to orginal workspace patch

[ Thread Index | Date Index | More lists.tuxfamily.org/sawfish Archives ]


Sawfish uniconify windows to the current workspaces. With this patch
you can choose whether uniconify to the current or to the workspace
were the windows was minimized.

Comments welcome.


GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

Attachment: Bildschirmfoto-Sawfish-Einstellungen.png
Description: PNG image

--- sawfish/lisp/sawfish/wm/state/iconify.jl.orgi
+++ sawfish/lisp/sawfish/wm/state/iconify.jl
@@ -83,6 +83,11 @@
     :type (choice none transients group)
     :group min-max)
+  (defcustom uniconify-to-orginal-workspace nil
+    "Unminimizing windows to the workspace where they were minimized."
+    :type boolean
+    :group min-max)
   (defvar iconify-window-hook nil)
   (defvar uniconify-window-hook nil)
@@ -109,6 +114,10 @@
 	     (show-window w))
 	    ((window-in-workspace-p w current-workspace)
 	     (show-window w))
+        ((and (not (window-in-workspace-p w current-workspace)) 
+               uniconify-to-current-workspace uniconify-to-orginal-workspace)
+         (select-workspace (car (window-workspaces w)))
+         (show-window w))
 	     (ws-remove-window w t)
 	     (ws-add-window-to-space w current-workspace)))

Attachment: signature.asc
Description: PGP signature

Mail converted by MHonArc 2.6.19+ http://listengine.tuxfamily.org/