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

[chise/est.git] / cwiki-common.el

diff --git a/cwiki-common.el b/cwiki-common.el
index 7ab7a54..a6815ef 100644 (file)
--- 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