(www-display-feature-desc): Modify design of [edit] button.

diff --git a/cwiki-view.el b/cwiki-view.el
index 17d1996..30d07ae 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -97,12 +97,18 @@
              (symbol-name feature-name))))
     (princ (format "<p>name : %s "
                   (or (www-format-feature-name feature-name) "")))
-    (www-html-display-text
-     (format "[[[edit|%s?feature=%s&property=name&char=%s]]]"
-            ;; (char-feature-property feature-name 'name)
+    (princ
+     (format " <a href=\"%s?feature=%s&property=name&format=string&char=%s\"
+><input type=\"submit\" value=\"edit\" /></a>"
             chise-wiki-edit-url
-            uri-feature-name ; (www-uri-encode-feature-name feature-name)
+            uri-feature-name
             uri-char))
+    ;; (www-html-display-text
+    ;;  (format "[[[edit|%s?feature=%s&property=name&char=%s]]]"
+    ;;          ;; (char-feature-property feature-name 'name)
+    ;;          chise-wiki-edit-url
+    ;;          uri-feature-name ; (www-uri-encode-feature-name feature-name)
+    ;;          uri-char))
     (princ "</p>")
     (when lang
       (princ "<p>")
@@ -111,12 +117,19 @@
        (format "%s : %s"
                name@lang
                (or (char-feature-property feature-name name@lang) ""))))
-      (www-html-display-text
-       (format " [[[edit|%s?feature=%s&property=%s&char=%s]]]"
+      (princ
+       (format " <a href=\"%s?feature=%s&property=%s&format=string&char=%s\"
+><input type=\"submit\" value=\"edit\" /></a>"
               chise-wiki-edit-url
               uri-feature-name
               name@lang
               uri-char))
+      ;; (www-html-display-text
+      ;;  (format " [[[edit|%s?feature=%s&property=%s&char=%s]]]"
+      ;;          chise-wiki-edit-url
+      ;;          uri-feature-name
+      ;;          name@lang
+      ;;          uri-char))
       (princ "</p>"))
     (www-html-display-paragraph
      (format "type : %s"