diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo.scm | 6 | ||||
| -rw-r--r-- | src/guile/skribilo/config.in | 5 | ||||
| -rw-r--r-- | src/guile/skribilo/utils/syntax.scm | 14 |
3 files changed, 16 insertions, 9 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 0c45b92..1014d8d 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -1,7 +1,7 @@ ;;; skribilo.scm -- The Skribilo document processor. ;;; ;;; Copyright 2005, 2006, 2007, 2008, 2009, 2011, 2012, 2013, -;;; 2015 Ludovic Courtès <ludo@gnu.org> +;;; 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;; ;;; @@ -321,6 +321,10 @@ options." (_ "warning: failed to install locale: ~a~%") (strerror (system-error-errno args))))) + ;; Tell gettext where to look for message catalogs. + (bindtextdomain %skribilo-text-domain (skribilo-locale-directory)) + (textdomain %skribilo-text-domain) + (let* ((options (parse-args args)) (reader-name (string->symbol (assoc-ref options :reader))) diff --git a/src/guile/skribilo/config.in b/src/guile/skribilo/config.in index dcbf245..238266b 100644 --- a/src/guile/skribilo/config.in +++ b/src/guile/skribilo/config.in @@ -1,7 +1,7 @@ ;;; config.scm -- Skribilo configuration. ;;; -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2005, 2006, 2007, 2009, 2012 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2006, 2007, 2009, 2012, 2016 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This file is part of Skribilo. @@ -22,6 +22,7 @@ (define-module (skribilo config) :export (skribilo-version skribilo-url skribilo-bug-report-address skribilo-module-directory skribilo-doc-directory + skribilo-locale-directory skribilo-scheme)) (define (skribilo-version) "@PACKAGE_VERSION@") @@ -30,7 +31,7 @@ (define (skribilo-module-directory) "@guilemoduledir@") (define (skribilo-scheme) "@GUILE@") (define (skribilo-doc-directory) "@docdir@") - +(define (skribilo-locale-directory) "@localedir@") ;;; Local Variables: ;;; mode: scheme diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm index 7e32c2e..9477095 100644 --- a/src/guile/skribilo/utils/syntax.scm +++ b/src/guile/skribilo/utils/syntax.scm @@ -1,7 +1,7 @@ ;;; syntax.scm -- Syntactic candy for Skribilo modules. -*- coding: utf-8 -*- ;;; ;;; Copyright 2005, 2006, 2007, 2008, 2009, 2010, 2011, -;;; 2012 Ludovic Courtès <ludo@gnu.org> +;;; 2012, 2016 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This file is part of Skribilo. @@ -23,11 +23,13 @@ :use-module (system reader library) :use-module (system reader compat) ;; make sure `current-reader' exists :use-module (system reader confinement) - :export (%skribilo-module-reader skribilo-module-syntax - set-correct-file-encoding! - default-to-utf-8 - _ N_ - unwind-protect)) + :export (%skribilo-module-reader + skribilo-module-syntax + set-correct-file-encoding! + default-to-utf-8 + %skribilo-text-domain + _ N_ + unwind-protect)) ;;; Author: Ludovic Courtès ;;; |