From: MORIOKA Tomohiko Date: Sun, 28 Mar 2010 20:02:35 +0000 (+0900) Subject: (www-display-char-desc): Display parents in the header. X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8d3e1acc90a28a6cff90f18396a880ac06a05f37;p=chise%2Fest.git (www-display-char-desc): Display parents in the header. (www-display-feature-desc): Use `www-format-value' with default format instead of `www-xml-format-list' and `www-format-encode-string'. --- diff --git a/cwiki-view.el b/cwiki-view.el index 911b190..72aeb42 100644 --- a/cwiki-view.el +++ b/cwiki-view.el @@ -9,7 +9,8 @@ (unless level (setq level 1)) (let ((char (www-uri-decode-char uri-char)) - logical-feature displayed-features) + logical-feature displayed-features + parents) (when (characterp char) (when (= (length uri-char) 1) (setq uri-char (www-uri-encode-char char))) @@ -22,15 +23,23 @@ (decode-uri-string uri-char 'utf-8-mcs-er)) 'utf-8-mcs-er)) (princ "\n")) + (dolist (feature (char-feature-property '$object 'additional-features)) + (mount-char-attribute-table + (char-feature-name-at-domain feature '$rev=latest))) + (when (setq parents (www-char-feature char '<-denotational)) + (princ (format "

%s %s

\n
\n" + (www-format-value-as-char-list parents) + (www-format-feature-name '->denotational lang)))) + (when (setq parents (www-char-feature char '<-subsumptive)) + (princ (format "

%s %s

\n
\n" + (www-format-value-as-char-list parents) + (www-format-feature-name '->subsumptive lang)))) (princ (format "%s\n" level (www-format-encode-string (char-to-string char)) level)) (if (> level 1) (princ "