(www-edit-display-feature-input-box): Add new optional argument

[chise/est.git] / cwiki-edit.el

diff --git a/cwiki-edit.el b/cwiki-edit.el
index f58bd94..9bcda3b 100644 (file)
--- a/cwiki-edit.el
+++ b/cwiki-edit.el
@@ -54,9 +54,11 @@ size=\"30\" maxlength=\"30\" value=\"%s\">
             ))))
 
 (defun www-edit-display-feature-input-box (char feature-name
-                                               &optional format)
+                                               &optional format value)
   (unless format
     (setq format 'default))
+  (unless value
+    (setq value (www-char-feature char feature-name)))
   (princ
    (format "<p><input type=\"text\" name=\"feature-name\"
 size=\"32\" maxlength=\"256\" value=\"%s\">"
@@ -75,12 +77,11 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
                        (cond
                          ;; ((eq c ?<) "&amp;lt;")
                          ;; ((eq c ?>) "&amp;gt;")
-                        ((eq c ?") "&quot;")
+                        ((eq c ?\u0022) "&quot;")
                         (t
                          (char-to-string c))))
                      (www-format-value char feature-name
-                                       (www-char-feature char feature-name)
-                                       format 'without-tags)
+                                       value format 'without-tags)
                      "")))
   )
 
@@ -176,10 +177,13 @@ size=\"30\" maxlength=\"30\" value=\"%s\">に限\u5B9Aしない)
       'utf-8-mcs-er))
     (princ "<p>")
     (if (eq property-name 'name)
-       (www-edit-display-input-box
-        feature-name
-        property-name
-        (or (www-format-feature-name* feature-name) ""))
+       ;; (www-edit-display-input-box
+        ;;  feature-name
+        ;;  property-name
+        ;;  (or (www-format-feature-name* feature-name) ""))
+       (www-edit-display-feature-input-box
+        feature-name property-name
+        'string (or (www-format-feature-name* feature-name) ""))
       (www-html-display-paragraph
        (format "name : %s [[[edit|edit.cgi?feature=%s&property=name]]]"
               (or (www-format-feature-name* feature-name) "")
@@ -189,10 +193,13 @@ size=\"30\" maxlength=\"30\" value=\"%s\">に限\u5B9Aしない)
     (when lang
       (setq name@lang (intern (format "name@%s" lang)))
       (if (eq property-name name@lang)
-         (www-edit-display-input-box
-          feature-name
-          name@lang
-          (or (char-feature-property feature-name name@lang) ""))
+          ;; (www-edit-display-input-box
+          ;;  feature-name
+          ;;  name@lang
+          ;;  (or (char-feature-property feature-name name@lang) ""))
+         (www-edit-display-feature-input-box
+          feature-name name@lang
+          'string (or (char-feature-property feature-name name@lang) ""))
        (www-html-display-paragraph
         (format "%s : %s [[[edit|edit.cgi?feature=%s&property=%s]]]"
                 name@lang
@@ -204,6 +211,20 @@ size=\"30\" maxlength=\"30\" value=\"%s\">に限\u5B9Aしない)
              (or (www-feature-type feature-name)
                 ;; (char-feature-property feature-name 'type)
                 'generic)))
+    (if (eq property-name 'value-format)
+       (www-edit-display-feature-input-box
+        feature-name property-name
+        'default ; 'wiki-text
+        (or (www-feature-value-format feature-name)
+            'default))
+      (www-html-display-paragraph
+       (format "value-format : %s [[[edit|edit.cgi?feature=%s&property=name]]]"
+              (www-xml-format-list
+               (or (www-feature-value-format feature-name)
+                   'default))
+              ;; (char-feature-property feature-name 'name)
+              uri-feature-name ; (www-uri-encode-feature-name feature-name)
+              )))
     (www-html-display-paragraph
      (format "description : %s"
              (or (char-feature-property feature-name 'description)