list available fonts/fontsets

list available fonts/fontsets

[Rancier, Jeff]

Hello,
I'm trying to make my .emacs work on MS Windows and X on Solaris, but on X
when I setup my initial-frame-alist, and default-frame-alist, it chokes on
an invalid font, namely, -outline-Courier
New-normal-r-normal-normal-12-90-96-96-c-*-iso10646-1.  Is there a method
which will display all that's available?  M-x list-fontsets didn't seem to
be what I needed.

Thanks

Re: list available fonts/fontsets

[Edward O'Connor]

> I'm trying to make my .emacs work on MS Windows and X on Solaris,

Excellent.

> but on X when I setup my initial-frame-alist, and default-frame-alist,
> it chokes on an invalid font, namely,
> -outline-Courier New-normal-r-normal-normal-12-90-96-96-c-*-iso10646-1.
> Is there a method which will display all that's available? M-x
> list-fontsets didn't seem to be what I needed.

Well, here's something resembling what I do to make fonts happy under
different system types.

(require 'cl)
(set-frame-parameter nil 'font
  (or (find-if (lambda (font)
                 (ignore-errors (x-list-fonts font)))
               '("-*-andale mono-medium-r-*--14-*-*-*-*-*-*-*"
                 "-*-bitstream vera sans mono-medium-r-*-*-14-*-*-*-*-*-iso8859-*"
                 "-*-Lucida Console-normal-r-*-*-18-*-*-*-c-*-iso8859-1"))
      "-adobe-courier-medium-r-*-*-14-*-*-*-*-*-*-*"))

The explanation: we want to set Emacs' font to one we like, but not all
machines have the same fonts available. First, we look for Andale Mono
14 (a common font on Mac OS X). If such a font is available
(`x-list-fonts' returns non-null), we use it. Otherwise, we try
Bitstream Vera Sans Mono 14 (common under X11). If we can't find that,
we'll try Lucida Console 18 (common under Windows). If all of the above
have failed, we'll use Courier 14 (common everywhere, so good as a
default).

Disclaimer: the actual code in my .emacs file is a bit more complicated
than the above, and I haven't tested what appears above. But it should
convey the idea I think.


Ted

-- 
Edward O'Connor
hober0@gmail.com

Ense petit placidam sub libertate quietem.

Re: list available fonts/fontsets

[Peter Dyballa]

Am 21.06.2005 um 18:55 schrieb Rancier, Jeff:

> Is there a method which will display all that's available?

I think that's the best one:

1) find a name for the file containing all available fonts
2) write that name down in *scratch* buffer and copy it into a register
3) type M-x set-frame-fonts RET TAB TAB C-g
4) change back into the *Completions* buffer
5) save it to the file name in that register -- if you try to expand a 
file name the *Completions* buffer will contain these expansions!

Create fontsets (at least for X11 this works) like:

     (create-fontset-from-fontset-spec 
"-misc-profontwindows-medium-r-*-*-10-*-*-*-*-*-fontset-10pt_profont" t 
'noerror)
	(set-fontset-font "fontset-10pt_profont"       'latin-iso8859-1	 
'("profontwindows" . "iso8859-1"))
	(set-fontset-font "fontset-10pt_profont"       'latin-iso8859-2	 
'("profontwindows" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_profont"       'latin-iso8859-3	 
'("profontwindows" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_profont"       'latin-iso8859-4	 
'("profontwindows" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_profont"       'latin-iso8859-9	 
'("profontwindows" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_profont"       'latin-iso8859-15 
'("profontwindows" . "iso8859-15"))
	(set-fontset-font "fontset-10pt_profont" 'mule-unicode-0100-24ff 
'("profontwindows" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_profont" 'mule-unicode-2500-33ff 
'("profontwindows" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_profont" 'mule-unicode-e000-ffff 
'("profontwindows" . "iso10646-1"))


You can extend this until your fontsets work like in GNU Emacs 23:

     (create-fontset-from-fontset-spec 
"-adobe-courier-medium-r-*-*-11-*-*-*-*-*-fontset-11pt_adobe_courier" t 
'noerror)
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-1  
'("adobe-courier" . "iso8859-1"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-2  
'("adobe-courier" . "iso8859-2"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-3  
'("adobe-courier" . "iso8859-3"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-4  
'("adobe-courier" . "iso8859-4"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'greek-iso8859-7  
'("adobe-couriergr" . "iso8859-7"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-9  
'("adobe-courier" . "iso8859-9"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-14 
'("adobe-courier" . "iso8859-14"))
	(set-fontset-font "fontset-11pt_adobe_courier"       'latin-iso8859-15 
'("adobe-courier" . "iso8859-15"))
	(set-fontset-font "fontset-11pt_adobe_courier" 'mule-unicode-0100-24ff 
'("adobe-courier" . "iso10646-1"))
	(set-fontset-font "fontset-11pt_adobe_courier" 'mule-unicode-2500-33ff 
'("adobe-courier" . "iso10646-1"))
	(set-fontset-font "fontset-11pt_adobe_courier" 'mule-unicode-e000-ffff 
'("adobe-courier" . "iso10646-1"))
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0370) (decode-char 'ucs #x03cf)) '("courier new" . "iso10646-1"))	; 
Greek
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x03d0) (decode-char 'ucs #x03ff)) '("lucida sans typewriter" . 
"iso10646-1"))	; Coptic
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0400) (decode-char 'ucs #x04ff)) '("lucida sans typewriter" . 
"iso10646-1"))	; Cyrillic
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0500) (decode-char 'ucs #x052f)) '("lucida sans typewriter" . 
"iso10646-1"))	; Cyrillic Supplement
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0530) (decode-char 'ucs #x058f)) '("aramian unicode" . 
"iso10646-1"))	; Armenian (sylfaen
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0590) (decode-char 'ucs #x05af)) '("lucida sans typewriter" . 
"iso10646-1"))	; Hebrew
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x05b0) (decode-char 'ucs #x05ff)) '("courier new" . "iso10646-1"))	; 
Hebrew
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0600) (decode-char 'ucs #x066f)) '("courier new" . "iso10646-1"))	; 
Arabic
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0670) (decode-char 'ucs #x06ff)) '("lucida sans typewriter" . 
"iso10646-1"))	; Arabic
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0700) (decode-char 'ucs #x074f)) '("titus cyberbit basic" . 
"iso10646-1"))	; Syriac
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0780) (decode-char 'ucs #x07bf)) '("titus cyberbit basic" . 
"iso10646-1"))	; Thaana
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0900) (decode-char 'ucs #x097f)) '("titus cyberbit basic" . 
"iso10646-1"))	; Devanagari
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0980) (decode-char 'ucs #x09ff)) '("code2000" . "iso10646-1"))	; 
Bengali
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0a00) (decode-char 'ucs #x0a7f)) '("code2000" . "iso10646-1"))	; 
Gurmukhi
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0a80) (decode-char 'ucs #x0aff)) '("code2000" . "iso10646-1"))	; 
Gujarati
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0b00) (decode-char 'ucs #x0b7f)) '("code2000" . "iso10646-1"))	; 
Oriya
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0b80) (decode-char 'ucs #x0bff)) '("code2000" . "iso10646-1"))	; 
Tamil
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0c00) (decode-char 'ucs #x0c7f)) '("code2000" . "iso10646-1"))	; 
Telugu
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0c80) (decode-char 'ucs #x0cff)) '("code2000" . "iso10646-1"))	; 
Kannada
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0d00) (decode-char 'ucs #x0d7f)) '("code2000" . "iso10646-1"))	; 
Malayalam
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0d80) (decode-char 'ucs #x0dff)) '("akshar unicode" . 
"iso10646-1"))	; Sinhala
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0e00) (decode-char 'ucs #x0e7f)) '("code2000" . "iso10646-1"))	; Thai
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0e80) (decode-char 'ucs #x0eff)) '("code2000" . "iso10646-1"))	; Lao
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x0f00) (decode-char 'ucs #x0fff)) '("xtashi" . "iso10646-1"))	; 
Tibetan
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1000) (decode-char 'ucs #x109f)) '("code2000" . "iso10646-1"))	; 
Myanmar
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x10a0) (decode-char 'ucs #x10ff)) '("everson mono unicode" . 
"iso10646-1"))	; Georgian
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1100) (decode-char 'ucs #x11ff)) '("code2000" . "iso10646-1"))	; 
Hangul Jamo
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1200) (decode-char 'ucs #x137f)) '("ethiopia jiret" . 
"iso10646-1"))	; Ethiopic
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x13a0) (decode-char 'ucs #x13ff)) '("everson mono unicode" . 
"iso10646-1"))	; Cherokee
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1400) (decode-char 'ucs #x167f)) '("everson mono unicode" . 
"iso10646-1"))	; Canadian Aboriginal Syllabics
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1680) (decode-char 'ucs #x169f)) '("everson mono unicode" . 
"iso10646-1"))	; Ogham
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x16a0) (decode-char 'ucs #x16ff)) '("everson mono unicode" . 
"iso10646-1"))	; Runic
;	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 
'ucs #x1700) (decode-char 'ucs #x171f)) '("code2000" . "iso10646-1"))	; 
Tagalog
;	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 
'ucs #x1720) (decode-char 'ucs #x173f)) '("code2000" . "iso10646-1"))	; 
Hanunoo
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1740) (decode-char 'ucs #x175f)) '("code2000" . "iso10646-1"))	; 
Buhid
;	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 
'ucs #x1760) (decode-char 'ucs #x177f)) '("code2000" . "iso10646-1"))	; 
Tagbanwa
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1780) (decode-char 'ucs #x17ff)) '("code2000" . "iso10646-1"))	; 
Khmer
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1800) (decode-char 'ucs #x18af)) '("code2000" . "iso10646-1"))	; 
Mongolian
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1900) (decode-char 'ucs #x194f)) '("code2000" . "iso10646-1"))	; 
Limbu
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1950) (decode-char 'ucs #x197f)) '("tai le valentinium" . 
"iso10646-1"))	; Tai Le
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x19e0) (decode-char 'ucs #x19ff)) '("cdt khmer" . "iso10646-1"))	; 
Khmer Symbols
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1d00) (decode-char 'ucs #x1d7f)) '("everson mono unicode" . 
"iso10646-1"))	; Phonetic Extensions
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1e00) (decode-char 'ucs #x1eff)) '("courier" . "iso10646-1"))	; Latin 
Extended Additional
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x1f00) (decode-char 'ucs #x1fff)) '("everson mono unicode" . 
"iso10646-1"))	; Greek Extended
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2000) (decode-char 'ucs #x206f)) '("everson mono unicode" . 
"iso10646-1"))	; General Puctuation
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2070) (decode-char 'ucs #x209f)) '("everson mono unicode" . 
"iso10646-1"))	; Superscripts and Subscripts
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x20a0) (decode-char 'ucs #x20cf)) '("everson mono unicode" . 
"iso10646-1"))	; Currency Symbols
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x20d0) (decode-char 'ucs #x20ff)) '("everson mono unicode" . 
"iso10646-1"))	; Combining Marks for Symbols
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2100) (decode-char 'ucs #x214f)) '("everson mono unicode" . 
"iso10646-1"))	; Letterlike Symbols
;	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 
'ucs #x2150) (decode-char 'ucs #x218f)) '("courier new" . 
"iso10646-1"))	; Number Forms
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2190) (decode-char 'ucs #x21ff)) '("code2000" . "iso10646-1"))	; 
*Arrows
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2200) (decode-char 'ucs #x22ff)) '("code2000" . "iso10646-1"))	; 
Mathematical Operators
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2300) (decode-char 'ucs #x23ff)) '("code2000" . "iso10646-1"))	; 
Miscellaneous Technical
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2400) (decode-char 'ucs #x243f)) '("code2000" . "iso10646-1"))	; 
Control Pictures
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2440) (decode-char 'ucs #x245f)) '("code2000" . "iso10646-1"))	; 
Optical Character Recognition
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2460) (decode-char 'ucs #x24ff)) '("code2000" . "iso10646-1"))	; 
Enclosed Alphanumerics
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2500) (decode-char 'ucs #x257f)) '("code2000" . "iso10646-1"))	; Box 
Drawing
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2580) (decode-char 'ucs #x259f)) '("code2000" . "iso10646-1"))	; 
Block Elements
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x25a0) (decode-char 'ucs #x25ff)) '("code2000" . "iso10646-1"))	; 
Geometric Shapes
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2600) (decode-char 'ucs #x26ff)) '("code2000" . "iso10646-1"))	; 
Miscellaneous Symbols
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2700) (decode-char 'ucs #x27bf)) '("code2000" . "iso10646-1"))	; 
Dingbats
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x27c0) (decode-char 'ucs #x27ef)) '("code2000" . "iso10646-1"))	; 
Miscellaneous Math Symbols-A
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x27f0) (decode-char 'ucs #x27ff)) '("code2000" . "iso10646-1"))	; 
Supplemental Arrows-A
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2800) (decode-char 'ucs #x28ff)) '("code2000" . "iso10646-1"))	; 
Braille Patterns
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2900) (decode-char 'ucs #x297f)) '("code2000" . "iso10646-1"))	; 
Supplemental Arrows-B
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2980) (decode-char 'ucs #x29ff)) '("code2000" . "iso10646-1"))	; 
Miscellaneous Math Symbols-B
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2a00) (decode-char 'ucs #x2aff)) '("code2000" . "iso10646-1"))	; 
Supplemental Math Operators
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2b00) (decode-char 'ucs #x2bff)) '("code2000" . "iso10646-1"))	; 
Miscellaneous Symbols and Arrows
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2e80) (decode-char 'ucs #x2eff)) '("code2000" . "iso10646-1"))	; CJK 
Radicals Supplement
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2f00) (decode-char 'ucs #x2fdf)) '("code2000" . "iso10646-1"))	; 
Kangxi Radicals
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x2ff0) (decode-char 'ucs #x2fff)) '("code2000" . "iso10646-1"))	; 
Ideographic Description Characters
	(set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs 
#x3000) (decode-char 'ucs #x303f)) '("code2000" . "iso10646-1"))	; CJK 
Symbols and Punctuation

I didn't finish yet ... (you can check that with the file utf8.txt from 
the Kermit distribution)


--
Greetings

   Pete

The human animal differs from the lesser primates in his passion for 
lists of "Ten Best".
		-- H. Allen Smith

Re: list available fonts/fontsets

[J. David Boyd]

"Rancier, Jeff" <Jeff.Rancier@Sensis.com> writes:

> Hello,
> I'm trying to make my .emacs work on MS Windows and X on Solaris, but on X
> when I setup my initial-frame-alist, and default-frame-alist, it chokes on
> an invalid font, namely, -outline-Courier
> New-normal-r-normal-normal-12-90-96-96-c-*-iso10646-1.  Is there a method
> which will display all that's available?  M-x list-fontsets didn't seem to
> be what I needed.
> 
> Thanks


xfontsel

I tried, from a shell,

xfontsel | grep outline 

on our solaris box, and it certainly didn't find it.

Good luck!

Dave

Re: list available fonts/fontsets

[Peter Lee]

>>>> Rancier writes:
    Rancier> Is there a method which will display all that's
    Rancier> available?  M-x list-fontsets didn't seem to be what I
    Rancier> needed.

I use M-x set-default-font RET TAB TAB

Re: list available fonts/fontsets

[Peter Lee]

>>>> Rancier writes:
    Rancier> Is there a method which will display all that's
    Rancier> available?  M-x list-fontsets didn't seem to be what I
    Rancier> needed.

I use M-x set-default-font RET TAB TAB