[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Win32] Font issues - not showing all fonts available
From: |
Chris McMahan |
Subject: |
Re: [Win32] Font issues - not showing all fonts available |
Date: |
Fri, 19 Dec 2008 17:13:39 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (windows-nt) |
Here's some functions I hacked up to display either the fixed width
(default) or all fonts (argument), then set the current font to the
selection:
I would certainly welcome any suggestions to improve the coding, my lisp
ability is elementary at best!
- Chris
;;;_.======================================================================
;;;_. functions to get and set current fonts
(defun get-font (&optional arg)
"Return a string representing the selected font.
With prefix argument ARG, include proportional fonts in the selection choices"
(interactive "P")
(if (null arg)
(x-select-font nil 't)
(x-select-font nil nil)))
(defun set-font (&optional arg)
"Select the default font for this frame
With prefix argument ARG, include proportional fonts in the selection choices"
(interactive)
(set-frame-font (call-interactively 'get-font arg))
(message ""))
(defun print-font (&optional arg)
"Yank the name of the selected font at the current point
With prefix argument ARG, include proportional fonts in the selection choices"
(interactive)
(insert (prin1-to-string (call-interactively 'get-font arg))))
Carl-Erik <carlerik@gmail.com> writes:
> Coming from a point-and-click background (Eclipse, Gedit, Notepad2) and Vim
> background, and being no Lisper, I wanted to change the default font in
> Emacs (using Windows Vista) using the GUI. Unfortunately the list of fonts
> available is only a very minor subset of the fonts I have, and none of the
> ones I would like to use is available. After googling for an answer I
> mysteriously found some way of listing all fonts available (now lost), which
> showed a myriad of fonts - a *lot* more than in the GUI font picker utility.
> Sadly, not every font was listed (for instance Monaco).
>
> So what I am wondering is how to add/select fonts that are not available in
> the drop down menu. Nice if you also *know* it generally works, and not just
> on the (type of) font you use ;-)
>
> The programming (mono)fonts I would like to be able to use in Emacs are:
> Proggy Clean
> Deja Vu Sans
> Monaco
> Trisk
> Raize
>
> Please don't troll this into a "Why would you _ever_ choose font X? The one
> that comes with Emacs is more than adequate!" discussion. This is a general
> question, and does not really have much to do with the fonts in themselves,
> although the *type* of font (raster vs vector) might.
>
> Thanks
> Carl-Erik
--
(. .)
=ooO=(_)=Ooo=====================================
Chris McMahan | first_initiallastname@one.dot.net
=================================================