From 6c7a32603f6028fa2d80b5b9eb209539de3088c2 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Mon, 29 Mar 2010 09:56:21 +0900 Subject: [PATCH] (coded-charset-GlyphWiki-id-alist): New variable. (char-GlyphWiki-id): New function. --- cwiki-common.el | 58 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) 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 "

\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 -- 1.7.10.4