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

[fuchur <flohtransporter@xxxxxxxxx>]

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

Hi,

On Sun, 4 May 2014 14:47:45 +0200
wrote fuchur <flohtransporter@xxxxxxxxx>:

>Here i have more for testing. I have completes cabinets gui.
>Patches "10-tab-tiler-add.patch 11-tab-tiler-add.patch" apply after all
>other patches from this thread

Patch 12-tab-tiler-add.patch:

Changes:
Improve move window to next/prev workspace.
Splitline length is now dynamic. (Width from cabinet).

Apply patch after all other patches from this thread.

- -- 
Regards,
Fuchur

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

iEYEARECAAYFAlNpCaQACgkQ5bxw1bjXsrAr5wCffe5EL1SZjhlzu9vIMRKQDN/C
A68An1P59Kl3/PkfFrZh+MctxM2q0viY
=3GI+
-----END PGP SIGNATURE-----

diff -urNad sawfish.orgi/lisp/sawfish/wm/ext/cabinet.jl sawfish/lisp/sawfish/wm/ext/cabinet.jl
--- sawfish.orgi/lisp/sawfish/wm/ext/cabinet.jl
+++ sawfish/lisp/sawfish/wm/ext/cabinet.jl
@@ -308,7 +308,7 @@
     "The text part shown on cabinet item"
     ;; if we remove a window we temporary need this if
     (if (not (numberp (window-id w)))
-        "Window is gone" 
+        "Window is gone"
       (concat (when (window-get w 'marked)
                 " »»")
               (when (window-tabbed-p w)
@@ -360,9 +360,15 @@
   (define command-timer nil)
   (define bad-key nil)
   (define focus-by-tab nil)
+  (define split-line-length nil)
 
   ;; item-format package
   (define (cabinet-item-text-format w)
+    (let ((split-length (quotient (length (cabinet-item-text w)) 2)))
+      (if (> split-length split-line-length)
+          (if (> split-length 40)
+              (setq split-line-length (- split-length 5))
+            (setq split-line-length split-length))))
     (cons (cabinet-item-text w)
           (cond
            ((window-iconified-p w) cabinet:iconified-item-forground)
@@ -410,16 +416,21 @@
                             0 nil))
           nil)
          (t (loop (cdr fow-nrl)))))))
-  
+
   (define (cabinet-split-line)
-    (make-item nil
-               (format nil "===================%s========================="
-                       (if workspace-mode
-                           (format nil " %s/%s "
-                                   current-workspace
-                                   (cdr (workspace-limits)))
-                         "ALL"))
-               cabinet:split-line-forground))
+    (let ((lenght '0)
+          line enil mode)
+      (while (< lenght split-line-length) 
+        (setq line (concat line "»")) 
+        (setq enil (concat enil "«")) 
+        (setq lenght (1+ lenght)))
+      (setq mode (if workspace-mode
+                     (format nil "%s/%s"
+                             current-workspace
+                             (cdr (workspace-limits)))
+                   "ALL"))
+      (make-item nil (format nil (concat line mode enil))
+                 cabinet:split-line-forground)))
 
   (define (draw-items wl input-line)
     (when (x-window-p cabinet-window)
@@ -712,15 +723,23 @@
     "Call marked hook if window marked"
     (call-window-hook 'window-state-change-hook cmd (list '(marked))))
 
+  (define (get-last-workspace)
+    (aref (nth 2 (get-x-property 'root '_NET_NUMBER_OF_DESKTOPS)) 0))
+  
   (defvar move-window-to-next-workspace
     (lambda (w)
-      (let ((nw (+ (car (window-get w 'workspaces)) 1)))
-        (send-to-next-workspace w nw))))
-
+      (unless (window-sticky-p w)
+        (let ((nw (+ (car (window-get w 'workspaces)) 1)))
+          (if (< nw (get-last-workspace))
+              (send-window-to-workspace-from-first w nw))))))
+  
   (defvar move-window-to-previous-workspace
     (lambda (w)
-      (let ((nw (- (car (window-get w 'workspaces)) 1)))
-        (send-to-next-workspace w nw))))
+      (unless (window-sticky-p w)
+        (let ((nw (- (car (window-get w 'workspaces)) 1)))
+          (if (> nw '-1)
+              (send-window-to-workspace-from-first w nw))))))
+
 
   (defvar move-window-to-top-left
     (lambda (w)
@@ -891,6 +910,7 @@
                             (quotient cabinet:raise-window-timeout 1000) (mod cabinet:raise-window-timeout 1000))))
         (when (eq cabinet:manipulation-on-selected 'None) 
           (set-input-focus nil)))
+      (setq split-line-length nil)
       (draw-items (append (mapcar cabinet-item-format wlist-for-manipulation)
                           (list (cabinet-split-line))
                           (mapcar cabinet-item-format wlist-for-display))