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: The article buffer, and proportional fonts

[Andrew J Cosgriff]

Steven L Baur <steve@miranova.com> wrote:
>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 ...

slow ? *shrug*  It's been so long since I ran gnus in fixed-width
that i've absolutely no idea how slow it is in comparison.

Come to think of it, i've never run gnus in a fixed-width font.

My whole reason for running XEmacs (initially) was so i could use proportional
fonts, before netscape existed :PP

My default font (for everything) is palatino - if I really have to use a
fixed-width font, then I've got a small hack that I put in dired mode, and
C mode (the latter was more proof-of-concept than anything), that fiddles the
font-lock-* fonts to use a fixed width font in that buffer only.

Yay for proportional fonts (and XEmacs) ! :)

Andrew
-- 
 - Andrew J. Cosgriff -                  ajc@bing.wattle.id.au    (PGP/MIME ok)
  +61 3 9905 1165 (bh)                   http://www-personal.monash.edu.au/~ajc
    "I wrote a poem on a dog biscuit, but your dog refused to look at it."
                         (Galaxie 500, Fourth of July)