[jackhill/guix/guix.git] / gnu / packages / docbook.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 docbook)
  #:use-module (gnu packages)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages imagemagick)
  #:use-module (gnu packages inkscape)
  #:use-module (gnu packages tex)
  #:use-module (gnu packages python)
  #:use-module (gnu packages base)
  #:use-module (gnu packages xml)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system trivial)
  #:use-module (guix build-system python))

(define-public docbook-xml
  (package
    (name "docbook-xml")
    (version "4.5")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://www.docbook.org/xml/" version
                                  "/docbook-xml-" version ".zip"))
              (sha256
               (base32
                "1d671lcjckjri28xfbf6dq7y3xnkppa910w1jin8rjc35dx06kjf"))))
    (build-system trivial-build-system)
    (arguments
     '(#:builder (begin
                   (use-modules (guix build utils))

                   (let* ((unzip
                           (string-append (assoc-ref %build-inputs "unzip")
                                          "/bin/unzip"))
                          (source (assoc-ref %build-inputs "source"))
                          (out    (assoc-ref %outputs "out"))
                          (dtd    (string-append out "/xml/dtd/docbook")))
                     (mkdir-p dtd)
                     (with-directory-excursion dtd
                       (invoke unzip source))
                     (substitute* (string-append out "/xml/dtd/docbook/catalog.xml")
                       (("uri=\"") 
                        (string-append 
                         "uri=\"file://" dtd "/")))
                     #t))
                 #:modules ((guix build utils))))
    (native-inputs `(("unzip" ,unzip)))
    (home-page "http://docbook.org")
    (synopsis "DocBook XML DTDs for document authoring")
    (description
     "DocBook is general purpose XML and SGML document type particularly well
suited to books and papers about computer hardware and software (though it is
by no means limited to these applications.)  This package provides XML DTDs.")
    (license (x11-style "" "See file headers."))))

(define-public docbook-xml-4.4
  (package (inherit docbook-xml)
    (version "4.4")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://www.docbook.org/xml/" version
                                  "/docbook-xml-" version ".zip"))
              (sha256
               (base32
                "141h4zsyc71sfi2zzd89v4bb4qqq9ca1ri9ix2als9f4i3mmkw82"))))))

(define-public docbook-xml-4.3
  (package (inherit docbook-xml)
    (version "4.3")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://www.docbook.org/xml/" version
                                  "/docbook-xml-" version ".zip"))
              (sha256
               (base32
                "0r1l2if1z4wm2v664sqdizm4gak6db1kx9y50jq89m3gxaa8l1i3"))))))

(define-public docbook-xml-4.2
  (package (inherit docbook-xml)
    (version "4.2")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://www.docbook.org/xml/" version
                                  "/docbook-xml-" version ".zip"))
              (sha256
               (base32
                "18hgwvmywh6a5jh38szjmg3hg2r4v5lb6r3ydc3rd8cp9wg61i5c"))))))

(define-public docbook-xml-4.1.2
  (package (inherit docbook-xml)
    (version "4.1.2")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://www.docbook.org/xml/" version
                                  "/docbkx412.zip"))
              (sha256
               (base32
                "0wkp5rvnqj0ghxia0558mnn4c7s3n501j99q2isp3sp0ci069w1h"))))
    (arguments
     '(#:modules ((guix build utils))
       #:builder
       (begin
         (use-modules (guix build utils))
         (let ((source (assoc-ref %build-inputs "source"))
               (unzip  (string-append (assoc-ref %build-inputs "unzip")
                                      "/bin/unzip"))
               (dtd    (string-append (assoc-ref %outputs "out")
                                      "/xml/dtd/docbook")))
           (mkdir-p dtd)
           (invoke unzip source "-d" dtd)))))))

(define-public docbook-xsl
  (package
    (name "docbook-xsl")
    (version "1.79.1")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/docbook/docbook-xsl/"
                                  version "/docbook-xsl-" version ".tar.bz2"))
              ;; Note: If removing all patches, the XZ dependency is no longer needed.
              (patches (search-patches "docbook-xsl-nonrecursive-string-subst.patch"))
              (sha256
               (base32
                "0s59lihif2fr7rznckxr2kfyrvkirv76r1zvidp9b5mj28p4apvj"))))
    (build-system trivial-build-system)
    (arguments
     `(#:builder (let ((name-version (string-append ,name "-" ,version)))
                   (use-modules (guix build utils))

                   (let* ((bzip2  (assoc-ref %build-inputs "bzip2"))
                          (xz     (assoc-ref %build-inputs "xz"))
                          (tar    (assoc-ref %build-inputs "tar"))
                          (source (assoc-ref %build-inputs "source"))
                          (out    (assoc-ref %outputs "out"))
                          (xsl    (string-append out "/xml/xsl")))
                     (setenv "PATH" (string-append bzip2 "/bin" ":" xz "/bin"))
                     (invoke (string-append tar "/bin/tar") "xvf" source)

                     (mkdir-p xsl)
                     (copy-recursively name-version
                                       (string-append xsl "/" name-version))

                     (substitute* (string-append xsl "/" name-version "/catalog.xml")
                       (("rewritePrefix=\"./")
                        (string-append "rewritePrefix=\"file://" xsl "/"
                                       name-version "/")))
                     #t))
       #:modules ((guix build utils))))
    (native-inputs `(("bzip2" ,bzip2)
                     ("xz" ,xz)
                     ("tar" ,tar)))
    (home-page "http://docbook.org")
    (synopsis "DocBook XSL style sheets for document authoring")
    (description
     "This package provides XSL style sheets for DocBook.")
    (license (x11-style "" "See 'COPYING' file."))))

(define-public dblatex
  (package
    (name "dblatex")
    (version "0.3.10")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://sourceforge/dblatex/dblatex/"
                                  "dblatex-" version "/dblatex-"
                                  version ".tar.bz2"))
              (sha256
               (base32
                "1yicd861rqz78i2khl35j7nvc0ccv4jx4hzqrbhll17082vrdmkg"))))
    (build-system python-build-system)
    ;; TODO: Add xfig/transfig for fig2dev utility
    (inputs
     `(("texlive" ,(texlive-union (list texlive-latex-amsfonts
                                        texlive-latex-anysize
                                        texlive-latex-appendix
                                        texlive-latex-changebar
                                        texlive-latex-colortbl
                                        texlive-latex-eepic
                                        texlive-latex-eso-pic
                                        texlive-latex-fancybox
                                        texlive-latex-fancyhdr
                                        texlive-latex-fancyvrb
                                        texlive-latex-float
                                        texlive-latex-footmisc
                                        texlive-latex-hyperref
                                        texlive-latex-jknapltx
                                        texlive-latex-listings
                                        texlive-latex-multirow
                                        texlive-latex-oberdiek
                                        texlive-latex-overpic
                                        texlive-latex-pdfpages
                                        texlive-latex-subfigure
                                        texlive-latex-titlesec
                                        texlive-latex-url
                                        texlive-latex-wasysym

                                        texlive-fonts-amsfonts
                                        texlive-fonts-ec
                                        texlive-fonts-rsfs
                                        texlive-fonts-stmaryrd

                                        texlive-generic-ifxetex)))
       ("imagemagick" ,imagemagick)     ;for convert
       ("inkscape" ,inkscape)           ;for svg conversion
       ("docbook" ,docbook-xml)
       ("libxslt" ,libxslt)))           ;for xsltproc
    (arguments
     `(#:python ,python-2               ;'print' syntax
       ;; Using setuptools causes an invalid "package_base" path in
       ;; out/bin/.dblatex-real due to a missing leading '/'.  This is caused
       ;; by dblatex's setup.py stripping the root path when creating the
       ;; script.  (dblatex's setup.py still uses distutils and thus has to
       ;; create the script by itself. The feature for creating scripts is one
       ;; of setuptools' features.)
       ;; See this thread for details:
       ;; https://lists.gnu.org/archive/html/guix-devel/2016-12/msg00030.html
       #:use-setuptools? #f
       #:tests? #f                      ;no 'test' command
       #:phases
       (modify-phases %standard-phases
         (add-after 'wrap 'set-path
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let ((out (assoc-ref outputs "out")))
               ;; dblatex executes helper programs at runtime.
               (wrap-program (string-append out "/bin/dblatex")
                 `("PATH" ":" prefix
                   ,(map (lambda (input)
                           (string-append (assoc-ref inputs input)
                                          "/bin"))
                         '("libxslt" "texlive"
                           "imagemagick" "inkscape"))))
               #t))))))
    (home-page "http://dblatex.sourceforge.net")
    (synopsis "DocBook to LaTeX Publishing")
    (description
     "DocBook to LaTeX Publishing transforms your SGML/XML DocBook documents
to DVI, PostScript or PDF by translating them in pure LaTeX as a first
process.  MathML 2.0 markups are supported too.  It started as a clone of
DB2LaTeX.")
    ;; lib/contrib/which is under an X11 license
    (license gpl2+)))
Commit	Line	Data
c915b404 LC	1	;;; GNU Guix --- Functional package management for GNU
c915b404 LC	2	;;; Copyright © 2014 Ludovic Courtès <ludo@gnu.org>
2efb3dda	3	;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
1e47d0e2	4	;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
d2d1144d	5	;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
c915b404 LC	6	;;;
	7	;;; This file is part of GNU Guix.
	8	;;;
	9	;;; GNU Guix is free software; you can redistribute it and/or modify it
	10	;;; under the terms of the GNU General Public License as published by
	11	;;; the Free Software Foundation; either version 3 of the License, or (at
	12	;;; your option) any later version.
	13	;;;
	14	;;; GNU Guix is distributed in the hope that it will be useful, but
	15	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;;; GNU General Public License for more details.
	18	;;;
	19	;;; You should have received a copy of the GNU General Public License
	20	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	21
	22	(define-module (gnu packages docbook)
	23	#:use-module (gnu packages)
	24	#:use-module (gnu packages compression)
2efb3dda EB	25	#:use-module (gnu packages imagemagick)
2efb3dda EB	26	#:use-module (gnu packages inkscape)
8f9ac901	27	#:use-module (gnu packages tex)
2efb3dda	28	#:use-module (gnu packages python)
b777d784	29	#:use-module (gnu packages base)
2efb3dda	30	#:use-module (gnu packages xml)
c915b404 LC	31	#:use-module (guix licenses)
	32	#:use-module (guix packages)
	33	#:use-module (guix download)
	34	#:use-module (guix build-system trivial)
148585c2	35	#:use-module (guix build-system python))
c915b404 LC	36
	37	(define-public docbook-xml
	38	(package
	39	(name "docbook-xml")
	40	(version "4.5")
	41	(source (origin
	42	(method url-fetch)
	43	(uri (string-append "http://www.docbook.org/xml/" version
	44	"/docbook-xml-" version ".zip"))
	45	(sha256
	46	(base32
	47	"1d671lcjckjri28xfbf6dq7y3xnkppa910w1jin8rjc35dx06kjf"))))
	48	(build-system trivial-build-system)
	49	(arguments
	50	'(#:builder (begin
	51	(use-modules (guix build utils))
	52
	53	(let* ((unzip
	54	(string-append (assoc-ref %build-inputs "unzip")
	55	"/bin/unzip"))
	56	(source (assoc-ref %build-inputs "source"))
	57	(out (assoc-ref %outputs "out"))
	58	(dtd (string-append out "/xml/dtd/docbook")))
	59	(mkdir-p dtd)
	60	(with-directory-excursion dtd
e3cfef22	61	(invoke unzip source))
a6639cf7 JD	62	(substitute* (string-append out "/xml/dtd/docbook/catalog.xml")
	63	(("uri=\"")
	64	(string-append
e3cfef22 MW	65	"uri=\"file://" dtd "/")))
e3cfef22 MW	66	#t))
a6639cf7	67	#:modules ((guix build utils))))
c915b404 LC	68	(native-inputs `(("unzip" ,unzip)))
	69	(home-page "http://docbook.org")
	70	(synopsis "DocBook XML DTDs for document authoring")
	71	(description
	72	"DocBook is general purpose XML and SGML document type particularly well
	73	suited to books and papers about computer hardware and software (though it is
	74	by no means limited to these applications.) This package provides XML DTDs.")
	75	(license (x11-style "" "See file headers."))))
	76
1cac3de6 JD	77	(define-public docbook-xml-4.4
1cac3de6 JD	78	(package (inherit docbook-xml)
1e47d0e2	79	(version "4.4")
1cac3de6 JD	80	(source (origin
	81	(method url-fetch)
	82	(uri (string-append "http://www.docbook.org/xml/" version
	83	"/docbook-xml-" version ".zip"))
	84	(sha256
	85	(base32
	86	"141h4zsyc71sfi2zzd89v4bb4qqq9ca1ri9ix2als9f4i3mmkw82"))))))
	87
	88	(define-public docbook-xml-4.3
	89	(package (inherit docbook-xml)
1e47d0e2	90	(version "4.3")
1cac3de6 JD	91	(source (origin
	92	(method url-fetch)
	93	(uri (string-append "http://www.docbook.org/xml/" version
	94	"/docbook-xml-" version ".zip"))
	95	(sha256
	96	(base32
	97	"0r1l2if1z4wm2v664sqdizm4gak6db1kx9y50jq89m3gxaa8l1i3"))))))
	98
aec149e3 FB	99	(define-public docbook-xml-4.2
aec149e3 FB	100	(package (inherit docbook-xml)
1e47d0e2	101	(version "4.2")
aec149e3 FB	102	(source (origin
	103	(method url-fetch)
	104	(uri (string-append "http://www.docbook.org/xml/" version
	105	"/docbook-xml-" version ".zip"))
	106	(sha256
	107	(base32
	108	"18hgwvmywh6a5jh38szjmg3hg2r4v5lb6r3ydc3rd8cp9wg61i5c"))))))
	109
1e47d0e2 ML	110	(define-public docbook-xml-4.1.2
	111	(package (inherit docbook-xml)
	112	(version "4.1.2")
	113	(source (origin
	114	(method url-fetch)
	115	(uri (string-append "http://www.docbook.org/xml/" version
	116	"/docbkx412.zip"))
	117	(sha256
	118	(base32
	119	"0wkp5rvnqj0ghxia0558mnn4c7s3n501j99q2isp3sp0ci069w1h"))))
	120	(arguments
	121	'(#:modules ((guix build utils))
	122	#:builder
	123	(begin
	124	(use-modules (guix build utils))
	125	(let ((source (assoc-ref %build-inputs "source"))
	126	(unzip (string-append (assoc-ref %build-inputs "unzip")
	127	"/bin/unzip"))
	128	(dtd (string-append (assoc-ref %outputs "out")
	129	"/xml/dtd/docbook")))
	130	(mkdir-p dtd)
e3cfef22	131	(invoke unzip source "-d" dtd)))))))
1e47d0e2	132
c915b404 LC	133	(define-public docbook-xsl
	134	(package
	135	(name "docbook-xsl")
cf7daaf5	136	(version "1.79.1")
c915b404 LC	137	(source (origin
c915b404 LC	138	(method url-fetch)
de67e922 LF	139	(uri (string-append "mirror://sourceforge/docbook/docbook-xsl/"
de67e922 LF	140	version "/docbook-xsl-" version ".tar.bz2"))
0f72f052 MB	141	;; Note: If removing all patches, the XZ dependency is no longer needed.
0f72f052 MB	142	(patches (search-patches "docbook-xsl-nonrecursive-string-subst.patch"))
c915b404 LC	143	(sha256
c915b404 LC	144	(base32
cf7daaf5	145	"0s59lihif2fr7rznckxr2kfyrvkirv76r1zvidp9b5mj28p4apvj"))))
c915b404 LC	146	(build-system trivial-build-system)
c915b404 LC	147	(arguments
7f4bf030	148	`(#:builder (let ((name-version (string-append ,name "-" ,version)))
c915b404 LC	149	(use-modules (guix build utils))
	150
	151	(let* ((bzip2 (assoc-ref %build-inputs "bzip2"))
0f72f052	152	(xz (assoc-ref %build-inputs "xz"))
c915b404 LC	153	(tar (assoc-ref %build-inputs "tar"))
	154	(source (assoc-ref %build-inputs "source"))
	155	(out (assoc-ref %outputs "out"))
	156	(xsl (string-append out "/xml/xsl")))
0f72f052	157	(setenv "PATH" (string-append bzip2 "/bin" ":" xz "/bin"))
e3cfef22	158	(invoke (string-append tar "/bin/tar") "xvf" source)
c915b404 LC	159
c915b404 LC	160	(mkdir-p xsl)
7f4bf030 JD	161	(copy-recursively name-version
	162	(string-append xsl "/" name-version))
	163
	164	(substitute* (string-append xsl "/" name-version "/catalog.xml")
a124bbd2 SB	165	(("rewritePrefix=\"./")
a124bbd2 SB	166	(string-append "rewritePrefix=\"file://" xsl "/"
e3cfef22 MW	167	name-version "/")))
	168	#t))
	169	#:modules ((guix build utils))))
c915b404	170	(native-inputs `(("bzip2" ,bzip2)
0f72f052	171	("xz" ,xz)
c915b404 LC	172	("tar" ,tar)))
	173	(home-page "http://docbook.org")
	174	(synopsis "DocBook XSL style sheets for document authoring")
	175	(description
	176	"This package provides XSL style sheets for DocBook.")
	177	(license (x11-style "" "See 'COPYING' file."))))
2efb3dda EB	178
	179	(define-public dblatex
	180	(package
	181	(name "dblatex")
1143450c	182	(version "0.3.10")
2efb3dda EB	183	(source (origin
2efb3dda EB	184	(method url-fetch)
de67e922 LF	185	(uri (string-append "mirror://sourceforge/dblatex/dblatex/"
de67e922 LF	186	"dblatex-" version "/dblatex-"
2efb3dda EB	187	version ".tar.bz2"))
	188	(sha256
	189	(base32
1143450c	190	"1yicd861rqz78i2khl35j7nvc0ccv4jx4hzqrbhll17082vrdmkg"))))
2efb3dda EB	191	(build-system python-build-system)
	192	;; TODO: Add xfig/transfig for fig2dev utility
	193	(inputs
b81dd94a RW	194	`(("texlive" ,(texlive-union (list texlive-latex-amsfonts
	195	texlive-latex-anysize
	196	texlive-latex-appendix
	197	texlive-latex-changebar
	198	texlive-latex-colortbl
	199	texlive-latex-eepic
	200	texlive-latex-eso-pic
	201	texlive-latex-fancybox
	202	texlive-latex-fancyhdr
	203	texlive-latex-fancyvrb
	204	texlive-latex-float
	205	texlive-latex-footmisc
	206	texlive-latex-hyperref
	207	texlive-latex-jknapltx
	208	texlive-latex-listings
	209	texlive-latex-multirow
	210	texlive-latex-oberdiek
	211	texlive-latex-overpic
	212	texlive-latex-pdfpages
	213	texlive-latex-subfigure
	214	texlive-latex-titlesec
	215	texlive-latex-url
	216	texlive-latex-wasysym
	217
	218	texlive-fonts-amsfonts
	219	texlive-fonts-ec
	220	texlive-fonts-rsfs
	221	texlive-fonts-stmaryrd
	222
	223	texlive-generic-ifxetex)))
2efb3dda EB	224	("imagemagick" ,imagemagick) ;for convert
	225	("inkscape" ,inkscape) ;for svg conversion
	226	("docbook" ,docbook-xml)
	227	("libxslt" ,libxslt))) ;for xsltproc
	228	(arguments
	229	`(#:python ,python-2 ;'print' syntax
447b9473 HG	230	;; Using setuptools causes an invalid "package_base" path in
	231	;; out/bin/.dblatex-real due to a missing leading '/'. This is caused
	232	;; by dblatex's setup.py stripping the root path when creating the
	233	;; script. (dblatex's setup.py still uses distutils and thus has to
	234	;; create the script by itself. The feature for creating scripts is one
	235	;; of setuptools' features.)
	236	;; See this thread for details:
3cc0342b MB	237	;; https://lists.gnu.org/archive/html/guix-devel/2016-12/msg00030.html
3cc0342b MB	238	#:use-setuptools? #f
2efb3dda EB	239	#:tests? #f ;no 'test' command
2efb3dda EB	240	#:phases
d2d1144d TGR	241	(modify-phases %standard-phases
	242	(add-after 'wrap 'set-path
	243	(lambda* (#:key inputs outputs #:allow-other-keys)
	244	(let ((out (assoc-ref outputs "out")))
	245	;; dblatex executes helper programs at runtime.
	246	(wrap-program (string-append out "/bin/dblatex")
	247	`("PATH" ":" prefix
	248	,(map (lambda (input)
	249	(string-append (assoc-ref inputs input)
	250	"/bin"))
	251	'("libxslt" "texlive"
	252	"imagemagick" "inkscape"))))
	253	#t))))))
2efb3dda EB	254	(home-page "http://dblatex.sourceforge.net")
	255	(synopsis "DocBook to LaTeX Publishing")
	256	(description
	257	"DocBook to LaTeX Publishing transforms your SGML/XML DocBook documents
	258	to DVI, PostScript or PDF by translating them in pure LaTeX as a first
	259	process. MathML 2.0 markups are supported too. It started as a clone of
	260	DB2LaTeX.")
	261	;; lib/contrib/which is under an X11 license
	262	(license gpl2+)))