(est-eval-value-as-ids): New implementation.

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

diff --git a/cwiki-glyph.el b/cwiki-glyph.el
index cffdab6..9fcbaa0 100644 (file)
--- a/cwiki-glyph.el
+++ b/cwiki-glyph.el
@@ -7,6 +7,15 @@
     (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"
@@ -57,6 +66,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
@@ -77,6 +92,12 @@
     (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
@@ -100,6 +121,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