ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: docbook-xsl write absolute file:// uris in catalogs instead of ./ relative ones

Browse source 
* gnu/packages/docbook.scm (docbook-xsl):  Replace ./ paths with file:// uris
This commit is contained in:
John Darrington 2014-07-13 17:15:47 +02:00
parent a6639cf7f2
commit 7f4bf03034
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/docbook.scm
View file

@ -100,7 +100,7 @@ (define-public docbook-xsl
"0rxl013ncmz1n6ymk2idvx3hix9pdabk8xn01cpcv32wmfb753y9")))) "0rxl013ncmz1n6ymk2idvx3hix9pdabk8xn01cpcv32wmfb753y9"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(arguments (arguments
`(#:builder (begin `(#:builder (let ((name-version (string-append ,name "-" ,version)))
(use-modules (guix build utils)) (use-modules (guix build utils))
(let* ((bzip2 (assoc-ref %build-inputs "bzip2")) (let* ((bzip2 (assoc-ref %build-inputs "bzip2"))
@ -112,10 +112,13 @@ (define-public docbook-xsl
(system* (string-append tar "/bin/tar") "xvf" source) (system* (string-append tar "/bin/tar") "xvf" source)
(mkdir-p xsl) (mkdir-p xsl)
(copy-recursively (string-append ,name "-" ,version) (copy-recursively name-version
(string-append xsl "/" ,name (string-append xsl "/" name-version))
"-" ,version))))
#:modules ((guix build utils)))) (substitute* (string-append xsl "/" name-version "/catalog.xml")
(("rewritePrefix=\"./")
(string-append "rewritePrefix=\"file://" xsl "/" name-version "/")))))
#:modules ((guix build utils))))
(native-inputs `(("bzip2" ,bzip2) (native-inputs `(("bzip2" ,bzip2)
("tar" ,tar))) ("tar" ,tar)))
(home-page "http://docbook.org") (home-page "http://docbook.org")