From 37eed374d92e0fbb29701b072c3a39433fbba16d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 8 Nov 2017 10:13:45 +0100 Subject: ui: Introduce (guix i18n). * guix/ui.scm (G_, N_, _P, %gettext-domain, %package-text-domain): Move to... * guix/i18n.scm: ... here. New file. --- Makefile.am | 1 + guix/i18n.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++ guix/ui.scm | 27 +++------------------------ 3 files changed, 55 insertions(+), 24 deletions(-) create mode 100644 guix/i18n.scm diff --git a/Makefile.am b/Makefile.am index 41fb9ba388..7ad95cec75 100644 --- a/Makefile.am +++ b/Makefile.am @@ -103,6 +103,7 @@ MODULES = \ guix/store.scm \ guix/cvs-download.scm \ guix/svn-download.scm \ + guix/i18n.scm \ guix/ui.scm \ guix/build/ant-build-system.scm \ guix/build/download.scm \ diff --git a/guix/i18n.scm b/guix/i18n.scm new file mode 100644 index 0000000000..f81e6b38ec --- /dev/null +++ b/guix/i18n.scm @@ -0,0 +1,51 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (guix i18n) + #:use-module (srfi srfi-26) + #:export (G_ + N_ + P_ + %gettext-domain + %package-text-domain)) + +;;; Commentary: +;;; +;;; Internationalization support. +;;; +;;; Code: + +(define %gettext-domain + ;; Text domain for strings used in the tools. + "guix") + +(define %package-text-domain + ;; Text domain for package synopses and descriptions. + "guix-packages") + +(define G_ (cut gettext <> %gettext-domain)) +(define N_ (cut ngettext <> <> <> %gettext-domain)) + +(define (P_ msgid) + "Return the translation of the package description or synopsis MSGID." + ;; Descriptions/synopses might occasionally be empty strings, even if that + ;; is something we try to avoid. Since (gettext "") can return a non-empty + ;; string, explicitly check for that case. + (if (string-null? msgid) + msgid + (gettext msgid %package-text-domain))) diff --git a/guix/ui.scm b/guix/ui.scm index 3c8734a7d5..40371e4710 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -26,6 +26,7 @@ ;;; along with GNU Guix. If not, see . (define-module (guix ui) + #:use-module (guix i18n) #:use-module (guix gexp) #:use-module (guix utils) #:use-module (guix store) @@ -55,10 +56,8 @@ (define-module (guix ui) #:use-module (texinfo) #:use-module (texinfo plain-text) #:use-module (texinfo string-utils) - #:export (G_ - N_ - P_ - report-error + #:re-export (G_ N_ P_) ;backward compatibility + #:export (report-error leave make-user-module load* @@ -111,26 +110,6 @@ (define-module (guix ui) ;;; ;;; Code: -(define %gettext-domain - ;; Text domain for strings used in the tools. - "guix") - -(define %package-text-domain - ;; Text domain for package synopses and descriptions. - "guix-packages") - -(define G_ (cut gettext <> %gettext-domain)) -(define N_ (cut ngettext <> <> <> %gettext-domain)) - -(define (P_ msgid) - "Return the translation of the package description or synopsis MSGID." - ;; Descriptions/synopses might occasionally be empty strings, even if that - ;; is something we try to avoid. Since (gettext "") can return a non-empty - ;; string, explicitly check for that case. - (if (string-null? msgid) - msgid - (gettext msgid %package-text-domain))) - (define-syntax-rule (define-diagnostic name prefix) "Create a diagnostic macro (i.e., NAME), which will prepend PREFIX to all messages." -- cgit v1.2.3