(www-display-feature-desc): Display `value-presentation-format'.

[chise/est.git] / cwiki-view.el

diff --git a/cwiki-view.el b/cwiki-view.el
index 42fe042..75d32ec 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -342,6 +342,26 @@ size=\"30\" maxlength=\"30\" value=\"%s\" />"
       (princ "<input type=\"submit\" value=\"edit\" /></a>\n"))
     (princ "</p>\n")
 
+    (princ (format "<p>value-presentation-format : %s "
+                  (www-format-value
+                   nil 'value-presentation-format 
+                   (or (www-feature-value-format feature-name)
+                       'default)
+                   'default
+                   'without-tags)
+                  ))
+    (unless simple
+      (princ
+       (format
+       " <a href=\"%s?feature=%s&property=value-presentation-format&format=wiki-text&%s=%s\"
+>"
+       chise-wiki-edit-url
+       uri-feature-name
+       genre
+       uri-object))
+      (princ "<input type=\"submit\" value=\"edit\" /></a>\n"))
+    (princ "</p>\n")
+
     (princ "<p>format : ")
     (www-html-display-text
      (decode-coding-string