projects/guix·blob java-team · refs

102 lines · 4.0 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2014 John Darrington <[email protected]>
3;;; Copyright © 2016 Jan Nieuwenhuizen <[email protected]>
4;;;
5;;; This file is part of GNU Guix.
6;;;
7;;; GNU Guix is free software; you can redistribute it and/or modify it
8;;; under the terms of the GNU General Public License as published by
9;;; the Free Software Foundation; either version 3 of the License, or (at
10;;; your option) any later version.
11;;;
12;;; GNU Guix is distributed in the hope that it will be useful, but
13;;; WITHOUT ANY WARRANTY; without even the implied warranty of
14;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15;;; GNU General Public License for more details.
16;;;
17;;; You should have received a copy of the GNU General Public License
18;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
19
20(define-module (gnu packages gnu-doc)
21 #:use-module (gnu packages base)
22 #:use-module (gnu packages compression)
23 #:use-module (gnu packages texinfo)
24
25 #:use-module (guix build-system gnu)
26 #:use-module (guix build-system trivial)
27 #:use-module (guix cvs-download)
28 #:use-module (guix download)
29 #:use-module (guix licenses)
30 #:use-module (guix packages))
31
32(define-public miscfiles
33 (package
34 (name "miscfiles")
35 (version "1.5")
36 (source
37 (origin
38 (method url-fetch)
39 (uri (string-append "mirror://gnu/" name "/" name "-"
40 version ".tar.gz"))
41 (sha256
42 (base32
43 "005588vfrwx8ghsdv9p7zczj9lbc9a3r4m5aphcaqv8gif4siaka"))))
44 (build-system gnu-build-system)
45 (home-page "https://www.gnu.org/software/miscfiles/")
46 (synopsis
47 "Data files for airport codes, zip codes, a dictionary, and more")
48 (description
49 "GNU Miscfiles is a collection of common data files. They include, for
50example, country abbreviations, names and capital cities; currency
51abbreviations and names; a Best Current Practices index; a map of the ASCII
52character set; a list of three-letter airport codes; and an English word
53list.")
54 (license gpl2+)))
55
56(define-public gnu-standards
57 (package
58 (name "gnu-standards")
59 (version "2025-03-25")
60 (source
61 (origin
62 (method cvs-fetch)
63 (uri (cvs-reference
64 (root-directory
65 ":pserver:[email protected]:/sources/gnustandards")
66 (module "gnustandards")
67 (revision version)))
68 (sha256
69 (base32
70 "0gwli6wz6zag6bj7nsr403j6r694q0vva9mqlpfqa71g1pglr2ag"))
71 (file-name (string-append name "-" version "-checkout"))))
72 (build-system trivial-build-system)
73 (native-inputs `(("gzip" ,gzip)
74 ("source" ,source)
75 ("texinfo" ,texinfo)))
76 (arguments
77 `(#:modules ((guix build utils))
78 #:builder
79 (begin
80 (use-modules (guix build utils))
81 (let ((gzip (assoc-ref %build-inputs "gzip"))
82 (source (assoc-ref %build-inputs "source"))
83 (texinfo (assoc-ref %build-inputs "texinfo"))
84 (info-dir (string-append %output "/share/info")))
85 (setenv "PATH" (string-append gzip "/bin"
86 ":" texinfo "/bin"))
87 (mkdir-p info-dir)
88 (invoke "makeinfo" "--output" info-dir
89 (string-append source "/maintain.texi"))
90 (invoke "makeinfo" "--output" info-dir
91 (string-append source "/standards.texi"))
92 (invoke "gzip" "-n" (string-append info-dir "/maintain.info"))
93 (invoke "gzip" "-n" (string-append info-dir "/standards.info"))))))
94 (home-page "https://www.gnu.org/prep/standards/")
95 (synopsis "GNU coding standards and maintainer information")
96 (description "The GNU Coding Standards were written by Richard Stallman
97and other GNU Project volunteers. Their purpose is to make the GNU system
98clean, consistent, and easy to install.
99
100The information for maintainers of GNU software has guidelines and advice for
101someone who is the maintainer of a GNU program on behalf of the GNU Project.")
102 (license fdl1.3+)))