(est-eval-value-as-journal-volume): Renamed from

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

diff --git a/cwiki-glyph.el b/cwiki-glyph.el
index 78aec8d..dfcc901 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)
@@ -39,6 +57,12 @@
            char (decode-char '=big5-pua code-point)
            png-file (format "/opt/chisewiki/glyphs/%d/CDP/%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
@@ -65,6 +89,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
@@ -76,6 +106,12 @@
            '=big5-cdp
            (string-to-int (match-string 1 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