Re: [Sawfish] Patch to save memory and speed up StyleTab

[fuchur <flohtransporter@xxxxxxxxx>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hi,

On Sun, 20 Apr 2014 08:43:42 +0200
wrote Christopher Roy Bratusek <nano@xxxxxxxxxxx>:

>looks good, I'm gonna test a bit more before commiting.
>
>I found the cause for the errors when closing a tabbed window: it
>happens when you tab two instances of the same application. Tab two
>instances of SawfishConfig, close one = error. Must be because WM_*
>stuff is identical to both.
>
>Regards,
>Chris

Can't reproduces this. Testet with my settings and with a empty
~/.sawfish. If you want that i do more test send me your
~/.sawfish/custom and ~/.sawfish/sawfishrc

Also add a patch (09-tab-tiler-add.patch) by this mail.

Changes:
Disable raise-windows-on-focus by tabs if it not set in sawfish-config. 

- -- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.22 (GNU/Linux)

iEYEARECAAYFAlNTrYgACgkQ5bxw1bjXsrBLfACaA42BfmMCK6LmDMVdr2vtKvzY
Ys4AoJUmUoh+lXpHo85vRWXtulmjQTpY
=MQCo
-----END PGP SIGNATURE-----

diff -urNad lisp.orgi/sawfish/wm/tabs/tabgroup.jl lisp/sawfish/wm/tabs/tabgroup.jl
--- lisp.orgi/sawfish/wm/tabs/tabgroup.jl
+++ lisp/sawfish/wm/tabs/tabgroup.jl
@@ -607,11 +607,11 @@
                  (nth 1 (frame-style-tabbars-support win)))))
           (case current-pos
                 ((top) (warp-cursor (+ (car (window-position win)) start-right (nth 4 tab-pos-list) (quotient (nth 6 tab-pos-list) 2))
-                                    (+ (quotient (- (cdr (window-frame-dimensions win)) (cdr (window-dimensions win)) 2) 2) (cdr (window-position win)))))
+                                    (+ (quotient (- (cdr (window-frame-dimensions win)) (cdr (window-dimensions win)) 4) 2) (cdr (window-position win)))))
                 ((bottom) (warp-cursor (+ (car (window-position win)) start-right (nth 4 tab-pos-list) (quotient (nth 6 tab-pos-list) 2))
                                        (+ (quotient (- (cdr (window-frame-dimensions win)) (cdr (window-dimensions win))) 2) 
-                                          (cdr (window-position win)) (cdr (window-dimensions win)) 2)))
-                ((left) (warp-cursor (+ (quotient (- (car (window-frame-dimensions win)) (car (window-dimensions win)) 2) 2) (car (window-position win)))
+                                          (cdr (window-position win)) (cdr (window-dimensions win)))))
+                ((left) (warp-cursor (+ (quotient (- (car (window-frame-dimensions win)) (car (window-dimensions win)) 4) 2) (car (window-position win)))
                                      (- (+ (cdr (window-position win)) (cdr (window-dimensions win))) start-right (nth 7 tab-pos-list) 
                                         (quotient (nth 9 tab-pos-list) 2))))
                 ((right) (warp-cursor (+ (quotient (- (car (window-frame-dimensions win)) (car (window-dimensions win))) 2) 
@@ -645,7 +645,7 @@
 
   (define timer-raise nil)
   (define (focus-in-tab win)
-    (let ((timer-wait (if raise-windows-on-focus raise-window-timeout '500)))
+    (let ((timer-wait (if raise-windows-on-focus raise-window-timeout '1)))
       (if (or (eq focus-mode 'click)
               (eq (window-get win 'focus-mode) 'click))
           (setq timer-wait '1))