all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Peter Dyballa <Peter_Dyballa@Web.DE>
To: "Henri Häkkinen" <henri.hakkinen@pp2.inet.fi>
Cc: help-gnu-emacs@gnu.org
Subject: Re: Thai fonts
Date: Wed, 9 Jul 2008 10:19:31 +0200	[thread overview]
Message-ID: <78F8CC95-30C3-4F6A-99E7-46C2E3B26A21@Web.DE> (raw)
In-Reply-To: <1215534737.29795.10.camel@henux>


Am 08.07.2008 um 18:32 schrieb Henri Häkkinen:

> (set-fontset-font "fontset-startup" TARGET FONTSPEC)

It's a bit complicated and needs too much work. You could try  
something like this:

;; my naming!    (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"       'latin- 
iso8859-16 '("adobe-courier" . "iso8859-16"))
	(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

It works in GNU Emacsen 22.x and the latest releases of 23.x. I think  
you would need to substitute my fontset name  
"fontset-11pt_adobe_courier" with "fontset-startup."

--
Greetings

   Pete

There's something the technicians need to learn from the artists. If  
it isn't aesthetically pleasing, it's probably wrong.






      reply	other threads:[~2008-07-09  8:19 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2008-07-08 16:32 Thai fonts Henri Häkkinen
2008-07-09  8:19 ` Peter Dyballa [this message]

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=78F8CC95-30C3-4F6A-99E7-46C2E3B26A21@Web.DE \
    --to=peter_dyballa@web.de \
    --cc=help-gnu-emacs@gnu.org \
    --cc=henri.hakkinen@pp2.inet.fi \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.