From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sun, 4 Apr 2010 18:34:25 +0000 (+0900)
Subject: (www-uri-encode-char): Use `=ruimoku-v6'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=59034c825b148221104393572b3ee332e3cde31f;p=chise%2Fest.git

(www-uri-encode-char): Use `=ruimoku-v6'.
(www-format-encode-string): Display `=ruimoku-v6' characters.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 34e6380..3b2d80c 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -218,6 +218,7 @@
 		      =>>jis-x0208 =>>jis-x0213-1
 		      =>jis-x0208 =>jis-x0213-1
 		      =>>gt
+		      =ruimoku-v6
 		      =big5
 		      =big5-cdp))
 	  ccs ret)
@@ -505,6 +506,7 @@
 		'(=jis-x0208@1997	"J97-" 4 X)
 		'(=jis-x0208@1978	"J78-" 4 X)
 		'(=jis-x0208@1983	"J83-" 4 X)
+		'(=ruimoku-v6		"RUI6-" 4 X)
 		'(=zinbun-oracle	"ZOB-" 4 d)
 		'(=jef-china3		"JC3-" 4 X)
 		'(=daikanwa		"M-" 5 d)
@@ -615,7 +617,17 @@
 		     chise-wiki-glyph-cgi-url
 		     code)
 	     t 'literal))
-	  
+
+	  (goto-char (point-min))
+	  (while (re-search-forward "&RUI6-\\([0-9A-F]+\\);" nil t)
+	    (setq code (string-to-int (match-string 1) 16))
+	    (replace-match
+	     (format "<img alt=\"RUI6-%04X\" src=\"%s?char=RUI6-%04X\">"
+		     code
+		     chise-wiki-glyph-cgi-url
+		     code)
+	     t 'literal))
+
 	  (goto-char (point-min))
 	  (while (re-search-forward "&\\(UU\\+\\|U-\\)\\([0-9A-F]+\\);" nil t)
 	    (setq code (string-to-int (match-string 2) 16))