[Sawfish] Uniconify window to orginal workspace patch

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

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.

-- 
Regards,
Fuchur

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))
 	    (uniconify-to-current-workspace
 	     (ws-remove-window w t)
 	     (ws-add-window-to-space w current-workspace)))

Attachment: signature.asc
Description: PGP signature