diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2008-06-21 22:37:28 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2008-06-21 22:37:28 +0000 |
commit | 64af4748a2cae68c7ff4aa48d3dc7c93a2d469f6 (patch) | |
tree | ad814d2b70fd119e3c6bfbe9557d454b8bb05e63 | |
parent | 0b6c4fa6b8ed26f71695e4f3e55bbc561e0e0f0f (diff) | |
download | ellinika-64af4748a2cae68c7ff4aa48d3dc7c93a2d469f6.tar.gz ellinika-64af4748a2cae68c7ff4aa48d3dc7c93a2d469f6.tar.bz2 |
* ellinika/i18n.scm (_): New syntax.
* cgi-bin/dict.scm4 (gamma gettext): Remove.
Use (ellinika i18n).
* data/pl/setup.xml: Fix copy-n-paste error.
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@524 941c8c0f-9102-463b-b60b-cd22ce0e6858
-rw-r--r-- | ChangeLog | 8 | ||||
-rw-r--r-- | cgi-bin/dict.scm4 | 2 | ||||
-rw-r--r-- | data/pl/setup.xml | 2 | ||||
-rw-r--r-- | ellinika/i18n.scm | 7 |
4 files changed, 16 insertions, 3 deletions
@@ -1,3 +1,11 @@ +2008-06-22 Sergey Poznyakoff <gray@gnu.org.ua> + + * ellinika/i18n.scm (_): New syntax. + * cgi-bin/dict.scm4 (gamma gettext): Remove. + Use (ellinika i18n). + + * data/pl/setup.xml: Fix copy-n-paste error. + 2008-06-21 Sergey Poznyakoff <gray@gnu.org.ua> * ellinika/dico.scm4: Rename to dico.scm. There is no use to diff --git a/cgi-bin/dict.scm4 b/cgi-bin/dict.scm4 index 7397feb..c9f895b 100644 --- a/cgi-bin/dict.scm4 +++ b/cgi-bin/dict.scm4 @@ -21,8 +21,8 @@ (use-modules ifelse(IFACE,[CGI],(www cgi),(guile-user)) (ice-9 rdelim) (gamma sql) - (gamma gettext) (xmltools dict) + (ellinika i18n) (ellinika xlat) (ellinika cgi)) diff --git a/data/pl/setup.xml b/data/pl/setup.xml index 88bc96a..d7d0aa7 100644 --- a/data/pl/setup.xml +++ b/data/pl/setup.xml @@ -40,7 +40,7 @@ <TD>Συνηρημένα ρήματα με αόρ. σε -αξα</TD> </CLASS> - <CLASS ID="Тексты"> + <CLASS ID="Teksty"> <D>Leksyka z tekstów ćwiczebnych</D> <TD>ταινία "Χτυποκάρδια στα θρανία"</TD> <TD>Ιλιάδα 2/3</TD> diff --git a/ellinika/i18n.scm b/ellinika/i18n.scm index 4031254..474c8c9 100644 --- a/ellinika/i18n.scm +++ b/ellinika/i18n.scm @@ -15,9 +15,14 @@ ;;;; along with this program. If not, see <http://www.gnu.org/licenses/>. (define-module (ellinika i18n) + #:use-syntax (ice-9 syncase) + #:export-syntax (_) #:export (locale-setup)) -(use-modules (gamma gettext)) +(define-syntax _ + (syntax-rules () + ((_ msg) (gettext msg)))) + ;;; ISO 639 language code => ISO 3166 country code ;;; The corresponding country codes where selected using the following |