diff options
| author | John Darrington <jmd@gnu.org> | 2014-07-13 17:15:47 +0200 |
|---|---|---|
| committer | John Darrington <jmd@gnu.org> | 2014-07-16 06:28:01 +0200 |
| commit | 7f4bf030343bcb8a356f225595b0e2732025d311 (patch) | |
| tree | f1c7ac8b993159bd67ebbe2d361ee638e3f0eb64 | |
| parent | a6639cf7f294e4ca53522666d644c64c53d46861 (diff) | |
| download | patches-7f4bf030343bcb8a356f225595b0e2732025d311.tar patches-7f4bf030343bcb8a356f225595b0e2732025d311.tar.gz | |
gnu: docbook-xsl write absolute file:// uris in catalogs instead of ./ relative ones
* gnu/packages/docbook.scm (docbook-xsl): Replace ./ paths with file:// uris
| -rw-r--r-- | gnu/packages/docbook.scm | 13 |
1 files 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") |