(www-batch-ids-find): Display a brief description when components are

not specified.

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 68efbd6..5b88581 100644 (file)
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -59,7 +59,7 @@
     (princ (encode-coding-string "\e$BItIJJ8;zNs\e(B" 'utf-8-jp-er))
     (princ " <input type=\"text\" name=\"components\" size=\"30\" maxlength=\"30\" value=\"")
     (if (> (length components) 0)
-       (princ (encode-coding-string components 'utf-8-er)))
+       (princ (encode-coding-string components 'utf-8-jp-er)))
     (princ "\">
 <input type=\"submit\" value=\"")
     (princ (encode-coding-string "\e$B8!:w3+;O\e(B" 'utf-8-jp-er))
@@ -67,7 +67,8 @@
 </form>
 
 ")
-    (when components
+    (cond
+     (components
       ;; (map-char-attribute
       ;;  (lambda (c v)
       ;;    (when (every (lambda (p)
@@ -140,6 +141,20 @@
          (princ "<br>\n")
          ))
       )
+     (t
+      (princ (encode-coding-string "<hr>
+<p>
+\e$B;XDj$7$?ItIJ$rA4$F4^$`4A;z$N0lMw$rI=<($7$^$9!#\e(B
+<p>
+CHISE \e$B$GMQ$$$i$l$k<BBV;2>H7A<0!JNc!'\e(B&amp;M-00003;\e$B!K$GItIJ$r;XDj$9$k;v$b$G$-$^$9!#\e(B" 'utf-8-jp-er))
+      ))
+    (princ "<hr>")
+    (princ
+     (format
+      "Powered by <a
+href=\"http://kanji.zinbun.kyoto-u.ac.jp/projects/chise/xemacs/\"
+>XEmacs CHISE</a> %s."
+      xemacs-chise-version))
     (princ "
 </body>
 </html>