diff options
Diffstat (limited to 'xml/lingua.conf.in')
-rw-r--r-- | xml/lingua.conf.in | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index 66e62cb..d736bcb 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -11,22 +11,19 @@ <DICT PROG="dict.=SCRIPT_SUFFIX=" /> <BASE HREF="=BASE_HREF=" /> - <SEARCH ARGS="(list (lingua:gettext "Search"))"> + <SEARCH ARGS="(list (lingua:gettext "Search") (lingua:attr "LINGUA" "LANG"))"> <![CDATA[ <form method="get" - action="http://www.google.com/custom" + action="/search" enctype="application/x-www-form-urlencoded"> <div> <label for="searchinput"> - ~A <img src="=TARGET_DIR=/graphics/google.png" alt="[Google]" width="75" height="32" /> - <input id="searchinput" type="text" size="30" maxlength="255" name="q" value="" /> - </label> - <input type="hidden" name="cof" value="L:http://ellinika.gnu.org.ua/graphics/parthenon-gnu.png;LW:180;LH:140;T:black;ALC:#ff3300;LC:#000099;BGC:white;AH:left;VLC:#660066;GL:0;" /> - - <input type="hidden" id="searchEllinika" name="sitesearch" checked="checked" value="ellinika.gnu.org.ua" /> - <input type="hidden" name="domains" value="ellinika.gnu.org.ua" /> + ~A <input id="searchinput" type="text" size="30" maxlength="255" name="q" value="" /> + </label> + <input type="hidden" id="searchlang" name="l" value="~A" /> </div> - </form>]]> + </form> + ]]> </SEARCH> <GUILE> <![CDATA[ @@ -53,6 +50,11 @@ (lingua:LANG args))))) (xmltrans:set-attr "LINGUA" "CONJ" conj))) +(define-macro (install-srch) + `(letrec ((srch (lambda (. args) + (string-append "/search?l=" (lingua:LANG args))))) + (xmltrans:set-attr "LINGUA" "SRCH" srch))) + (xmltrans:end-tag "FOOTER" (tag attr text) |