From 8c84876ecb39bf4ac6c261c8df09cc0530734892 Mon Sep 17 00:00:00 2001 From: Cayetano Santos Date: Tue, 26 Aug 2025 13:55:02 +0200 Subject: gnu: slstatus: Improve style. * gnu/packages/suckless.scm (slstatus)[arguments]: Use G-Expressions. [inputs]: Modernize. Change-Id: If6e45302b7fc26eceba805cf389569a12915db06 Signed-off-by: Danny Milosavljevic --- gnu/packages/suckless.scm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm index 603b53dc9dc..4170de1ca3e 100644 --- a/gnu/packages/suckless.scm +++ b/gnu/packages/suckless.scm @@ -157,18 +157,18 @@ other applications, i.e., st, uzbl, urxvt and xterm.") (base32 "063a4fnvsjbc61alnbfdpxy0nwhh9ql9j6s9hkdv12713kv932ds")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ;no test suite - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch - (lambda* (#:key inputs outputs #:allow-other-keys) - (substitute* "config.mk" - (("/usr/local") (assoc-ref outputs "out")) - (("/usr/X11R6") (assoc-ref inputs "x11")) - (("CC = cc") (string-append "CC = " ,(cc-for-target)))))) - (delete 'configure)))) ;no configure script - (inputs - `(("x11" ,libx11))) + (list #:tests? #f ;no test suite + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch + (lambda* (#:key inputs outputs #:allow-other-keys) + (substitute* "config.mk" + (("/usr/local") #$output) + (("/usr/X11R6") #$(this-package-input "libx11")) + (("CC = cc") + (string-append "CC = " #$(cc-for-target)))))) + (delete 'configure)))) ;no configure script + (inputs (list libx11)) (home-page "https://tools.suckless.org/slstatus/") (synopsis "Status monitor for window managers") (description "SlStatus is a suckless status monitor for window managers -- cgit v1.3