Re: [Sawfish] make decorate-transients as defcustom not work

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

On Wed, 05 Sep 2012 20:41:24 +0200
wrote Christopher Roy Bratusek <nano@xxxxxxxxxxxxx>:

>On Tuesday 04 September 2012 22:51:30 fuchur wrote:
>> Hi,
>> 
>> The new "defcustom decorate-transients" not work. sawfish-config don't
>> remember the setting and sawfish-client returns by decorate-transients
>> always nil. My settings (~./sawfish/rc) wrong?
>
>Forgot to remove decorate-transients from lisp/sawfish/wm/util/compat.jl (that 
>prevents setting from sawfish-config). But I'm unable to git push atm, seems 
>git.tuxfamily.org is down...
>
>Chris

Also the theme.jl files should know if decorate-transients is set.
For StyleTab i need something like this:


(define (get-frame w type)
  (let ((current-title
         (if (not (window-get w 'title-position))
             (case mystyletab:titlebar-place
                   ((top)    'top)
                   ((bottom) 'bottom)
                   ((left)   'left)
                   ((right)  'right))
           (window-get w 'title-position))))
    (case type
          ((default)
           (make-frame w 'normal-frame current-title))
          ((utility)
           (make-frame w 'normal-frame current-title))
          ((shaded-utility)
           (make-frame w 'normal-frame current-title))
          ((transient)
           (if decorate-transients
               (make-frame w 'normal-frame current-title)
             (make-frame w 'transient-frame current-title)))
          ((shaped)
           (make-frame w 'shaped-frame current-title))
          ((shaped-transient)
           (if decorate-transients
               (make-frame w 'normal-frame current-title)
             (make-frame w 'shaped-transient-frame current-title))))))


With the changes in compat.jl, in theme.jl from StyleTab
"decorate-transients" is always nil. 

-- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

Attachment: signature.asc
Description: PGP signature