(setq file-name-coding-system 'utf-8-jp)
+(defun www-glyph-big5-to-ucs-pua (code-point)
+ (let ((H (lsh code-point -8))
+ (L (logand code-point #xff)))
+ (if (<= #x8140 code-point)
+ (if (<= code-point #x8DFE)
+ (+ #xEEB8 (* 157 (- H 0x81))
+ (if (< L #x80)
+ (- L #x40)
+ (- L #x62)))
+ (if (<= #x8E40 code-point)
+ (if (<= code-point #xA0FE)
+ (+ #xE311 (* 157 (- H #x8e))
+ (if (< L #x80)
+ (- L #x40)
+ (- L #x62)))
+ (if (<= #xC6A1 code-point)
+ (if (<= code-point #xC8FE)
+ (+ #xF672 (* 157 (- H #xC6))
+ (if (< L #x80)
+ (- L #x40)
+ (- L #x62)))
+ (if (<= #xFA40 code-point)
+ (if (<= code-point #xFEFE)
+ (+ #xE000 (* 157 (- H #xFA))
+ (if (< L #x80)
+ (- L #x40)
+ (- L #x62)))))))))))))
+
(defun www-glyph-generate-png (ccs code-point &optional size)
(unless size
(setq size 40))
(let (png-file dir font char ret plain)
(cond
+ ((eq ccs '=ucs@JP/hanazono)
+ (setq font
+ (if (<= code-point 65535)
+ "/usr/local/share/fonts/TrueType/Hanazono/HanaMinA.ttf"
+ "/usr/local/share/fonts/TrueType/Hanazono/HanaMinB.ttf"))
+ (setq char (decode-char '=ucs code-point)
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanazono/u%04X.png"
+ size code-point))
+ )
((eq ccs '=gt)
(setq char (decode-char '=gt code-point)
png-file (format "/opt/chisewiki/glyphs/%d/GT/%05d.png"
(when (setq ret (encode-char char '=ucs@jis/1990))
(setq char (decode-char '=ucs ret)))
)
+ ((eq ccs '=gt-k)
+ (setq char (decode-char '=gt-k code-point)
+ png-file (format "/opt/chisewiki/glyphs/%d/GT-K/%05d.png"
+ size code-point))
+ (setq plain 1)
+ (while (and (<= plain 11)
+ (null
+ (setq ret (encode-char
+ char
+ (intern (format "=gt-pj-k%d" plain))))))
+ (setq plain (1+ plain)))
+ (setq font (format
+ "/usr/local/share/fonts/TrueType/GT/gt2000k%d.ttf"
+ plain)
+ char (decode-char '=jis-x0208@1990 ret))
+ (when (setq ret (encode-char char '=ucs@jis/1990))
+ (setq char (decode-char '=ucs ret)))
+ )
((eq ccs '=big5)
(setq font "/usr/local/share/fonts/TrueType/Arphic/bsmi00lp.ttf"
char (decode-char '=big5 code-point)
)
((eq ccs '=big5-cdp)
(setq font "/usr/local/share/fonts/TrueType/CDP/Cdpeudc.ttf"
- char (decode-char '=big5-pua code-point)
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
png-file (format "/opt/chisewiki/glyphs/%d/CDP/%04X.png"
size code-point))
+ )
+ ((eq ccs '=hanziku-1)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk1u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-01/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-2)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk2u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-02/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-3)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk3u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-03/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-4)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk4u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-04/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-5)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk5u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-05/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-6)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk6u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-06/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-7)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk7u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-07/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-8)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk8u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-08/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-9)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzk9u.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-09/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-10)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzkau.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-10/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-11)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzkbu.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-11/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=hanziku-12)
+ (setq font "/usr/local/share/fonts/TrueType/Hanziku/hzkcu.ttf"
+ char (or (decode-char '=big5-pua code-point)
+ (decode-char '=ucs
+ (www-glyph-big5-to-ucs-pua code-point)))
+ png-file (format "/opt/chisewiki/glyphs/%d/Hanziku-12/%04X.png"
+ size code-point))
+ )
+ ((eq ccs '=ruimoku-v6)
+ (setq font "/usr/local/share/fonts/TrueType/Zinbun/rui6-eudc.ttf"
+ char (decode-char '=ucs code-point)
+ png-file (format "/opt/chisewiki/glyphs/%d/Ruimoku-v6/%04X.png"
+ size code-point))
))
(when font
(if (= (call-process
(setq size (string-to-int size)))
(let ((png-file
(cond
+ ((string-match "^hana-JU\\+\\([0-9A-F]+\\)" char-rep)
+ (www-glyph-generate-png
+ '=ucs@JP/hanazono
+ (string-to-int (match-string 1 char-rep) 16)
+ size)
+ )
((string-match "^GT-\\([0-9]+\\)" char-rep)
(www-glyph-generate-png
'=gt
(string-to-int (match-string 1 char-rep))
size)
)
+ ((string-match "^GT-K\\([0-9]+\\)" char-rep)
+ (www-glyph-generate-png
+ '=gt-k
+ (string-to-int (match-string 1 char-rep))
+ size)
+ )
((string-match "^B-\\([0-9A-F]+\\)" char-rep)
(www-glyph-generate-png
'=big5
'=big5-cdp
(string-to-int (match-string 1 char-rep) 16)
size)
+ )
+ ((string-match
+ "^HZK\\(0[1-9]\\|1[0-2]\\)-\\([0-9A-F]+\\)"
+ char-rep)
+ (www-glyph-generate-png
+ (intern (format "=hanziku-%d"
+ (string-to-int (match-string 1 char-rep))))
+ (string-to-int (match-string 2 char-rep) 16)
+ size)
+ )
+ ((string-match "^RUI6-\\([0-9A-F]+\\)" char-rep)
+ (www-glyph-generate-png
+ '=ruimoku-v6
+ (string-to-int (match-string 1 char-rep) 16)
+ size)
))
))
(when png-file
projects / chise / est.git / blobdiff