From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sat, 21 Sep 2013 11:33:56 +0000 (+0900)
Subject: (www-glyph-generate-png): Support `=ucs@JP/hanazono'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=49c7f6ff84dfe7f45ff9e437a5b56ad55ceeeaa0;p=chise%2Fest.git

(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
--- 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