aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2008-06-21 22:37:28 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2008-06-21 22:37:28 +0000
commit64af4748a2cae68c7ff4aa48d3dc7c93a2d469f6 (patch)
treead814d2b70fd119e3c6bfbe9557d454b8bb05e63
parent0b6c4fa6b8ed26f71695e4f3e55bbc561e0e0f0f (diff)
downloadellinika-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--ChangeLog8
-rw-r--r--cgi-bin/dict.scm42
-rw-r--r--data/pl/setup.xml2
-rw-r--r--ellinika/i18n.scm7
4 files changed, 16 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index cfdcbbe..75c993e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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

Return to:

Send suggestions and report system problems to the System administrator.