[PATCH] sawfish-pager (was: [SNAPSHOT] sawfish-pager-0.7rc)

[bojohan+news dd chalmers se (Johan Bockgård)]

Christopher Bratusek <zanghar freenet de> writes:

> Download: http://www.nanolx.org/free/sawfish-pager-0.7rc.tar.bz2
>
> So as you can see Janek added some new functionality, but there's no
> way to disable (or re-enable them), he added two entry points in the
> c-code, but the lisp code for that is still missing.
>
> H 0/1 is for the hatching, X 0/1 is for the x drawn on the current
> viewport.
>
> Is there anyone who wants to add the missing lisp-code? That would be
> great.


--- /home/bojohan/src/sawfish-pager-0.7rc/pager.jl	2009-02-28 13:01:34.000000000 +0100
+++ /home/bojohan/.sawfish/lisp/sawfish/wm/ext/pager.jl	2009-02-28 15:46:42.000000000 +0100
@@ -157,6 +157,18 @@
       :group pager
       :after-set color))
 
+  (defcustom pager-hatch-windows nil
+    "Draw windows using hatching"
+    :type boolean
+    :group pager
+    :after-set (lambda () (send-hatching)))
+
+  (defcustom pager-X-current-viewport nil
+    "Use X to mark current viewport"
+    :type boolean
+    :group pager
+    :after-set (lambda () (send-xmark)))
+
   (defcustom pager-tooltips-enabled t
     "Enable display of window labels"
     :type boolean
@@ -298,6 +310,12 @@
 			pager-color-viewport-divider
 			pager-color-workspace-divider))))
 
+  (define (send-hatching)
+    (send ?H (if pager-hatch-windows 1 0)))
+
+  (define (send-xmark)
+    (send ?X (if pager-X-current-viewport 1 0)))
+
   (define (send-background-file #!optional file)
     "Tells the C program to change the pager-background from FILE."
     (if file (setq pager-background file))
@@ -412,11 +430,13 @@
 				    (not (process-in-use-p process))
 				    (setq process nil))))
 	    cache
-	    (mapcar list '(?w ?f ?v ?s ?c ?b)))
+	    (mapcar list '(?w ?f ?v ?s ?c ?b ?h ?x)))
       (if plug-to
 	  (set-process-args process (list (number->string plug-to))))
       (start-process process pager-executable)
       (send-colors)
+      (send-hatching)
+      (send-xmark)
       (send-background-file)
       (send-size t t)
       (send-viewport)

Diff finished.  Sat Feb 28 15:46:47 2009