XEmacs & buffer-local fonts

XEmacs & buffer-local fonts

[Lars Magne Ingebrigtsen]

I just decided that I wanted the article buffer to use a proportional
font.  I thought that would be a breeze, but after reading the XEmacs
manual some, it doesn't seem like a simple thing to do.  I must be
overlooking something.

So I did this, and it works, but it's slow.  So...  What's the *real*
way of doing something like this?

(defun lars-xmas-set-faces-font ()
  "Set the font of all faces in the buffer to one font."
  (let ((faces (face-list))
	(font "-adobe-new century schoolbook-medium-r-normal--14-140-75-75-p-82-iso8859-1")
	face props)
    (while (setq face (pop faces))
      (setq props (font-properties (face-font face)))
      (set-face-font face font (current-buffer))
      (when (equal (downcase (or (cdr (assq 'WEIGHT_NAME props)) "")) "bold")
	(make-face-bold face (current-buffer)))
      (when (equal (downcase (or (cdr (assq 'SLANT props)) "")) "i")
	(make-face-italic face (current-buffer))))))

(when (string-match "XEmacs" emacs-version)
  (add-hook 'gnus-article-mode-hook 'lars-xmas-set-faces-font))

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen

Re: XEmacs & buffer-local fonts

[William M. Perry]

Lars Magne Ingebrigtsen writes:

>I just decided that I wanted the article buffer to use a proportional
>font.  I thought that would be a breeze, but after reading the XEmacs
>manual some, it doesn't seem like a simple thing to do.  I must be
>overlooking something.
>
>So I did this, and it works, but it's slow.  So...  What's the *real*
>way of doing something like this?
>
>(defun lars-xmas-set-faces-font ()
>  "Set the font of all faces in the buffer to one font."
>  (let ((faces (face-list))
>	(font "-adobe-new century schoolbook-medium-r-normal--14-140-75-75-p-82-iso8859-1")
>	face props)
>    (while (setq face (pop faces))
>      (setq props (font-properties (face-font face)))
>      (set-face-font face font (current-buffer))
>      (when (equal (downcase (or (cdr (assq 'WEIGHT_NAME props)) "")) "bold")
>	(make-face-bold face (current-buffer)))
>      (when (equal (downcase (or (cdr (assq 'SLANT props)) "")) "i")
>	(make-face-italic face (current-buffer))))))
>
>(when (string-match "XEmacs" emacs-version)
>  (add-hook 'gnus-article-mode-hook 'lars-xmas-set-faces-font))

  This is why we need the 'font.el' package I wrote converted into C.  For
this, you'd just have:

(set-font-property (face-font 'default) 'family "serif" (current-buffer))

  Ok, anybody want to volunteer? :)

-Bill P.

The article buffer, and proportional fonts

[Steinar Bang]

>>>>> Lars Magne Ingebrigtsen <larsi@ifi.uio.no>:

> I just decided that I wanted the article buffer to use a
> proportional font.

What a terrible netscapeish/microsoftian idea for messages without
MIME headers, or messages with MIME type text/plain.

An excellent idea, however, for messages with MIME type
text/enriched (or other text/* subtypes yet to be defined...)


- Steinar

Re: The article buffer, and proportional fonts

[Steven L Baur]

Steinar Bang writes:

>>>>>> Lars Magne Ingebrigtsen <larsi@ifi.uio.no>:
>> I just decided that I wanted the article buffer to use a
>> proportional font.

> What a terrible netscapeish/microsoftian idea for messages without
> MIME headers, or messages with MIME type text/plain.

You misspelled netscapeish/microsoftian/XEmacsian ;-).  I thought it
looked pretty cool, but it was slooow ...

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.
Real men aren't afraid to use chains on icy roads.

Re: The article buffer, and proportional fonts

[Lars Magne Ingebrigtsen]

Steinar Bang <sb@metis.no> writes:

> >>>>> Lars Magne Ingebrigtsen <larsi@ifi.uio.no>:
> 
> > I just decided that I wanted the article buffer to use a
> > proportional font.
> 
> What a terrible netscapeish/microsoftian idea for messages without
> MIME headers, or messages with MIME type text/plain.

No, it looks reeel pretty, like.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen

Re: XEmacs & buffer-local fonts

[Andrew J Cosgriff]

Lars Magne Ingebrigtsen <larsi@ifi.uio.no> wrote:
>I just decided that I wanted the article buffer to use a proportional
>font.  I thought that would be a breeze, but after reading the XEmacs
>manual some, it doesn't seem like a simple thing to do.  I must be
>overlooking something.
>
>So I did this, and it works, but it's slow.  So...  What's the *real*
>way of doing something like this?

I've no idea - i use a really quick gross hack like this to get a fixed
width font in a "term" buffer  (or dired or C...)

(if (eq (device-type) 'x)
    (add-hook 'term-mode-hook 
              (lambda ()
                (mapcar 
                 (lambda (face)
                   (set-face-font face
                                  "-*-lucida sans typewriter-medium-*-*-*-12-*-*-*-*-*-*-*"
                                  (current-buffer)))
                 '(default bold term-underline-face
                 font-lock-function-name-face font-lock-type-face
                 font-lock-variable-name-face font-lock-keyword-face))
                (make-face-bold 'bold)
                 )))

I'm also keen to hear better/more general ideas :)

Andrew
-- 
 - Andrew J. Cosgriff -                  ajc@bing.wattle.id.au    (PGP/MIME ok)
  +61 3 9905 1165 (bh)                   http://www-personal.monash.edu.au/~ajc
       WHOA!!  Ken and Barbie are having TOO MUCH FUN!!  It must be the
                                NEGATIVE IONS!!