projects/guix·blob python-team · refs

102 lines · 4.2 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2020, 2021 Ludovic Courtès <[email protected]>
3;;; Copyright © 2023, 2026 Arun Isaac <[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 skribilo)
21 #:use-module (guix packages)
22 #:use-module (guix download)
23 #:use-module (guix licenses)
24 #:use-module ((guix utils) #:select (version-major+minor))
25 #:use-module (guix build-system gnu)
26 #:use-module (gnu packages guile)
27 #:use-module (gnu packages guile-xyz)
28 #:use-module (gnu packages lout)
29 #:use-module (gnu packages pkg-config)
30 #:use-module (gnu packages plotutils)
31 #:use-module (gnu packages imagemagick)
32 #:use-module (gnu packages ghostscript))
33
34(define-public skribilo
35 (package
36 (name "skribilo")
37 (version "0.11.1")
38 (source (origin
39 (method url-fetch)
40 (uri (string-append "mirror://savannah/skribilo/skribilo-"
41 version ".tar.gz"))
42 (sha256
43 (base32
44 "14nm50dd27w287raiffhmmivl66ff6f4n793y5lz62wj88f28p36"))))
45 (build-system gnu-build-system)
46 (arguments
47 ;; Make the modules available under the usual location.
48 `(#:phases
49 (modify-phases %standard-phases
50 (add-before 'configure 'pre-configure
51 (lambda* (#:key inputs #:allow-other-keys)
52 ;; Make sure the 'skribilo' command gets to see
53 ;; Guile-Reader, even if Guile-Reader is not in the search
54 ;; path.
55 (let ((reader (assoc-ref inputs "guile-reader"))
56 (effective ,(version-major+minor
57 (package-version
58 (car (assoc-ref (package-inputs this-package)
59 "guile"))))))
60 (substitute* "src/skribilo.in"
61 (("^exec (.*) -c" _ things)
62 (string-append "exec " things
63 " -L " reader "/share/guile/site/" effective
64 " -C " reader
65 "/lib/guile/" effective "/site-ccache"
66 " -c"))))
67 #t)))
68
69 #:parallel-build? #f
70
71 ;; XXX: Temporarily disable tests because they rely on
72 ;; 'test-runner-current' *not* returning #f after 'test-end', which is
73 ;; no longer the case in Guile >= 3.0.6. This is fixed upstream.
74 #:tests? #f))
75
76 (native-inputs (list pkg-config))
77
78 (inputs (list guile-3.0
79 imagemagick
80 ghostscript ; for 'convert'
81 lout))
82
83 ;; The 'skribilo' command needs them, and for people using Skribilo as a
84 ;; library, these inputs are needed as well.
85 (propagated-inputs (list guile-reader guile-lib))
86
87 (home-page "https://www.nongnu.org/skribilo/")
88 (synopsis "Document production tool written in Guile Scheme")
89 (description
90 "Skribilo is a free document production tool that takes a structured
91document representation as its input and renders that document in a variety of
92output formats: HTML and Info for on-line browsing, and Lout and LaTeX for
93high-quality hard copies.
94
95The input document can use Skribilo's markup language to provide information
96about the document's structure, which is similar to HTML or LaTeX and does not
97require expertise. Alternatively, it can use a simpler, “markup-less” format
98that borrows from Emacs' outline mode and from other conventions used in
99emails, Usenet and text.
100
101Lastly, Skribilo provides Guile Scheme APIs.")
102 (license gpl3+)))