Re: proper setting of default font (and string-handling in elisp?)

[Peter Dyballa]

Am 26.08.2009 um 14:59 schrieb Tom Roche:

> * font syntax: how to translate the font spec format that works for
>   set-frame-font (e.g. "Courier 10 Pitch-9") to that used for
>   initial-frame-alist and default-frame-alist (e.g.
>   "fontset-10pt_lucidatypewriter")?


I've created font sets to span (almost) the whole Unicode BMP (Basic  
Multilingual Plane):

    (create-fontset-from-fontset-spec "-b&h-lucidatypewriter-medium- 
r-*-*-10-*-*-*-*-*-fontset-10pt_lucidatypewriter" t 'noerror)
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-1  '("lucidatypewriter" . "iso8859-1"))
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-2  '("lucidatypewriter" . "iso8859-2"))
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-3  '("lucidatypewriter" . "iso8859-3"))
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-4  '("lucidatypewriter" . "iso8859-4"))
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-9  '("lucidatypewriter" . "iso8859-9"))
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-14 '("lucidatypewriter" . "iso8859-14"))
	(set-fontset-font "fontset-10pt_lucidatypewriter"       'latin- 
iso8859-15 '("lucidatypewriter" . "iso8859-15"))
	(set-fontset-font "fontset-10pt_lucidatypewriter" 'mule- 
unicode-0100-24ff '("lucidatypewriter" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_lucidatypewriter" 'mule- 
unicode-2500-33ff '("lucidatypewriter" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_lucidatypewriter" 'mule-unicode-e000- 
ffff '("lucidatypewriter" . "iso10646-1"))
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0590) (decode-char 'ucs #x05ff)) '("bpg glaho arial" .  
"iso10646-1"))	; Hebrew
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0600) (decode-char 'ucs #x06ff)) '("bpg glaho arial" .  
"iso10646-1"))	; Arabic
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x10a0) (decode-char 'ucs #x10ff)) '("bpg glaho" .  
"iso10646-1"))	; Georgian
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x2800) (decode-char 'ucs #x28ff)) '("code2000" .  
"iso10646-1"))	; Braille
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0980) (decode-char 'ucs #x09ff)) '("bangla" . "iso10646-1"))	;  
Bengali
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0a00) (decode-char 'ucs #x0a7f)) '("code2000" .  
"iso10646-1"))	; Gurmukhi
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0a80) (decode-char 'ucs #x0aff)) '("code2000" .  
"iso10646-1"))	; Gujarati
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0b00) (decode-char 'ucs #x0b7f)) '("code2000" .  
"iso10646-1"))	; Oriya
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0b80) (decode-char 'ucs #x0bff)) '("code2000" .  
"iso10646-1"))	; Tamil
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0c00) (decode-char 'ucs #x0c7f)) '("code2000" .  
"iso10646-1"))	; Telugu
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0c80) (decode-char 'ucs #x0cff)) '("code2000" .  
"iso10646-1"))	; Kannada
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0d00) (decode-char 'ucs #x0d7f)) '("code2000" .  
"iso10646-1"))	; Malayalam
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0d80) (decode-char 'ucs #x0dff)) '("akshar unicode" .  
"iso10646-1"))	; Sinhala
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0e00) (decode-char 'ucs #x0e7f)) '("code2000" .  
"iso10646-1"))	; Thai
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0e80) (decode-char 'ucs #x0eff)) '("code2000" .  
"iso10646-1"))	; Lao
	(set-fontset-font "fontset-10pt_lucidatypewriter" (cons (decode-char  
'ucs #x0f00) (decode-char 'ucs #x0fff)) '("xtashi" . "iso10646-1"))	;  
Tibetan
(when (= 23 ETyp)       ; ETyp is approximately emacs-major-version
      (set-fontset-font "fontset-10pt_lucidatypewriter" (cons  
(decode-char 'ucs #x1d400) (decode-char 'ucs #x1d7ff)) '("code2001" .  
"iso10646-1"))	; Mathe
      (set-fontset-font "fontset-10pt_lucidatypewriter" '(#x1D400 .  
#x1D7FF) (font-spec :family "Unicode Symbols") nil)
)

This font set name can also be used as an initial parameter on the  
command line or as an X resource.


        (font . tlr-default-font)

should work. By quoting the variable you make the variable's name  
(and not its contents) available.

--
Greetings

  Pete

Time is an illusion. Lunchtime, doubly so.