From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 5 Apr 2010 23:53:16 +0000 (+0900)
Subject: (www-display-feature-desc): Add edit button for `format'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a648e223714094c69d6adb41f5964035b806bed;p=chise%2Fest.git

(www-display-feature-desc): Add edit button for `format'.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index e1044d3..dd143b2 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -176,15 +176,15 @@ size=\;; "30\" maxlength=\"30\" value=\"\" />")
 	      (symbol-name feature-name))))
     (princ (format "<p>name : %s "
 		   (or (www-format-feature-name feature-name) "")))
-    (princ
-     (format
-      " <a href=\"%s?feature=%s&property=name&format=string&char=%s\">"
-      chise-wiki-edit-url
-      uri-feature-name
-      uri-char))
     (unless simple
-      (princ "<input type=\"submit\" value=\"edit\" />"))
-    (princ "</a>\n</p>\n")
+      (princ
+       (format
+	" <a href=\"%s?feature=%s&property=name&format=string&char=%s\">"
+	chise-wiki-edit-url
+	uri-feature-name
+	uri-char))
+      (princ "<input type=\"submit\" value=\"edit\" /></a>\n"))
+    (princ "</p>\n")
     (when lang
       (princ "<p>")
       (princ
@@ -192,16 +192,16 @@ size=\;; "30\" maxlength=\"30\" value=\"\" />")
 	(format "%s : %s"
 		name@lang
 		(or (char-feature-property feature-name name@lang) ""))))
-      (princ
-       (format
-	" <a href=\"%s?feature=%s&property=%s&format=string&char=%s\">"
-	chise-wiki-edit-url
-	uri-feature-name
-	name@lang
-	uri-char))
       (unless simple
-	(princ "<input type=\"submit\" value=\"edit\" />"))
-      (princ "</a>\n</p>\n"))
+	(princ
+	 (format
+	  " <a href=\"%s?feature=%s&property=%s&format=string&char=%s\">"
+	  chise-wiki-edit-url
+	  uri-feature-name
+	  name@lang
+	  uri-char))
+	(princ "<input type=\"submit\" value=\"edit\" /></a>\n"))
+      (princ "</p>\n"))
     (www-html-display-paragraph
      (format "type : %s"
              (or (www-feature-type feature-name)
@@ -214,22 +214,33 @@ size=\;; "30\" maxlength=\"30\" value=\"\" />")
 			'default)
 		    'default
 		    'without-tags)))
-    (princ
-     (format
-      " <a href=\"%s?feature=%s&property=value-format&format=wiki-text&char=%s\"
->"
-      chise-wiki-edit-url
-      uri-feature-name
-      uri-char))
     (unless simple
-      (princ "<input type=\"submit\" value=\"edit\" />"))
-    (princ "</a>\n</p>\n")
+      (princ
+       (format
+	" <a href=\"%s?feature=%s&property=value-format&format=wiki-text&char=%s\"
+>"
+	chise-wiki-edit-url
+	uri-feature-name
+	uri-char))
+      (princ "<input type=\"submit\" value=\"edit\" /></a>\n"))
+    (princ "</p>\n")
 
-    (www-html-display-paragraph
-     (format "format : %s"
-	     (www-xml-format-list
-	      (or (char-feature-property feature-name 'format)
-		  '((name) " : " (value))))))
+    (princ "<p>format : ")
+    (www-html-display-text
+     (www-xml-format-list
+      (or (char-feature-property feature-name 'format)
+	  '((name) " : " (value)))))
+    (unless simple
+      (princ
+       (format
+	" <a href=\"%s?feature=%s&property=format&format=wiki-text&char=%s\"
+>"
+	chise-wiki-edit-url
+	uri-feature-name
+	uri-char))
+      (princ "<input type=\"submit\" value=\"edit\" /></a>\n"))
+    (princ "</p>\n")
+    
     (www-html-display-paragraph
      (format "description : %s"
              (or (char-feature-property feature-name 'description)