(- (lsh value -8) 32)
(- (logand value 255) 32)))
+(defun www-format-value-default (value &optional without-tags)
+ (if (listp value)
+ (mapconcat
+ (lambda (unit)
+ (www-format-encode-string
+ (format "%S" unit)
+ without-tags))
+ value " ")
+ (www-format-encode-string (format "%S" value) without-tags)))
+
(defun www-format-value-as-char-list (value &optional without-tags)
(if (listp value)
(mapconcat
value)
(www-format-value-as-S-exp value)))
+(defun www-format-value-as-kangxi-radical (value)
+ (if (and (integerp value)
+ (<= 0 value)
+ (<= value 214))
+ (www-format-encode-string
+ (format "%c" (ideographic-radical value)))
+ (www-format-value-as-S-exp value)))
+
(defun www-format-value (object feature-name
&optional value format without-tags)
(unless value
(encode-coding-region (point-min)(point-max) 'utf-8-mcs-er)
(let ((coded-charset-entity-reference-alist
(list*
+ '(=gt "GT-" 5 d)
'(=cns11643-1 "C1-" 4 X)
'(=cns11643-2 "C2-" 4 X)
'(=cns11643-3 "C3-" 4 X)
'(=jis-x0208@1997 "J97-" 4 X)
'(=jis-x0208@1978 "J78-" 4 X)
'(=jis-x0208@1983 "J83-" 4 X)
- '(=gt "GT-" 5 d)
'(=zinbun-oracle "ZOB-" 4 d)
'(=jef-china3 "JC3-" 4 X)
'(=daikanwa "M-" 5 d)
t 'literal))
(goto-char (point-min))
+ (while (re-search-forward "&\\(G-\\)?GT-K\\([0-9]+\\);" nil t)
+ (setq code (string-to-int (match-string 2)))
+ (replace-match
+ (format "<img alt=\"GT-K%05d\" src=\"%s?char=GT-K%05d\">"
+ code
+ chise-wiki-glyph-cgi-url
+ code)
+ t 'literal))
+
+ (goto-char (point-min))
(while (re-search-forward "&B-\\([0-9A-F]+\\);" nil t)
(setq code (string-to-int (match-string 1) 16))
(replace-match
t 'literal))
(goto-char (point-min))
- (while (re-search-forward "&UU\\+\\([0-9A-F]+\\);" nil t)
- (setq code (string-to-int (match-string 1) 16))
+ (while (re-search-forward "&\\(UU\\+\\|U-\\)\\([0-9A-F]+\\);" nil t)
+ (setq code (string-to-int (match-string 2) 16))
(replace-match
(format "<img alt=\"UU+%04X\" src=\"http://www.unicode.org/cgi-bin/refglyph?24-%04X\">"
code
without-tags))
((eq format 'ku-ten)
(www-format-value-as-kuten value))
+ ((eq format 'kangxi-radical)
+ (www-format-value-as-kangxi-radical value))
((eq format 'space-separated-char-list)
(www-format-value-as-char-list value without-tags))
((eq format 'space-separated-ids)
(www-format-value-as-ids value without-tags))
+ ((eq format 'string)
+ (www-format-encode-string (format "%s" value) without-tags)
+ )
(t
- ;; (setq format 'default)
- (www-format-encode-string
- (format (www-format-props-to-string props 'default)
- value)
- without-tags))))
+ (www-format-value-default value without-tags)
+ ))
+ )
(if (or without-tags (eq (plist-get props :mode) 'peek))
ret
(format "%s <a href=\"%s?char=%s&feature=%s&format=%s\"
((null exp) "")
((consp exp)
(cond
- ((memq (car exp) '(value decimal hex HEX ku-ten S-exp default))
+ ((memq (car exp) '(value decimal hex HEX ku-ten kangxi-radical
+ S-exp default))
(if (eq (car exp) 'value)
(www-format-eval-feature-value char feature-name
(plist-get (nth 1 exp) :format)
(setq key (substring key 1)))
(setq dest
(format "%s %s=\"%s\""
- dest key val)))
+ dest key
+ (www-format-encode-string
+ (format "%s" val) 'without-tags))))
dest))
(defun www-xml-format-unit (format-unit)
- (let (name props children)
+ (let (name props children ret)
(cond
((stringp format-unit)
- format-unit)
+ (mapconcat (lambda (c)
+ (cond
+ ((eq c ?&) "&")
+ ;; ((eq c ?<) "&lt;")
+ ;; ((eq c ?>) "&gt;")
+ (t
+ (char-to-string c))))
+ (www-format-encode-string format-unit 'without-tags)
+ "")
+ )
((consp format-unit)
(setq name (car format-unit)
props (nth 1 format-unit)
children (nthcdr 2 format-unit))
+ (when (eq name 'link)
+ (setq ret (plist-get props :ref))
+ (unless (stringp ret)
+ (setq props (plist-remprop (copy-list props) :ref))
+ (setq children
+ (cons (list* 'ref nil ret)
+ children))))
(if children
(format "<%s%s>%s</%s>"
name
(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