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

gnu: catimg: Simplify. 

* gnu/packages/image-viewers.scm (catimg)[arguments]: Rename custom
"configure" phase to "patch-convert"; remove custom "build" phase; move
"install-script" phase after "install"; simplify phases.
This commit is contained in:
Ricardo Wurmus 2019-01-23 22:06:02 +01:00
parent d39a54ff72
commit e2f47efee6
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 13 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gnu/packages/image-viewers.scm
View File

@ -301,37 +301,24 @@ your images. Among its features are:
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs #:allow-other-keys)
(let* ((magic (assoc-ref %build-inputs "imagemagick"))
(convert (string-append magic "/bin/convert")))
(substitute* "catimg"
;; By replacing "convert", we also replace the "convert"
;; in the message 'The version of convert is too old, don't
;; expect good results :('. This should not happen, but in
;; practice this error message should not affect us.
(("convert") convert))
#t)))
(replace 'build
(add-after 'unpack 'patch-convert
(lambda _
(let* ((out (assoc-ref %outputs "out"))
(man (string-append out "/share/man/man1")))
(zero? (system* "cmake"
(string-append "-DCMAKE_INSTALL_PREFIX=" out)
(string-append "-DMAN_OUTPUT_PATH=" man)
"."))
(zero? (system* "make")))))
(add-before 'install 'install-script
(substitute* "catimg"
;; By replacing "convert", we also replace the "convert"
;; in the message 'The version of convert is too old, don't
;; expect good results :('. This should not happen, but in
;; practice this error message should not affect us.
(("convert") (which "convert")))
#t))
(add-after 'install 'install-script
(lambda* (#:key outputs #:allow-other-keys)
;; The bash script lacks an file extension. We have to rename
;; it so that the C program and the bash script can be happy
;; side by side.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(install-file "catimg" bin)
(rename-file (string-append bin "/catimg")
(string-append bin "/catimg.sh"))
#t))))))
(copy-file "../source/catimg"
(string-append (assoc-ref outputs "out")
"/bin/catimg.sh"))
#t)))))
(inputs
`(("imagemagick" ,imagemagick))) ; for the bash script version
(home-page "https://github.com/posva/catimg")