HCoop / jackhill / guix / guix.git / blame
| Commit | Line | Data |
|---|---|---|
| a869565b | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 793bcc19 | 2 | ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org> |
| fdc1b2fd | 3 | ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> |
| a869565b LC |
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 dictionaries) | |
| a9a8f063 | 21 | #:use-module (guix licenses) |
| a869565b LC |
22 | #:use-module (guix packages) |
| 23 | #:use-module (guix download) | |
| 24 | #:use-module (guix build-system trivial) | |
| 25 | #:use-module (gnu packages base) | |
| a9a8f063 | 26 | #:use-module (gnu packages texinfo) |
| 793bcc19 | 27 | #:use-module (gnu packages compression)) |
| a869565b LC |
28 | |
| 29 | (define-public vera | |
| 30 | (package | |
| 31 | (name "vera") | |
| fdc1b2fd | 32 | (version "1.23") |
| a869565b LC |
33 | (source (origin |
| 34 | (method url-fetch) | |
| 35 | (uri (string-append "mirror://gnu/vera/vera-" version | |
| 36 | ".tar.gz")) | |
| 37 | (sha256 | |
| 38 | (base32 | |
| fdc1b2fd | 39 | "1az0v563jja8xb4896jyr8yv7jd9zacqyfkjd7psb73v7clg1mzz")))) |
| a869565b LC |
40 | (build-system trivial-build-system) |
| 41 | (arguments | |
| 42 | `(#:builder (begin | |
| 43 | (use-modules (guix build utils)) | |
| 44 | ||
| 45 | (let* ((out (assoc-ref %outputs "out")) | |
| 46 | (info (string-append out "/share/info")) | |
| 47 | (html (string-append out "/share/html")) | |
| 48 | (source (assoc-ref %build-inputs "source")) | |
| 49 | (tar (assoc-ref %build-inputs "tar")) | |
| 50 | (gz (assoc-ref %build-inputs "gzip")) | |
| 51 | (texi (assoc-ref %build-inputs "texinfo"))) | |
| 52 | (setenv "PATH" (string-append gz "/bin")) | |
| 53 | (system* (string-append tar "/bin/tar") "xvf" source) | |
| 54 | ||
| 55 | (chdir (string-append "vera-" ,version)) | |
| 56 | (mkdir-p info) | |
| 57 | (mkdir-p html) | |
| 58 | ||
| 59 | ;; XXX: Use '--force' because the document is unhappy | |
| 60 | ;; with Texinfo 5 (yes, documents can be unhappy.) | |
| 61 | (and (zero? | |
| 62 | (system* (string-append texi "/bin/makeinfo") | |
| 63 | "vera.texi" "--force" "-o" | |
| 64 | (string-append info "/vera.info"))) | |
| 65 | (zero? | |
| 66 | (system* (string-append texi "/bin/makeinfo") | |
| 67 | "vera.texi" "--force" "--html" "-o" | |
| 68 | (string-append html "/vera.html")))))) | |
| 69 | #:modules ((guix build utils)))) | |
| 70 | (native-inputs `(("texinfo" ,texinfo) | |
| 71 | ("tar" ,tar) | |
| 72 | ("gzip" ,gzip))) | |
| 73 | (home-page "http://savannah.gnu.org/projects/vera/") | |
| 74 | (synopsis "List of acronyms") | |
| 75 | (description | |
| 76 | "V.E.R.A. (Virtual Entity of Relevant Acronyms) is a list of computing | |
| 77 | acronyms distributed as an info document.") | |
| a9a8f063 | 78 | (license fdl1.3+))) |