From 49c7f6ff84dfe7f45ff9e437a5b56ad55ceeeaa0 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 21 Sep 2013 20:33:56 +0900 Subject: [PATCH] (www-glyph-generate-png): Support `=ucs@JP/hanazono'. (www-glyph-display-png): Likewise. --- cwiki-glyph.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 -- 1.7.10.4