From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sun, 28 Mar 2010 20:12:47 +0000 (+0900)
Subject: (www-glyph-generate-png): Support `=gt-k'.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ce4694f742d134173ee6851eb3f85b8edb6c6f7;p=chise%2Fest.git

(www-glyph-generate-png): Support `=gt-k'.
(www-glyph-display-png): Support GT-Kddddd.
---

diff --git a/cwiki-glyph.el b/cwiki-glyph.el
index 78aec8d..cffdab6 100644
--- a/cwiki-glyph.el
+++ b/cwiki-glyph.el
@@ -25,6 +25,24 @@
       (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)
@@ -65,6 +83,12 @@
 	    (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