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

[Christopher Roy Bratusek <zanghar freenet de>]

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 <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
>