;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@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 skribilo)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix licenses)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages guile)
  #:use-module (gnu packages lout)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages plotutils)
  #:use-module (gnu packages imagemagick)
  #:use-module (gnu packages ghostscript))

(define-public skribilo
  (package
    (name "skribilo")
    (version "0.9.3")
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://savannah/skribilo/skribilo-"
                                 version ".tar.gz"))
             (sha256
              (base32
               "04d8xa76jvlz25jnc6p1gzsplwcwcqrmi3f7ixdhddhl1chyz66y"))))
    (build-system gnu-build-system)
    (arguments
     ;; Make the modules available under the usual location.
     '(#:configure-flags (list (string-append "--with-guilemoduledir="
                                              (assoc-ref %outputs "out")
                                              "/share/guile/site/2.0"))

       #:phases (alist-cons-before
                 'configure 'pre-configure
                 (lambda* (#:key inputs #:allow-other-keys)
                   ;; Make sure the 'skribilo' command gets to see
                   ;; Guile-Reader, even if Guile-Reader is not in the search
                   ;; path.
                   (let ((reader (assoc-ref inputs "guile-reader")))
                     (substitute* "src/skribilo.in"
                       (("^exec (.*) -c" _ things)
                        (string-append "exec " things
                                       " -L " reader "/share/guile/site/2.0"
                                       " -C " reader "/share/guile/site/2.0"
                                       " -c")))))
                 %standard-phases)

       #:parallel-build? #f))

    (native-inputs `(("pkg-config" ,pkg-config)
                     ("ghostscript-gs" , ghostscript-gs)))

    (inputs `(("guile" ,guile-2.0)
              ("imagemagick" ,imagemagick)
              ("ghostscript" ,ghostscript)        ; for 'convert'
              ("ploticus" ,ploticus)
              ("lout" ,lout)))

    ;; The 'skribilo' command needs them, and for people using Skribilo as a
    ;; library, these inputs are needed as well.
    (propagated-inputs `(("guile-reader" ,guile-reader)
                         ("guile-lib" ,guile-lib)))

    (home-page "http://www.nongnu.org/skribilo/")
    (synopsis "Document production tool written in Guile Scheme")
    (description
     "Skribilo is a free document production tool that takes a structured
document representatio<tr><td><span title='2018-01-15 15:18:03 +0100'>2018-01-15</span></td><td><a href='/guix/commit/build-aux/cuirass?id=403f2dccfcf992573ceeeae7c76c71b4884d3cd4'>cuirass: Properly convert list of &lt;license&gt; objects.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes a bug whereby we would 'write' raw &lt;license&gt; objects when they
were in a list.

* build-aux/cuirass/gnu-system.scm (entry-&gt;sexp-entry): Add recursive
case when O is a list.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-27 22:19:28 +0200'>2017-