From ec0730cb6705d674cc6c52819c81ffb32f693ab8 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 23 Mar 2016 22:18:46 +0100 Subject: [PATCH] gnu: Add gnu-standards. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/gnu-doc.scm: New file. * gnu-system.am: Add it. Signed-off-by: Ludovic Courtès --- gnu-system.am | 1 + gnu/packages/gnu-doc.scm | 74 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 75 insertions(+) create mode 100644 gnu/packages/gnu-doc.scm diff --git a/gnu-system.am b/gnu-system.am index 6cdc1e3345..8161632751 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -134,6 +134,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/gl.scm \ gnu/packages/glib.scm \ gnu/packages/gnome.scm \ + gnu/packages/gnu-doc.scm \ gnu/packages/gnucash.scm \ gnu/packages/gnunet.scm \ gnu/packages/gnupg.scm \ diff --git a/gnu/packages/gnu-doc.scm b/gnu/packages/gnu-doc.scm new file mode 100644 index 0000000000..572647d024 --- /dev/null +++ b/gnu/packages/gnu-doc.scm @@ -0,0 +1,74 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2016 Jan Nieuwenhuizen +;;; +;;; 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 (gnu packages gnu-doc) + #:use-module (gnu packages base) + #:use-module (gnu packages compression) + #:use-module (gnu packages texinfo) + + #:use-module (guix build-system trivial) + #:use-module (guix cvs-download) + #:use-module (guix licenses) + #:use-module (guix packages)) + +(define-public gnu-standards + (package + (name "gnu-standards") + (version "2016-03-25") + (source + (origin + (method cvs-fetch) + (uri (cvs-reference + (root-directory + ":pserver:anonymous@cvs.savannah.gnu.org:/sources/gnustandards") + (module "gnustandards") + (revision "2016-03-25"))) + (sha256 + (base32 + "0qn7mzdjqwc6h9prin22x6kj9iqipxpbzldzhmis7q4x4hpi61vj")))) + (build-system trivial-build-system) + (native-inputs `(("gzip" ,gzip) + ("source" ,source) + ("texinfo" ,texinfo))) + (arguments + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let ((gzip (assoc-ref %build-inputs "gzip")) + (source (assoc-ref %build-inputs "source")) + (texinfo (assoc-ref %build-inputs "texinfo")) + (info-dir (string-append %output "/share/info"))) + (setenv "PATH" (string-append gzip "/bin" + ":" texinfo "/bin")) + (mkdir-p info-dir) + (system* "makeinfo" "--output" info-dir + (string-append source "/maintain.texi")) + (system* "makeinfo" "--output" info-dir + (string-append source "/standards.texi")) + (system* "gzip" (string-append info-dir "/maintain.info")) + (system* "gzip" (string-append info-dir "/standards.info")))))) + (home-page "http://www.gnu.org/prep/standards/") + (synopsis "GNU coding standards and maintainer information") + (description "The GNU Coding Standards were written by Richard Stallman +and other GNU Project volunteers. Their purpose is to make the GNU system +clean, consistent, and easy to install. + +The information for maintainers of GNU software has guidelines and advice for +someone who is the maintainer of a GNU program on behalf of the GNU Project.") + (license fdl1.3+)))