(www-glyph-generate-png): Support `=ucs@JP/hanazono'.

(www-glyph-display-png): Likewise.

diff --git a/cwiki-glyph.el b/cwiki-glyph.el
index dfcc901..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"
@@ -83,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