From 6ce4694f742d134173ee6851eb3f85b8edb6c6f7 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 29 Mar 2010 05:12:47 +0900 Subject: [PATCH] (www-glyph-generate-png): Support `=gt-k'. (www-glyph-display-png): Support GT-Kddddd. --- cwiki-glyph.el | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) diff --git a/cwiki-glyph.el b/cwiki-glyph.el index 78aec8d..cffdab6 100644 --- 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) @@ -65,6 +83,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 -- 1.7.10.4