summary refs log tree commit diff
diff options
context:
space:
mode:
authorJohn Darrington <jmd@gnu.org>2014-07-13 17:15:47 +0200
committerJohn Darrington <jmd@gnu.org>2014-07-16 06:28:01 +0200
commit7f4bf030343bcb8a356f225595b0e2732025d311 (patch)
treef1c7ac8b993159bd67ebbe2d361ee638e3f0eb64
parenta6639cf7f294e4ca53522666d644c64c53d46861 (diff)
downloadguix-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.scm13
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")