nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: imagemagick: Do not retain reference to "doc" output. 

* gnu/packages/imagemagick.scm (imagemagick)[arguments]: Use 'modify-phases'.
  Add 'strip-configure-xml' phase.
This commit is contained in:
Ludovic Courtès 2015-06-22 22:45:00 +02:00
parent 0e2d0213b5
commit 790c3717d2
1 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
gnu/packages/imagemagick.scm
View File

@ -47,23 +47,33 @@
"18wbsjfccxlgsdsd6h9wvhcjrsglyi086jk4bk029ik07rh81laz")))) "18wbsjfccxlgsdsd6h9wvhcjrsglyi086jk4bk029ik07rh81laz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (alist-cons-before `(#:phases (modify-phases %standard-phases
'build 'pre-build (add-before
(lambda* (#:key outputs #:allow-other-keys) 'build 'pre-build
(substitute* "Makefile" (lambda* (#:key outputs #:allow-other-keys)
;; Clear the `LIBRARY_PATH' setting, which otherwise (substitute* "Makefile"
;; interferes with our own use. ;; Clear the `LIBRARY_PATH' setting, which otherwise
(("^LIBRARY_PATH[[:blank:]]*=.*$") ;; interferes with our own use.
"") (("^LIBRARY_PATH[[:blank:]]*=.*$")
"")
;; Since the Makefile overrides $docdir, modify it to ;; Since the Makefile overrides $docdir, modify it to
;; refer to what we want. ;; refer to what we want.
(("^DOCUMENTATION_PATH[[:blank:]]*=.*$") (("^DOCUMENTATION_PATH[[:blank:]]*=.*$")
(let ((doc (assoc-ref outputs "doc"))) (let ((doc (assoc-ref outputs "doc")))
(string-append "DOCUMENTATION_PATH = " (string-append "DOCUMENTATION_PATH = "
doc "/share/doc/" doc "/share/doc/"
,name "-" ,version "\n"))))) ,name "-" ,version "\n"))))))
%standard-phases))) (add-before
'configure 'strip-configure-xml
(lambda _
(substitute* "config/configure.xml.in"
;; Do not record 'configure' arguments in the
;; configure.xml file that gets installed: That would
;; include --docdir, and thus retain a reference to the
;; 'doc' output.
(("@CONFIGURE_ARGS@")
"not recorded")))))))
;; TODO: Add Jasper etc. ;; TODO: Add Jasper etc.
(inputs `(("fftw" ,fftw) (inputs `(("fftw" ,fftw)
("graphviz" ,graphviz) ("graphviz" ,graphviz)