[Sawfish] Re: Add new window as tab patch

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

On Wed, 28 Mar 2012 23:54:32 +0200
wrote fuchur <flohtransporter@xxxxxxxxx>:

>Hi,
>
>On Tue, 27 Mar 2012 18:51:16 +0200
>wrote fuchur <flohtransporter@xxxxxxxxx>:
>
>>>Hi,
>>>
>>>On Mon, 26 Mar 2012 04:01:26 +0200
>>>wrote fuchur <flohtransporter@xxxxxxxxx>:
>>>  
>>>>Hi,
>>>>
>>>>Here is a patch to add a new window as tab if have one (the first
>>>>created if more as one) of the windows the same 'tab-group property".
>>>>'tab-group property can set by window-rules and also save in
>>>>window-history. You can choose between 12 tab-groups. If you know how
>>>>to grow Tab groups or "automatically" update (maybe by window-names) in
>>>>window-rules please send a patch. 
>>>>  
>>>
>>>Here is the same patch as above but with some bugfix.
>>>Need more tester/ing.
>>>  
>
>Some Windows not call the unmap-notify-hook e.g. gimp and tabgroup
>will not work. This patch for local-master-branch fix that. 
>

Add support if the new window/tab and the tab-group not at the same
workspace. Apply the patch after the patch above.

-- 
Regards,
Fuchur

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

--- sawfish/lisp/sawfish/wm/tabs/tabgroup.jl.orgi	2012-03-30 19:56:27.000000000 +0200
+++ sawfish/lisp/sawfish/wm/tabs/tabgroup.jl	2012-03-30 19:56:58.000000000 +0200
@@ -269,6 +269,8 @@
              (group-frame-maximized-horizontally (window-get win 'maximized-horizontally))
              (group-frame-maximized-fullscreen (window-get win 'maximized-fullscreen))
              (group-frame-unmaximized-type (window-get win 'unmaximized-type))
+             (group-frame-to-workspaces (car (window-workspaces win)))
+             (group-frame-from-workspaces (car (window-workspaces w)))
              (group-frame-unmaximized-geometry (window-get win 'unmaximized-geometry)))
         (when (not (eq index index2))
           ;; tabgroup to tabgroup
@@ -304,6 +306,9 @@
           (tab-delete-window-from-group w index2)
           (resize-window-to w (car dim) (cdr dim))
           (move-window-to w (car pos) (cdr pos))
+          (when (and group-frame-to-workspaces group-frame-from-workspaces
+                     (not (eq group-frame-to-workspaces group-frame-from-workspaces)))
+            (move-window-to-workspace w group-frame-from-workspaces group-frame-to-workspaces))
           (setq tab-refresh-lock t)
           (tab-refresh-group w 'frame)
           (set-input-focus w)

Attachment: signature.asc
Description: PGP signature