[Win32] Font issues - not showing all fonts available

[Win32] Font issues - not showing all fonts available

[Carl-Erik]

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
-- 
View this message in context: http://www.nabble.com/-Win32--Font-issues---not-showing-all-fonts-available-tp21092771p21092771.html
Sent from the Emacs - Help mailing list archive at Nabble.com.

Re: [Win32] Font issues - not showing all fonts available

[Chris McMahan]

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
  =================================================

Re: [Win32] Font issues - not showing all fonts available

[harven]

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).

M-x set-default-font RET TAB
should list a lot of fonts. Just as
M-x set-frame-font RET TAB TAB

The emacs wiki may also helps
http://www.emacswiki.org/emacs/ChangeFontsPermanentlyOnWindows

Re: [Win32] Font issues - not showing all fonts available

[Peter Dyballa]

Am 19.12.2008 um 16:03 schrieb Carl-Erik:

> So what I am wondering is how to add/select fonts that are not  
> available in
> the drop down menu.


The name of the structure that is handled by this menu is x-fixed- 
font-alist, via the function mouse-set-font, as defined in mouse.el.  
You could do it as simplistic as I do:

(setq x-fixed-font-alist
    '("X11 Font Menu"
       ("Misc fixed"
;; For these, we specify the pixel height and width.
        ("«ProFont»" "»ProFont«")
        ("ISO 10646-1" "-misc-profontwindows-medium-r-normal--0-*-*-*- 
m-*-iso10646-1" "ISO 10646-1")
        ("ISO 8859-15" "-misc-profontwindows-medium-r-normal--0-*-*-*- 
m-*-iso8859-15" "ISO 8859-15")
        ("fcd 8859-15" "-misc-profontwindows-medium-r-normal--0-*-*-*- 
m-*-fcd8859-15" "fcd 8859-15")
        ("ISO 8859-9"  "-misc-profontwindows-medium-r-normal--0-*-*-*- 
m-*-iso8859-9"  "ISO 8859-9")
        ("ISO 8859-1"  "-misc-profontwindows-medium-r-normal--0-*-*-*- 
m-*-iso8859-1"  "ISO 8859-1")
        ("ASCII-0"     "-misc-profontwindows-medium-r-normal--0-*-*-*- 
m-*-ascii-0"    "ASCII-0")
;     	("»Microsoft-CP1252«")
;     	( "0" "-windows-profontwindows-medium-r-normal--0-*-*-*-c-*- 
microsoft-cp1252"   "0")
;     	("10" "-windows-profontwindows-medium-r-normal--10-*-*-*-c-*- 
microsoft-cp1252" "10")
;     	("11" "-windows-profontwindows-medium-r-normal--11-*-*-*-c-*- 
microsoft-cp1252" "11")
;     	("12" "-windows-profontwindows-medium-r-normal--12-*-*-*-c-*- 
microsoft-cp1252" "12")
;     	("15" "-windows-profontwindows-medium-r-normal--15-*-*-*-c-*- 
microsoft-cp1252" "15")
;     	("17" "-windows-profontwindows-medium-r-normal--17-*-*-*-c-*- 
microsoft-cp1252" "17")
;     	("22" "-windows-profontwindows-medium-r-normal--22-*-*-*-c-*- 
microsoft-cp1252" "22")
;     	("27" "-windows-profontwindows-medium-r-normal--29-*-*-*-c-*- 
microsoft-cp1252" "27")
;     	("»iso8859-1«")
;     	( "0" "-nil-profont-medium-r-normal--0-*-*-*-c-*-iso8859-1"    
"0")
;     	("10" "-nil-profont-medium-r-normal--10-*-*-*-c-*-iso8859-1"  
"10")
;     	("11" "-nil-profont-medium-r-normal--11-*-*-*-c-*-iso8859-1"  
"11")
;     	("12" "-nil-profont-medium-r-normal--12-*-*-*-c-*-iso8859-1"  
"12")
;     	("15" "-nil-profont-medium-r-normal--15-*-*-*-c-*-iso8859-1"  
"15")
;     	("17" "-nil-profont-medium-r-normal--17-*-*-*-c-*-iso8859-1"  
"17")
;     	("22" "-nil-profont-medium-r-normal--22-*-*-*-c-*-iso8859-1"  
"22")
;     	("27" "-nil-profont-medium-r-normal--29-*-*-*-c-*-iso8859-1"  
"27")
;     	("")
        ("fixed" "fixed")
....

--
Greetings

   Pete

Build a man a fire and he'll be warm for a night, but set a man on  
fire and he'll be warm for the rest of his life.