help.html: use GET not POST for search form, so that the search term appears in the...

diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 29174b61273018d1e797f692284784d27d6c9dbf..f19cd705e590cedb60bdafad12425470c9ace9a2 100644 (file)
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -1,4 +1,4 @@
-! Copyright (C) 2008, 2010 Slava Pestov.
+! Copyright (C) 2008, 2011 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: io.encodings.utf8 io.encodings.binary io.files
 io.files.temp io.directories html.streams help help.home kernel
@@ -70,7 +70,7 @@ M: topic url-of topic>filename ;
         <b> Factor Documentation </b> |
         <a href="/">Home</a> |
         <a href="article-conventions.html">Glossary</a> |
-        <form method="post" action="/search" style="display:inline;">
+        <form method="get" action="/search" style="display:inline;">
             <input name="search" type="text"/>
             <button type="submit">Search</button>
         </form>
@@ -81,8 +81,12 @@ M: topic url-of topic>filename ;
 : help>html ( topic -- xml )
     [ article-title " - Factor Documentation" append ]
     [ drop help-stylesheet ]
-    [ [ print-topic ] with-html-writer help-navbar prepend ]
-    tri simple-page ;
+    [
+        [ help-navbar ]
+        [ [ print-topic ] with-html-writer ]
+        bi* append
+    ] tri
+    simple-page ;
 
 : generate-help-file ( topic -- )
     dup topic>filename utf8 [ help>html write-xml ] with-file-writer ;