Re: [solved] Re: Info nodes titles font size customization

[harven <harven@free.fr>]

Rodolfo Medina <rodolfo.medina@gmail.com> writes:

> In my ~/.emacs I put the following stuff:
>
> (add-hook
>  'Info-mode-hook
>  (lambda ()
>    (set-face-attribute
>     'info-title-1 nil
>     :weight 'bold
>     :height 1
>     :family "-Sony-Fixed-Medium-R-Normal--16-120-100-100-C-80-ISO8859-1"
>     )))
>
> (add-hook
>  'Info-mode-hook 
>  (lambda ()
>    (set-face-attribute 
>     'info-title-3 nil
>     :weight 'bold
>     :height 1
>     :family "-Sony-Fixed-Medium-R-Normal--16-120-100-100-C-80-ISO8859-1"
>     )))
>
> (add-hook 
>  'Info-mode-hook 
>  (lambda ()
>    (set-face-attribute 
>     'info-menu-header nil
>     :weight 'bold
>     :height 1
>     :family "-Sony-Fixed-Medium-R-Normal--16-120-100-100-C-80-ISO8859-1"
>     )))
>
>
> One can learn more about those variable from the Elisp manual (`C-h i' from
> Emacs buffer).
>
> Thanks to all who helped.
> Rodolfo

A bit shorter, by using the mapc function, which applies the set-face-attribute
to all faces in the list:

(add-hook  'Info-mode-hook  
   (lambda () (mapc 
    (lambda (x)
      (set-face-attribute x  nil
       :weight 'bold
       :height 1
       :family "-Sony-Fixed-Medium-R-Normal--16-120-100-100-C-80-ISO8859-1"))
    (list 'info-title-1 'info-title-3 'info-menu-header))))

Cheers