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

diff --git a/cwiki-view.el b/cwiki-view.el
index e1044d3..dd143b2 100644 (file)
--- 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)