diff options
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/biblio/template.scm | 6 | ||||
| -rw-r--r-- | src/guile/skribilo/utils/syntax.scm | 23 |
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 |