From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Sat, 20 Mar 2010 12:26:48 +0000 (+0900)
Subject: (www-display-feature-desc): Display [edit] button of `value-format'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb2d550713bf881152792dd8555557a72734a3a3;p=chise%2Fest.git

(www-display-feature-desc): Display [edit] button of `value-format'.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 30d07ae..911b190 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -136,11 +136,24 @@
              (or (www-feature-type feature-name)
 		 ;; (char-feature-property feature-name 'type)
 		 'generic)))
-    (www-html-display-paragraph
-     (format "value-format : %s"
-	     (www-xml-format-list
-	      (or (www-feature-value-format feature-name)
-		  'default))))
+    (princ (format "<p>value-format : %s "
+		   (www-format-encode-string
+		    (www-xml-format-list
+		     (or (www-feature-value-format feature-name)
+			 'default)))))
+    ;; (www-html-display-paragraph
+    ;;  (format "value-format : %s"
+    ;;          (www-xml-format-list
+    ;;           (or (www-feature-value-format feature-name)
+    ;;               'default))))
+    (princ
+     (format
+      " <a href=\"%s?feature=%s&property=value-format&format=wiki-text&char=%s\"
+><input type=\"submit\" value=\"edit\" /></a></p>"
+      chise-wiki-edit-url
+      uri-feature-name
+      uri-char))
+
     (www-html-display-paragraph
      (format "format : %s"
 	     (www-xml-format-list