summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/biblio/template.scm6
-rw-r--r--src/guile/skribilo/utils/syntax.scm23
2 files changed, 23 insertions, 6 deletions
diff --git a/src/guile/skribilo/biblio/template.scm b/src/guile/skribilo/biblio/template.scm
index 5a82e26..30a6512 100644
--- a/src/guile/skribilo/biblio/template.scm
+++ b/src/guile/skribilo/biblio/template.scm
@@ -1,7 +1,7 @@
;;; template.scm -- Template system for bibliography entries.
;;;
;;; Copyright 2003, 2004 Manuel Serrano
-;;; Copyright 2006 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -115,7 +115,7 @@
(case kind
((techreport)
`(author ". " (or title url documenturl) ". "
- number ", " institution ", "
+ ,(_ "Technical Report") " " number ", " institution ", "
address ", " month " " year ", "
("pp. " pages) "."))
((article)
@@ -159,7 +159,7 @@
(case kind
((techreport)
`(author " -- " (or title url documenturl) " -- "
- number ", " institution ", "
+ ,(_ "Technical Report") " " number ", " institution ", "
address ", " month ", " year ", "
("pp. " pages) "."))
((article)
diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm
index 44bff09..6a99771 100644
--- a/src/guile/skribilo/utils/syntax.scm
+++ b/src/guile/skribilo/utils/syntax.scm
@@ -1,6 +1,6 @@
;;; syntax.scm -- Syntactic candy for Skribilo modules.
;;;
-;;; Copyright 2005, 2006 Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludovic.courtes@laas.fr>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -23,7 +23,8 @@
:use-module (system reader library)
:use-module (system reader compat) ;; make sure `current-reader' exists
:use-module (system reader confinement)
- :export (%skribe-reader %skribilo-module-reader)
+ :export (%skribe-reader %skribilo-module-reader
+ _ N_)
:export-syntax (unwind-protect unless when))
;;; Author: Ludovic Courtès
@@ -49,7 +50,7 @@
(if (string? file)
(format #f "~a:~a:~a: " file line column)
"")
- "unexpected character in Skribilo module")
+ (_ "unexpected character in Skribilo module"))
chr)))
;; By default, don't record positions: this yields a nice read
@@ -76,6 +77,22 @@
(define-macro (when condition . exprs)
`(if ,condition (begin ,@exprs)))
+
+;;;
+;;; Gettext support.
+;;;
+
+(define %skribilo-text-domain "skribilo")
+
+(textdomain %skribilo-text-domain)
+
+(define (_ msg)
+ (gettext msg %skribilo-text-domain))
+
+(define (N_ msg msgplural n)
+ (ngettext msg msg plural n %skribilo-text-domain))
+
+
;;; arch-tag: 9a0e0638-64f0-480a-ab19-49e8bfcbcd9b
;;; syntax.scm ends here