From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 26 Aug 2013 07:21:35 +0000 (+0900)
Subject: (www-display-feature-desc): Display `value-presentation-format'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0dea394da296688c68308ece38cea0617274b696;p=chise%2Fest.git

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

diff --git a/cwiki-view.el b/cwiki-view.el
index 42fe042..75d32ec 100644
--- 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