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
@@ -6,13 +6,13 @@
6 <DIRECTORY OUT="=OUTDIR=" /> 6 <DIRECTORY OUT="=OUTDIR=" />
7 <DIRECTORY TARGET="=TARGET_DIR=" /> 7 <DIRECTORY TARGET="=TARGET_DIR=" />
8 <DIRECTORY SOUND="=TARGET_DIR=/sound" /> 8 <DIRECTORY SOUND="=TARGET_DIR=/sound" />
9 9
10 <AUTHOR EMAIL="=PACKAGE_BUGREPORT=" HOMEPAGE="http://gray.gnu.org.ua" /> 10 <AUTHOR EMAIL="=PACKAGE_BUGREPORT=" HOMEPAGE="http://gray.gnu.org.ua" />
11 11
12 <DICT PROG="dict.=SCRIPT_SUFFIX=" /> 12 <DICT PROG="dict=SCRIPT_SUFFIX=" />
13 <BASE HREF="=BASE_HREF=" /> 13 <BASE HREF="=BASE_HREF=" />
14 <SEARCH ARGS="(list (lingua:gettext &quot;Search&quot;) (lingua:attr &quot;LINGUA&quot; &quot;LANG&quot;))"> 14 <SEARCH ARGS="(list (lingua:gettext &quot;Search&quot;) (lingua:attr &quot;LINGUA&quot; &quot;LANG&quot;))">
15 <![CDATA[ 15 <![CDATA[
16 <form method="get" 16 <form method="get"
17 action="/search" 17 action="/search"
18 enctype="application/x-www-form-urlencoded"> 18 enctype="application/x-www-form-urlencoded">
@@ -33,23 +33,23 @@
33(define-macro (install-nea) 33(define-macro (install-nea)
34 `(use-modules (xmltrans lingua) 34 `(use-modules (xmltrans lingua)
35 (xmltools dict)) 35 (xmltools dict))
36 (letrec ((nea (lambda (. args) 36 (letrec ((nea (lambda (. args)
37 (string-append 37 (string-append
38 (lingua:get-cgi-bin) 38 (lingua:get-cgi-bin)
39 "/nea.=SCRIPT_SUFFIX=?lang=" 39 "/nea=SCRIPT_SUFFIX=?lang="
40 (lingua:LANG args))))) 40 (lingua:LANG args)))))
41 (xmltrans:set-attr "LINGUA" "NEA" nea))) 41 (xmltrans:set-attr "LINGUA" "NEA" nea)))
42 42
43(define-macro (install-conj) 43(define-macro (install-conj)
44 `(use-modules (xmltrans lingua) 44 `(use-modules (xmltrans lingua)
45 (xmltools dict)) 45 (xmltools dict))
46 (letrec ((conj (lambda (. args) 46 (letrec ((conj (lambda (. args)
47 (string-append 47 (string-append
48 (lingua:get-cgi-bin) 48 (lingua:get-cgi-bin)
49 "/conj.=SCRIPT_SUFFIX=?lang=" 49 "/conj=SCRIPT_SUFFIX=?lang="
50 (lingua:LANG args))))) 50 (lingua:LANG args)))))
51 (xmltrans:set-attr "LINGUA" "CONJ" conj))) 51 (xmltrans:set-attr "LINGUA" "CONJ" conj)))
52 52
53(define-macro (install-srch) 53(define-macro (install-srch)
54 `(letrec ((srch (lambda (. args) 54 `(letrec ((srch (lambda (. args)
55 (string-append "/search?l=" (lingua:LANG args))))) 55 (string-append "/search?l=" (lingua:LANG args)))))

Return to:

Send suggestions and report system problems to the System administrator.