From 7f4bf030343bcb8a356f225595b0e2732025d311 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Sun, 13 Jul 2014 17:15:47 +0200 Subject: [PATCH] gnu: docbook-xsl write absolute file:// uris in catalogs instead of ./ relative ones * gnu/packages/docbook.scm (docbook-xsl): Replace ./ paths with file:// uris --- gnu/packages/docbook.scm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm index 431da7ff47..c689c9c81d 100644 --- a/gnu/packages/docbook.scm +++ b/gnu/packages/docbook.scm @@ -100,7 +100,7 @@ by no means limited to these applications.) This package provides XML DTDs.") "0rxl013ncmz1n6ymk2idvx3hix9pdabk8xn01cpcv32wmfb753y9")))) (build-system trivial-build-system) (arguments - `(#:builder (begin + `(#:builder (let ((name-version (string-append ,name "-" ,version))) (use-modules (guix build utils)) (let* ((bzip2 (assoc-ref %build-inputs "bzip2")) @@ -112,10 +112,13 @@ by no means limited to these applications.) This package provides XML DTDs.") (system* (string-append tar "/bin/tar") "xvf" source) (mkdir-p xsl) - (copy-recursively (string-append ,name "-" ,version) - (string-append xsl "/" ,name - "-" ,version)))) - #:modules ((guix build utils)))) + (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 "/"))))) + #:modules ((guix build utils)))) (native-inputs `(("bzip2" ,bzip2) ("tar" ,tar))) (home-page "http://docbook.org")