X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=blobdiff_plain;f=cwiki-edit.el;fp=cwiki-edit.el;h=a8d81a0abde455a89bbe53d8850c2df8efaaa82f;hp=7b8c506dc42dcce227f419902d9a5b8ef2b55fee;hb=41c6a9ab82c2142be738288dbff0be69e9ed191f;hpb=ed7b7d98e765c5577dfc09cb6ba784269087232d
diff --git a/cwiki-edit.el b/cwiki-edit.el
index 7b8c506..a8d81a0 100644
--- a/cwiki-edit.el
+++ b/cwiki-edit.el
@@ -69,28 +69,46 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
(let ((object (www-uri-decode-object genre uri-object))
(feature-name (www-uri-decode-feature-name uri-feature-name))
base-name metadata-name
+ parents
object-spec str)
- (when (characterp object)
+ (when object
(princ
- (format "
-CHISE-wiki character: %s
+ (encode-coding-string
+ (format "
+EsT %s = %s
\n"
- (encode-coding-string
- (decode-uri-string uri-object 'utf-8-mcs-er)
- 'utf-8-mcs-er)))
+ genre
+ (decode-uri-string uri-object 'utf-8-mcs-er))
+ 'utf-8-mcs-er))
(princ "\n")
+ (when (eq genre 'character)
+ (dolist (feature (char-feature-property '$object 'additional-features))
+ (mount-char-attribute-table
+ (char-feature-name-at-domain feature '$rev=latest))))
+ (when (setq parents (www-get-feature-value object '<-denotational))
+ (princ (format "%s %s
\n
\n"
+ (www-format-value-as-char-list parents)
+ (www-format-feature-name '->denotational lang))))
+ (when (setq parents (www-get-feature-value object '<-subsumptive))
+ (princ (format "%s %s
\n
\n"
+ (www-format-value-as-char-list parents)
+ (www-format-feature-name '->subsumptive lang))))
(princ
(format "%s
\n"
- (www-format-encode-string (char-to-string object))))
+ (www-format-encode-string (est-format-object object))))
(princ "