Tested it, and it's working. Great! Thanks a lot. Chris
Am Samstag, den 28.02.2009, 15:58 +0100 schrieb Johan Bockgård: > Christopher Bratusek <[email protected]> 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 >
