+ (when (eq genre 'character)
+ (dolist (feature (char-feature-property '$object 'additional-features))
+ (mount-char-attribute-table
+ (char-feature-name-at-domain feature '$rev=latest))))
+ (princ
+ (format
+ (if simple
+ "<div style=\"text-align:right;\">
+<a href=\"edit/view.cgi?%s=%s\">
+<input type=\"submit\" value=\"Edit\" />
+</a>
+<input type=\"submit\" value=\"New Account\" />
+<a href=\"http://www.chise.org/est/rdf.cgi?%s=%s\">
+<input type=\"submit\" value=\"RDF\" />
+</a>
+</div>
+<hr />\n"
+ "<div style=\"text-align:right;\">
+<a href=\"../view.cgi?%s=%s\">
+<input type=\"submit\" value=\"Simple\" />
+</a>
+<input type=\"submit\" value=\"New Account\" />
+<a href=\"http://www.chise.org/est/rdf.cgi?%s=%s\">
+<input type=\"submit\" value=\"RDF\" />
+</a>
+</div>
+<hr />\n")
+ genre uri-object
+ genre uri-object))
+ (when (setq parents (www-get-feature-value object '<-denotational))
+ (princ (format "<p>%s %s</p>\n<hr>\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 "<p>%s %s</p>\n<hr>\n"
+ (www-format-value-as-char-list parents)
+ (www-format-feature-name '->subsumptive lang))))
+ (when (eq genre 'character)
+ (setq GlyphWiki-id (char-GlyphWiki-id object)))
+ (princ (format "<h%d>%s%s</h%d>\n"