me
/
guix
Archived
1
0
Fork 0
Code

gnu: moreutils: Use G-expressions. 

* gnu/packages/moreutils.scm (moreutils)[arguments]:
Rewrite as G-expressions.
master
Tobias Geerinckx-Rice 2022-01-04 19:56:51 +01:00
parent 479a1f0db5
commit de099ca5b9
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/moreutils.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016–2018, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016–2018, 2020–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -19,6 +19,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages moreutils) (define-module (gnu packages moreutils)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix l:) #:use-module ((guix licenses) #:prefix l:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
@ -47,22 +48,22 @@
(inputs (inputs
(list perl perl-timedate perl-time-duration)) (list perl perl-timedate perl-time-duration))
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")))
(wrap-program (wrap-program
(string-append out "/bin/ts") (string-append #$output "/bin/ts")
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB"))))))) `("PERL5LIB" ":" prefix (,(getenv "PERL5LIB"))))))
(delete 'configure)) ; no configure script (delete 'configure)) ; no configure script
#:make-flags #:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) #~(list (string-append "PREFIX=" #$output)
(string-append "DOCBOOKXSL=" (string-append "DOCBOOKXSL="
(assoc-ref %build-inputs "docbook-xsl") "/xml/xsl/" #$(this-package-native-input "docbook-xsl")
,(package-name docbook-xsl) "-" "/xml/xsl/docbook-xsl-"
,(package-version docbook-xsl)) #$(package-version (this-package-native-input
(string-append "CC=" ,(cc-for-target))))) "docbook-xsl")))
(string-append "CC=" #$(cc-for-target)))))
(home-page "https://joeyh.name/code/moreutils/") (home-page "https://joeyh.name/code/moreutils/")
(synopsis "Miscellaneous general-purpose command-line tools") (synopsis "Miscellaneous general-purpose command-line tools")
(description (description