summaryrefslogtreecommitdiff
path: root/gnu/packages/docbook.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/docbook.scm')
-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 431da7ff473..c689c9c81d7 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.")
100 "0rxl013ncmz1n6ymk2idvx3hix9pdabk8xn01cpcv32wmfb753y9")))) 100 "0rxl013ncmz1n6ymk2idvx3hix9pdabk8xn01cpcv32wmfb753y9"))))
101 (build-system trivial-build-system) 101 (build-system trivial-build-system)
102 (arguments 102 (arguments
103 `(#:builder (begin 103 `(#:builder (let ((name-version (string-append ,name "-" ,version)))
104 (use-modules (guix build utils)) 104 (use-modules (guix build utils))
105 105
106 (let* ((bzip2 (assoc-ref %build-inputs "bzip2")) 106 (let* ((bzip2 (assoc-ref %build-inputs "bzip2"))
@@ -112,10 +112,13 @@ by no means limited to these applications.) This package provides XML DTDs.")
112 (system* (string-append tar "/bin/tar") "xvf" source) 112 (system* (string-append tar "/bin/tar") "xvf" source)
113 113
114 (mkdir-p xsl) 114 (mkdir-p xsl)
115 (copy-recursively (string-append ,name "-" ,version) 115 (copy-recursively name-version
116 (string-append xsl "/" ,name 116 (string-append xsl "/" name-version))
117 "-" ,version)))) 117
118 #:modules ((guix build utils)))) 118 (substitute* (string-append xsl "/" name-version "/catalog.xml")
119 (("rewritePrefix=\"./")
120 (string-append "rewritePrefix=\"file://" xsl "/" name-version "/")))))
121 #:modules ((guix build utils))))
119 (native-inputs `(("bzip2" ,bzip2) 122 (native-inputs `(("bzip2" ,bzip2)
120 ("tar" ,tar))) 123 ("tar" ,tar)))
121 (home-page "http://docbook.org") 124 (home-page "http://docbook.org")