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 | |||
@@ -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 "Search") (lingua:attr "LINGUA" "LANG"))"> | 14 | <SEARCH ARGS="(list (lingua:gettext "Search") (lingua:attr "LINGUA" "LANG"))"> |
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))))) |