From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Mon, 29 Mar 2010 13:18:55 +0000 (+0900)
Subject: (www-display-char-desc): Add input form for CHISE IDS-Find.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=93dac2e3bdd0f786510e024caca5bbc39af3b14f;p=chise%2Fest.git

(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
--- 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"))
       )))