me/guix
Archived
1
0
Fork 0
Code Activity

gnu: feh: Use G-expressions.

Browse source 
* gnu/packages/image-viewers.scm (feh)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-07-17 02:00:01 +02:00
parent a7c3eb8fdf
commit a432ae0c0b
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/image-viewers.scm
View file

@ -173,14 +173,16 @@ YouTube videos without requiring API and opens/downloads them using mpv/ytdl.")
"185wwqd60r2rk6lzcvd6sl58589qfqrfnf7lqd6friyj84n9cjc6")))) "185wwqd60r2rk6lzcvd6sl58589qfqrfnf7lqd6friyj84n9cjc6"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (modify-phases %standard-phases (delete 'configure)) (list #:phases
#:test-target "test" #~(modify-phases %standard-phases
#:make-flags (delete 'configure)) ; no configure script
(list ,(string-append "CC=" (cc-for-target)) #:test-target "test"
(string-append "PREFIX=" (assoc-ref %outputs "out")) #:make-flags
"exif=1" #~(list (string-append "CC=" #$(cc-for-target))
"inotify=1" (string-append "PREFIX=" #$output)
"magic=1"))) "exif=1"
"inotify=1"
"magic=1")))
(native-inputs (native-inputs
(list perl perl-test-command)) (list perl perl-test-command))
(inputs (list curl (inputs (list curl