XFT-relevant ~/.xemacs/init.el snippet.

[Aidan Kehoe]

The Right Thing is to integrate something similar to the below in the X11
startup code, but I won’t get to that for a while. In the meantime, this
makes non-ASCII a good more readable on XFT, IMO. 

(when (featurep 'xft)
  (set-specifier
   (face-font 'default) 
   (cons '(x) 
	 (fc-name-unparse 
	  (fc-font-match (selected-device) 
			 (fc-name-parse "Monospace-11.5:lang=en")))))
  (loop 
    for (tag-name regex size) in 
    '((zh-tw "^chinese-\\(big5\\|cns\\)" 18)
      (zh "^chinese-" 18)
      (ja "^\\(japanese\\|katakana\\)-" 18)
      (ko "^korean-" 18)
      (am "^ethiopic-" 18)
      (vi "^vietnamese-" 14)
      (el "^greek-" 12)
      (ru "^cyrillic-" 12)
      (hu "^latin-iso8859-2" 12)
      (ar "^arabic-" 16))
    do
    (define-specifier-tag tag-name nil 
      (list 'lambda '(charset) 
	    (list 'string-match regex
		  '(symbol-name (charset-name charset)))))
    (set-face-font 'default
		   (fc-name-unparse 
		    (fc-font-match 
		     (selected-device) 
		     (fc-name-parse 
		      (format "-%d:lang=%s"
			      size tag-name))))
		   nil (list 'x tag-name) 'append)))

-- 
Santa Maradona, priez pour moi!