From 9099a45792306fade2d9ca55138e49ef4f01f1ea Mon Sep 17 00:00:00 2001 From: Kei Kebreau Date: Sun, 12 Mar 2017 17:46:28 -0400 Subject: gnu: asciidoc: Add XML and XSLT support. * gnu/packages/documentation.scm (asciidoc)[arguments]: Add set-xml-binary-paths phase. [inputs]: Add libxml2 and libxslt. --- gnu/packages/documentation.scm | 22 +++++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) (limited to 'gnu') diff --git a/gnu/packages/documentation.scm b/gnu/packages/documentation.scm index bbc25e8797..94e979c881 100644 --- a/gnu/packages/documentation.scm +++ b/gnu/packages/documentation.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2014, 2016 Andreas Enge ;;; Copyright © 2016 Eric Bavier ;;; Copyright © 2016 Roel Janssen +;;; Copyright © 2017 Kei Kebreau ;;; ;;; This file is part of GNU Guix. ;;; @@ -53,6 +54,23 @@ `(#:tests? #f ; no 'check' target #:phases (modify-phases %standard-phases + ;; Some XML-related binaries are required for asciidoc's proper usage. + ;; Without these, asciidoc fails when parsing XML documents, either + ;; reporting a missing "xmllint" binary or, when passed the + ;; "--no-xmllint" option, a missing "xsltproc" binary. + ;; The following phase enables asciidoc to find some of them. + (add-before 'configure 'set-xml-binary-paths + (lambda* (#:key inputs #:allow-other-keys) + (let* ((libxml2 (assoc-ref inputs "libxml2")) + (xmllint (string-append libxml2 "/bin/xmllint")) + (libxslt (assoc-ref inputs "libxslt")) + (xsltproc (string-append libxslt "/bin/xsltproc"))) + (substitute* "a2x.py" + (("XMLLINT = 'xmllint'") + (string-append "XMLLINT = '" xmllint "'")) + (("XSLTPROC = 'xsltproc'") + (string-append "XSLTPROC = '" xsltproc "'"))) + #t))) ;; Make asciidoc use the local docbook-xsl package instead of fetching ;; it from the internet at run-time. (add-before 'install 'make-local-docbook-xsl @@ -67,7 +85,9 @@ release/xsl/current") ,(package-version docbook-xsl))))) #t))))) (inputs `(("python" ,python-2) - ("docbook-xsl" ,docbook-xsl))) + ("docbook-xsl" ,docbook-xsl) + ("libxml2" ,libxml2) + ("libxslt" ,libxslt))) (home-page "http://www.methods.co.nz/asciidoc/") (synopsis "Text-based document generation system") (description -- cgit v1.2.3