header-line-format

header-line-format

[Sebastian Tennant]

Hi all,

I want a _non-underlined_ header line that looks like this:

 a one, b two, c, three ...
 ^      ^      ^
 |      |      |
 +------+------+----- bold face, everything else default face

I have this:

 (setq header-line-format
       (mapconcat
        (lambda (k)
          (format "%s %s,"
                  (propertize (car k) 'face 'bold)
                  (propertize (cdr k) 'face 'default)))
        '(("a" . "one") ("b" . "two") ("c" . "three"))
        " "))

but everything apart from 'one', 'two' and 'three' is underlined,
including the empty space all the way to right side of the window.

How can I 'switch-off' the underlining across the whole window/string?

I've tried propertizing the whole string created by the mapconcat
function:

 (setq header-line-format
       (propertize 
         (mapconcat
         [...]
         " ")
       'underline nil))

without success.

Sebastian

Re: header-line-format

[Sebastian Tennant]

Quoth Sebastian Tennant <sebyte@smolny.plus.com>:
> I want a _non-underlined_ header line that looks like this:
>
>  a one, b two, c three, ...
>  ^      ^      ^
>  |      |      |
>  +------+------+----- bold face, everything else default face

This is working fine for setting the bold letters:

 (setq header-line-format
       (mapconcat
        (lambda (k)
          (format "%s %s"
                  (propertize (car k) 'face 'bold)
                  (cdr k)))
        '(("a" . "one,") ("b" . "two,") ("c" . "three,"))
        " "))

and I can 'switch-off' the underlining by evaluating this at any time:

  (set-face-attribute 'header-line nil :underline nil)

but this is a global adjustment to header-line face that affects Info
buffers for instance.

Anyone know of a way to tell Emacs to render header lines with a face
other than header-line face, enabling buffer-local control of the face
used in header lines?

Something like this would be great:

  (set (make-local-variable 'header-line-face-name) 'my-header-line-face)

Sebastian