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

[chise/est.git] / cwiki-glyph.el

diff --git a/cwiki-glyph.el b/cwiki-glyph.el
index 78aec8d..cffdab6 100644 (file)
--- 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