From 9e01589469abd89e035450d29026f0e14add6801 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 25 Sep 2016 10:43:17 +0300 Subject: gnu: gettext: Install Emacs tools. Fixes . Reported by Ivan Vilata i Balaguer . * gnu/packages/gettext.scm (gnu-gettext)[native-inputs]: Add 'emacs'. [arguments]: Add 'add-emacs-autoloads' phase. --- gnu/packages/gettext.scm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/gnu/packages/gettext.scm b/gnu/packages/gettext.scm index a5767ddedf..26ab6777fe 100644 --- a/gnu/packages/gettext.scm +++ b/gnu/packages/gettext.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2014 Mark H Weaver ;;; Copyright © 2015 Ricardo Wurmus ;;; Copyright © 2016 Efraim Flashner +;;; Copyright © 2016 Alex Kost ;;; ;;; This file is part of GNU Guix. ;;; @@ -27,9 +28,11 @@ #:use-module (guix build-system gnu) #:use-module (guix build-system perl) #:use-module (gnu packages docbook) + #:use-module (gnu packages emacs) #:use-module (gnu packages perl) #:use-module (gnu packages tex) - #:use-module (gnu packages xml)) + #:use-module (gnu packages xml) + #:use-module (guix utils)) (define-public gettext-minimal (package @@ -103,6 +106,19 @@ translated messages from the catalogs. Nearly all GNU packages use Gettext.") (package (inherit gettext-minimal) (name "gettext") + (arguments + (substitute-keyword-arguments (package-arguments gettext-minimal) + ((#:phases phases) + `(modify-phases ,phases + (add-after 'install 'add-emacs-autoloads + (lambda* (#:key outputs #:allow-other-keys) + ;; Make 'po-mode' and other things available by default. + (with-directory-excursion + (string-append (assoc-ref outputs "out") + "/share/emacs/site-lisp") + (symlink "start-po.el" "gettext-autoloads.el") + #t))))))) + (native-inputs `(("emacs" ,emacs-minimal))) ; for Emacs tools (synopsis "Tools and documentation for translation"))) (define-public po4a -- cgit v1.2.3