me
/
guix
Archived
1
0
Fork 0
Code

gnu: cl-cmd: Improve package style. 

* gnu/packages/lisp-xyz.scm (sbcl-cmd)[arguments]: Use
  G-expressions. Move above inputs.
  [inputs]: Remove labels. Sort.

Change-Id: I7cafea4cce3b2dfb89b21c43d71b96767d55c7f5
Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
master
Paul A. Patience 2023-12-29 12:54:57 +00:00 committed by Guillaume Le Vaillant
parent 4b070c750f
commit 2da9ee16e3
No known key found for this signature in database
GPG Key ID: 6BE8208ADF21FE3F
1 changed files with 28 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
gnu/packages/lisp-xyz.scm
View File

@ -17968,33 +17968,35 @@ standard library.")
(sha256
(base32 "03wbckzmz6pqdlz7pyar6nfg4vs4bl0b2np7n3kk3qhjbrdakc4m"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
("coreutils" ,coreutils)
("procps" ,procps)
("serapeum" ,sbcl-serapeum)
("shlex" ,sbcl-shlex)
("trivia" ,sbcl-trivia)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref inputs "coreutils") "/bin"))
(ps-bin (string-append (assoc-ref inputs "procps") "/bin")))
(substitute* "cmd.lisp"
(("\\(def \\+env\\+ \"env\"\\)")
(format #f "(def +env+ \"~a/env\")" bin))
(("\\(def \\+kill\\+ \"kill\"\\)")
(format #f "(def +kill+ \"~a/kill\")" bin))
(("\\(def \\+ps\\+ \"ps\"\\)")
(format #f "(def +ps+ \"~a/ps\")" ps-bin))
(("\\(def \\+pwd\\+ \"pwd\"\\)")
(format #f "(def +pwd+ \"~a/pwd\")" bin))
(("\\(def \\+sh\\+ \"/bin/sh\"\\)")
(format #f "(def +sh+ \"~a\")" (which "sh")))
(("\\(def \\+tr\\+ \"tr\"\\)")
(format #f "(def +tr+ \"~a/tr\")" bin)))))))))
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref inputs "coreutils")
"/bin"))
(ps-bin (string-append (assoc-ref inputs "procps")
"/bin")))
(substitute* "cmd.lisp"
(("\\(def \\+env\\+ \"env\"\\)")
(format #f "(def +env+ \"~a/env\")" bin))
(("\\(def \\+kill\\+ \"kill\"\\)")
(format #f "(def +kill+ \"~a/kill\")" bin))
(("\\(def \\+ps\\+ \"ps\"\\)")
(format #f "(def +ps+ \"~a/ps\")" ps-bin))
(("\\(def \\+pwd\\+ \"pwd\"\\)")
(format #f "(def +pwd+ \"~a/pwd\")" bin))
(("\\(def \\+sh\\+ \"/bin/sh\"\\)")
(format #f "(def +sh+ \"~a\")" (which "sh")))
(("\\(def \\+tr\\+ \"tr\"\\)")
(format #f "(def +tr+ \"~a/tr\")" bin)))))))))
(inputs
(list coreutils
procps
sbcl-alexandria
sbcl-serapeum
sbcl-shlex
sbcl-trivia))
(home-page "https://github.com/ruricolist/cmd")
(synopsis "Conveniently run external programs from Common Lisp")
(description