mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: Add gnu-standards.
* gnu/packages/gnu-doc.scm: New file. * gnu-system.am: Add it. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
f4033fb5da
commit
ec0730cb67
2 changed files with 75 additions and 0 deletions
|
@ -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 \
|
||||
|
|
74
gnu/packages/gnu-doc.scm
Normal file
74
gnu/packages/gnu-doc.scm
Normal file
|
@ -0,0 +1,74 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
|
||||
;;;
|
||||
;;; 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 <http://www.gnu.org/licenses/>.
|
||||
|
||||
(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+)))
|
Loading…
Reference in a new issue