From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 11 Feb 2016 09:52:52 +0000 (+0900)
Subject: (www-display-object-desc): Add input box for
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=commitdiff_plain;h=a0a80a2bd59d778b163a4e4e45d4c996930f086d

(www-display-object-desc): Add input box for
http://www.chise.org/hng-ids-find.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index bfc35fb..2dc1c83 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -289,7 +289,33 @@ size=\"30\" maxlength=\"30\" value=\"%s\" />"
 	 (www-format-encode-string
 	  "を\u542Bむ\u6F22\u5B57を\u63A2す"))
 	(princ " <input type=\"submit\" value=\"search\" />\n")
-	(princ "</form>\n"))
+	(princ "</form>\n")
+
+	(princ
+	 "<form action=\"http://www.chise.org/hng-ids-find\">\n")
+	(princ
+	 (www-format-encode-string
+	  (est-format-object object)
+	  ;; (if (eq genre 'character)
+	  ;;     (format "%c" object)
+	  ;;   (format "%s" (concord-object-id object)))
+	  ))
+	(princ
+	 (format
+	  " <input type=\"text\" name=\"components\"
+size=\"30\" maxlength=\"30\" value=\"%s\" />"
+	  (encode-coding-string
+	   (est-format-object object)
+	   ;; (if (eq genre 'character)
+	   ;;     (char-to-string object)
+	   ;;   (format "%s" (concord-object-id object)))
+	   'utf-8-jp-er)))
+	(princ
+	 (www-format-encode-string
+	  "を\u542Bむ HNG の\u6F22\u5B57を\u63A2す"))
+	(princ " <input type=\"submit\" value=\"search\" />\n")
+	(princ "</form>\n")
+	)
       (princ
        (if (= level 1)
 	   "</p>\n"