From 37eed374d92e0fbb29701b072c3a39433fbba16d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= 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. --- guix/i18n.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 51 insertions(+) create mode 100644 guix/i18n.scm (limited to 'guix/i18n.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))) -- cgit v1.2.3