diff options
Diffstat (limited to 'xml/lingua.conf.in')
-rw-r--r-- | xml/lingua.conf.in | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index d736bcb..87f40e3 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in @@ -1,24 +1,24 @@ <?xml version="1.0" encoding="UTF-8"?> <CONFIG> <LOGO SRC="graphics/parthenon-gnu.png" ALT=" [A GNU in front of the Parthenon] " /> <DIRECTORY CGIBIN="=SCRIPT_DIR=" /> <DIRECTORY TMP="=TMPDIR=" /> <DIRECTORY OUT="=OUTDIR=" /> <DIRECTORY TARGET="=TARGET_DIR=" /> <DIRECTORY SOUND="=TARGET_DIR=/sound" /> <AUTHOR EMAIL="=PACKAGE_BUGREPORT=" HOMEPAGE="http://gray.gnu.org.ua" /> - <DICT PROG="dict.=SCRIPT_SUFFIX=" /> + <DICT PROG="dict=SCRIPT_SUFFIX=" /> <BASE HREF="=BASE_HREF=" /> <SEARCH ARGS="(list (lingua:gettext "Search") (lingua:attr "LINGUA" "LANG"))"> <![CDATA[ <form method="get" action="/search" enctype="application/x-www-form-urlencoded"> <div> <label for="searchinput"> ~A <input id="searchinput" type="text" size="30" maxlength="255" name="q" value="" /> </label> <input type="hidden" id="searchlang" name="l" value="~A" /> </div> @@ -27,35 +27,35 @@ </SEARCH> <GUILE> <![CDATA[ (use-modules (xmltools dict) (ice-9 format)) (define-macro (install-nea) `(use-modules (xmltrans lingua) (xmltools dict)) (letrec ((nea (lambda (. args) (string-append (lingua:get-cgi-bin) - "/nea.=SCRIPT_SUFFIX=?lang=" + "/nea=SCRIPT_SUFFIX=?lang=" (lingua:LANG args))))) (xmltrans:set-attr "LINGUA" "NEA" nea))) (define-macro (install-conj) `(use-modules (xmltrans lingua) (xmltools dict)) (letrec ((conj (lambda (. args) (string-append (lingua:get-cgi-bin) - "/conj.=SCRIPT_SUFFIX=?lang=" + "/conj=SCRIPT_SUFFIX=?lang=" (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) (list |