[Sawfish] Force add window as tab patch

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

We can only add a window as tab if '_NET_WM_WINDOW_TYPE is
'_NET_WM_WINDOW_TYPE_NORMAL. But not all windows having
'_NET_WM_WINDOW_TYPE like Eterm, aterm ...

With this patch you can force to set a window as tab also is
'_NET_WM_WINDOW_TYPE nil or not equal '_NET_WM_WINDOW_TYPE_NORMAL

-- 
Regards,
Fuchur

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

Attachment: Bildschirmfoto-Fenster-Regel-Eigenschaften.png
Description: PNG image

diff -urNad lisp.orgi/sawfish/wm/ext/match-window.jl lisp/sawfish/wm/ext/match-window.jl
--- lisp.orgi/sawfish/wm/ext/match-window.jl	2012-11-10 19:00:52.000000000 +0100
+++ lisp/sawfish/wm/ext/match-window.jl	2012-11-10 19:18:22.000000000 +0100
@@ -112,6 +112,7 @@
             (group ,(lambda ()
                       `(symbol ,@(delete-if-not symbolp (window-group-ids)))))
             (tab-group string)
+            (force-tab boolean)
             (ungrouped boolean)
             (cycle-skip boolean)
             (window-list-skip boolean)
diff -urNad lisp.orgi/sawfish/wm/tabs/tabgroup.jl lisp/sawfish/wm/tabs/tabgroup.jl
--- lisp.orgi/sawfish/wm/tabs/tabgroup.jl	2012-11-10 19:00:53.000000000 +0100
+++ lisp/sawfish/wm/tabs/tabgroup.jl	2012-11-10 19:15:27.000000000 +0100
@@ -74,8 +74,9 @@
     (eq (window-get w 'current-frame-style) tab-theme-name))
   
   (define (net-wm-window-type-normal-p w)
-    (if (get-x-property w '_NET_WM_WINDOW_TYPE)
-        (equal (aref (nth 2 (get-x-property w '_NET_WM_WINDOW_TYPE)) 0) '_NET_WM_WINDOW_TYPE_NORMAL)))
+    (or (window-get w 'force-tab)
+        (if (get-x-property w '_NET_WM_WINDOW_TYPE)
+            (equal (aref (nth 2 (get-x-property w '_NET_WM_WINDOW_TYPE)) 0) '_NET_WM_WINDOW_TYPE_NORMAL))))
 
   (define-record-type :tab-group
     (tab-build-group p d wl)

Attachment: signature.asc
Description: PGP signature