From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 29 Mar 2010 00:56:21 +0000 (+0900)
Subject: (coded-charset-GlyphWiki-id-alist): New variable.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6c7a32603f6028fa2d80b5b9eb209539de3088c2;p=chise%2Fest.git

(coded-charset-GlyphWiki-id-alist): New variable.
(char-GlyphWiki-id): New function.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 7ab7a54..a6815ef 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -835,4 +835,62 @@
   (www-html-display-text text)
   (princ "</p>\n"))
 
+
+;;; @ for GlyphWiki
+;;;
+
+(defvar coded-charset-GlyphWiki-id-alist
+  '((=ucs		"u"	4 x nil)
+    (=ucs@iso		"u"	4 x "-u")
+    (=ucs@unicode	"u"	4 x "-us")
+    (=ucs@JP		"u"	4 x nil)
+    (=ucs@gb		"u"	4 x "-g")
+    (=ucs@cns		"u"	4 x "-t")
+    (=ucs@ks		"u"	4 x "-k")
+    (=adobe-japan1-6	"aj1-"	5 d nil)
+    (=gt		"gt-"	5 d nil)
+    (=gt-k		"gt-k"	5 d nil)
+    (=big5-cdp		"cdp-"	4 x nil)
+    (=cbeta		"cb"	5 d nil)
+    (=jis-x0208@1978/1pr "j78-"	4 x nil)
+    (=jis-x0208@1983	"j83-"	4 x nil)
+    (=jis-x0208@1990	"j90-"	4 x nil)
+    (=jis-x0212		"jsp-"	4 x nil)
+    (=jis-x0213-1@2000	"jx1-2000-" 4 x nil)
+    (=jis-x0213-1@2004	"jx1-2004-" 4 x nil)
+    (=jis-x0213-2	"jx2-"	4 x nil)
+    (=cns11643-1	"c1-"	4 x nil)
+    (=cns11643-2	"c2-"	4 x nil)
+    (=cns11643-3	"c3-"	4 x nil)
+    (=cns11643-4	"c4-"	4 x nil)
+    (=cns11643-5	"c5-"	4 x nil)
+    (=cns11643-6	"c6-"	4 x nil)
+    (=cns11643-7	"c7-"	4 x nil)
+    (=daikanwa		"dkw-"	5 d nil)
+    (=jef-china3	"jc3-"	4 x nil)
+    (=big5		"b-"	4 x nil)
+    (=ks-x1001		"k0-"	4 x nil)
+    ))
+
+(defun char-GlyphWiki-id (char)
+  (let ((rest coded-charset-GlyphWiki-id-alist)
+	spec
+	ret)
+    (while (and rest
+		(setq spec (pop rest))
+		(null (setq ret (encode-char char (car spec))))))
+    (when ret
+      (format (format "%s%%0%d%s%s"
+		      (nth 1 spec)
+		      (nth 2 spec)
+		      (nth 3 spec)
+		      (or (nth 4 spec) ""))
+	      ret))))
+
+
+;;; @ End.
+;;;
+
 (provide 'cwiki-common)
+
+;;; cwiki-common.el ends here