gnu: npiet: Use gexps.
* gnu/packages/piet.scm (npiet): Use Gexp. [arguments]: Use Gexp and remove tail #t. Signed-off-by: Ludovic Courtès <ludo@gnu.org>master
parent
40a76a7750
commit
62e1387065
|
@ -21,6 +21,7 @@
|
||||||
(define-module (gnu packages piet)
|
(define-module (gnu packages piet)
|
||||||
#:use-module (guix packages)
|
#:use-module (guix packages)
|
||||||
#:use-module (guix download)
|
#:use-module (guix download)
|
||||||
|
#:use-module (guix gexp)
|
||||||
#:use-module (guix git-download)
|
#:use-module (guix git-download)
|
||||||
#:use-module ((guix licenses) #:prefix license:)
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
#:use-module (guix build-system gnu)
|
#:use-module (guix build-system gnu)
|
||||||
|
@ -44,16 +45,17 @@
|
||||||
"0nl59fhdqqr7nslxdirdn8nvlq5wws67c7jyx2ckbmxbc9h8bv9d"))))
|
"0nl59fhdqqr7nslxdirdn8nvlq5wws67c7jyx2ckbmxbc9h8bv9d"))))
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
(arguments
|
(arguments
|
||||||
`(#:phases
|
(list #:phases
|
||||||
(modify-phases %standard-phases
|
#~(modify-phases %standard-phases
|
||||||
(add-after 'install 'wrap-binaries
|
(add-after 'install 'wrap-binaries
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||||
(let ((out (assoc-ref outputs "out")))
|
(let ((out (assoc-ref outputs "out")))
|
||||||
(wrap-program (string-append out "/bin/npietedit")
|
(wrap-program (string-append out
|
||||||
`("PATH" ":" prefix
|
"/bin/npietedit")
|
||||||
(,(dirname
|
`("PATH" ":" prefix
|
||||||
(search-input-file inputs "bin/wish")))))
|
(,(dirname
|
||||||
#t))))))
|
(search-input-file
|
||||||
|
inputs "bin/wish")))))))))))
|
||||||
(inputs
|
(inputs
|
||||||
(list gd giflib libpng tk))
|
(list gd giflib libpng tk))
|
||||||
(native-inputs (list groff))
|
(native-inputs (list groff))
|
||||||
|
|
Reference in New Issue