tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-28 03:51:53 +02:00
Code Activity

gnu: npiet: Use gexps.

Browse Source 
* gnu/packages/piet.scm (npiet): Use Gexp.
[arguments]: Use Gexp and remove tail #t.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Zheng Junjie
2023-09-06 17:46:49 +08:00
committed by Ludovic Courtès
parent 40a76a7750
commit 62e1387065
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/packages/piet.scm
+12 -10
View File
@@ -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))