(www-display-char-desc): Add input form for CHISE IDS-Find.

diff --git a/cwiki-view.el b/cwiki-view.el
index de83e12..4834330 100644 (file)
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -93,6 +93,28 @@
               (www-format-encode-string uri-char)))
       (princ
        (if (= level 1)
+          "<p>\n"
+        "<li>\n"))
+      (princ
+       "<form action=\"http://chise.zinbun.kyoto-u.ac.jp/ids-find\">\n")
+      (princ
+       (www-format-encode-string
+       (format "%c" char)))
+      (princ
+       (format
+       " <input type=\"text\" name=\"components\"
+size=\"30\" maxlength=\"30\" value=\"%s\" />"
+       (encode-coding-string (char-to-string char) 'utf-8-jp-er)))
+      ;; (princ (www-format-encode-string "と"))
+      ;; (princ "<input type=\"text\" name=\"additional-components\"
+size=\;; "30\" maxlength=\"30\" value=\"\" />")
+      (princ
+       (www-format-encode-string
+       "を\u542Bむ\u6F22\u5B57を\u63A2す"))
+      (princ " <input type=\"submit\" value=\"search\" />\n")
+      (princ "</form>\n")
+      (princ
+       (if (= level 1)
           "</p>\n"
         "<li>\n"))
       )))