Add back the google search as it search the whole page

Author: Retropikzel

lib/chibi/snow/fort.scm

@@ -241,7 +241,19 @@
                (a (@ (href . "/pkg")) "Libraries")
                (a (@ (href . "/doc")) "Docs")
                (a (@ (href . "/link")) "Resources")
-               (a (@ (href . "/faq")) "FAQ")))
+               (a (@ (href . "/faq")) "FAQ"))
+          (form
+            (@ (action . "http://www.google.com/search"))
+            (input (@ (type . "text") (name . "q")))
+            (input (@ (type . "hidden")
+                      (name . "domains")
+                      (value . "snow-fort.org")))
+            (input (@ (type . "hidden")
+                      (name . "sitesearch")
+                      (value . "snow-fort.org")))
+            (input (@ (type . "submit")
+                      (name . "search")
+                      (value . "Search Libraries")))))
      ,body)))
 
 (define (dependency-url cfg dep . o)