aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2006-10-08 21:41:59 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2006-10-08 21:41:59 +0000
commit139d4c177be102895960d45360bf5c185b72ac17 (patch)
tree816709ab83a51b94f38a5120fa9a4de1595b572d
parent3bac1bc6312395e44925eee099d7c2f57977adaf (diff)
downloadellinika-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
-rw-r--r--xml/lingua.conf.in14
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)

Return to:

Send suggestions and report system problems to the System administrator.