From 139d4c177be102895960d45360bf5c185b72ac17 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sun, 8 Oct 2006 21:41:59 +0000
Subject: (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
---
 xml/lingua.conf.in | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'xml')

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 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <LOGO SRC="graphics/parthenon-gnu.png" ALT=" [A GNU in front of the Parthenon] " />
- <DIRECTORY CGIBIN="/cgi-bin" />
+ <DIRECTORY CGIBIN="=SCRIPT_DIR=" />
  <DIRECTORY TMP="=TMPDIR=" />
  <DIRECTORY OUT="=OUTDIR=" />
  <DIRECTORY TARGET="=TARGET_DIR=" />
  <DIRECTORY SOUND="/sound" />
+
+ <DICT PROG="dict.=SCRIPT_SUFFIX=" /> 
  <BASE HREF="=BASE_HREF=" />
  <SOUNDREF>
   <![CDATA[
@@ -18,6 +20,16 @@
 	     (xmltrans lingua)
              (xmltools dict))
 
+(define-macro (install-nea)
+ `(use-modules (xmltrans lingua)
+	       (xmltools dict))
+    (letrec ((nea (lambda (. args)
+	            (string-append
+		     (lingua:get-cgi-bin)
+		     "/nea.=SCRIPT_SUFFIX=?LANG="
+		     (lingua:LANG args)))))
+      (xmltrans:set-attr "LINGUA" "NEA" nea)))
+	     
 (xmltrans:end-tag
  "KATHAREVUSA"
  (tag attr text)
-- 
cgit v1.2.1