diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-10-08 21:41:59 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2006-10-08 21:41:59 +0000 |
commit | 139d4c177be102895960d45360bf5c185b72ac17 (patch) | |
tree | 816709ab83a51b94f38a5120fa9a4de1595b572d /xml | |
parent | 3bac1bc6312395e44925eee099d7c2f57977adaf (diff) | |
download | ellinika-139d4c177be102895960d45360bf5c185b72ac17.tar.gz ellinika-139d4c177be102895960d45360bf5c185b72ac17.tar.bz2 |
(DIRECTORY CGIBIN): Configurable
(DICT): New element
(install-nea): New macro
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@465 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'xml')
-rw-r--r-- | xml/lingua.conf.in | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/xml/lingua.conf.in b/xml/lingua.conf.in index e5c1eea..41ed693 100644 --- a/xml/lingua.conf.in +++ b/xml/lingua.conf.in | |||
@@ -1,11 +1,13 @@ | |||
1 | <?xml version="1.0" encoding="UTF-8"?> | 1 | <?xml version="1.0" encoding="UTF-8"?> |
2 | <CONFIG> | 2 | <CONFIG> |
3 | <LOGO SRC="graphics/parthenon-gnu.png" ALT=" [A GNU in front of the Parthenon] " /> | 3 | <LOGO SRC="graphics/parthenon-gnu.png" ALT=" [A GNU in front of the Parthenon] " /> |
4 | <DIRECTORY CGIBIN="/cgi-bin" /> | 4 | <DIRECTORY CGIBIN="=SCRIPT_DIR=" /> |
5 | <DIRECTORY TMP="=TMPDIR=" /> | 5 | <DIRECTORY TMP="=TMPDIR=" /> |
6 | <DIRECTORY OUT="=OUTDIR=" /> | 6 | <DIRECTORY OUT="=OUTDIR=" /> |
7 | <DIRECTORY TARGET="=TARGET_DIR=" /> | 7 | <DIRECTORY TARGET="=TARGET_DIR=" /> |
8 | <DIRECTORY SOUND="/sound" /> | 8 | <DIRECTORY SOUND="/sound" /> |
9 | |||
10 | <DICT PROG="dict.=SCRIPT_SUFFIX=" /> | ||
9 | <BASE HREF="=BASE_HREF=" /> | 11 | <BASE HREF="=BASE_HREF=" /> |
10 | <SOUNDREF> | 12 | <SOUNDREF> |
11 | <![CDATA[ | 13 | <![CDATA[ |
@@ -18,6 +20,16 @@ | |||
18 | (xmltrans lingua) | 20 | (xmltrans lingua) |
19 | (xmltools dict)) | 21 | (xmltools dict)) |
20 | 22 | ||
23 | (define-macro (install-nea) | ||
24 | `(use-modules (xmltrans lingua) | ||
25 | (xmltools dict)) | ||
26 | (letrec ((nea (lambda (. args) | ||
27 | (string-append | ||
28 | (lingua:get-cgi-bin) | ||
29 | "/nea.=SCRIPT_SUFFIX=?LANG=" | ||
30 | (lingua:LANG args))))) | ||
31 | (xmltrans:set-attr "LINGUA" "NEA" nea))) | ||
32 | |||
21 | (xmltrans:end-tag | 33 | (xmltrans:end-tag |
22 | "KATHAREVUSA" | 34 | "KATHAREVUSA" |
23 | (tag attr text) | 35 | (tag attr text) |