properties in recursive mode-lines - what am I doing wrong?

properties in recursive mode-lines - what am I doing wrong?

[Joost Diepenmaat]

I just can't get properties to work on "indirect" modelines. I want to
add a modeline string to global-mode-string, using a symbol (like
display-time-mode does), but it seems I'm doing it wrong.

Example code:

;; a simple modeline string with properties

(setq my-test (propertize "a bold modeline string" 'help-echo 
                          "a helptext" 'face 'bold))

;; this shows the help text property and bold text

(setq global-mode-string
      my-test)

;; but neither of the following constructs seem to do the same

(setq global-mode-string
      'my-test)

(setq global-mode-string
      '("" my-test))


I'm running today's emacs CVS (tested both with today's version and one
from early august)

Any help would be appreciated,
Joost.

-- 
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/

Re: properties in recursive mode-lines - what am I doing wrong?

[Andy Stewart]

Hi Joost,

Joost Diepenmaat <joost@zeekat.nl> writes:

> I just can't get properties to work on "indirect" modelines. I want to
> add a modeline string to global-mode-string, using a symbol (like
> display-time-mode does), but it seems I'm doing it wrong.
>
> Example code:
>
> ;; a simple modeline string with properties
>
> (setq my-test (propertize "a bold modeline string" 'help-echo 
>                           "a helptext" 'face 'bold))
>
> ;; this shows the help text property and bold text
>
> (setq global-mode-string
>       my-test)
>
> ;; but neither of the following constructs seem to do the same
>
> (setq global-mode-string
>       'my-test)
>
> (setq global-mode-string
>       '("" my-test))
>
>
> I'm running today's emacs CVS (tested both with today's version and one
> from early august)
>
> Any help would be appreciated,
> Joost.

Look this:

Below is define:

,----
| (defvar my-test nil "for test string")
|                           
| (unless (member 'my-test global-mode-string)
|   (setq global-mode-string (append global-mode-string
|                                    (list 'my-test))))                          
`----

Below is code for update `my-test' in `global-mode-string':

,----
| ...
| 
| (force-mode-line-update t)
| (put 'my-test 'risky-local-variable t)
| (setq my-test (propertize "a bold modeline string" 'help-echo 
|                           "a helptext" 'face 'bold))
| 
| ...
`----

Enjoy!

  -- Andy

Re: properties in recursive mode-lines - what am I doing wrong?

[Joost Diepenmaat]

Andy Stewart <lazycat.manatee@gmail.com> writes:


> | (put 'my-test 'risky-local-variable t)

I can't believe I didn't notice that in the docs.

Thanks!

Joost.

-- 
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/