aboutsummaryrefslogtreecommitdiff
path: root/xml/lingua.conf.in
diff options
context:
space:
mode:
Diffstat (limited to 'xml/lingua.conf.in')
-rw-r--r--xml/lingua.conf.in6
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 &quot;Search&quot;) (lingua:attr &quot;LINGUA&quot; &quot;LANG&quot;))">
<![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

Return to:

Send suggestions and report system problems to the System administrator.