diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-20 13:05:27 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2011-06-20 13:05:27 +0300 |
commit | 2bf7460851d3d03274d1b5f979b943cb00f1813e (patch) | |
tree | 70533c308dd6e2376e72753859120ea1a8d29ae0 /src/ellinika/cgi.scm4 | |
parent | b56552e3260023593a3bf80315edf0f069eebac1 (diff) | |
download | ellinika-2bf7460851d3d03274d1b5f979b943cb00f1813e.tar.gz ellinika-2bf7460851d3d03274d1b5f979b943cb00f1813e.tar.bz2 |
Improve coupling between dict and conj.
* po/pl.po: Update
* src/cgi-bin/conj.scm4: Use cgi-program-name to generate
references to dict.
* src/cgi-bin/dict.scm4: Add a reference to conjugator (for verbs).
* src/ellinika/Makefile.am: Define SCRIP_SUFFIX
* src/ellinika/cgi.scm4 (cgi-program-name): New function.
* style.css: Update.
Diffstat (limited to 'src/ellinika/cgi.scm4')
-rw-r--r-- | src/ellinika/cgi.scm4 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/ellinika/cgi.scm4 b/src/ellinika/cgi.scm4 index d1b4a5c..8c9b54d 100644 --- a/src/ellinika/cgi.scm4 +++ b/src/ellinika/cgi.scm4 @@ -109,6 +109,11 @@ ifelse(IFACE,[CGI],,dnl arglist (cons "?" arglist)))))) +(define-public (cgi-program-name prog) + (string-append + (substring cgi-script-name 0 (string-rindex cgi-script-name #\/)) "/" + prog ".SCRIPT_SUFFIX")) + (define-public (expand-template explist template) "(expand-template EXPLIST TEMPLATE) |