~ruther/guix-local: gnu: tabbed: Improve style.

22e32f5642a58aa3ff552f526303f96d96c7e89c — Cayetano Santos 8 months ago fa02e35

gnu: tabbed: Improve style.

* gnu/packages/suckless.scm (tabbed)[arguments]: Use G-Expressions.
[inputs]: Modernize style.

Change-Id: I54f0d10e5d3901adb23ed0abc4cbbb35ac9d7ca0
Signed-off-by: jgart <jgart@dismail.de>

patch browse .tar.gz

1 files changed, 19 insertions(+), 20 deletions(-)

M gnu/packages/suckless.scm

M gnu/packages/suckless.scm => gnu/packages/suckless.scm +19 -20

@@ 107,27 107,26 @@ terminal like @code{st}.")
         (base32 "0hhwckyzvsj9aim2l6m69wmvl2n7gzd6b1ly8qjnlpgcrcxfllbn"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f                      ; no check target
-       #: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 "libx11"))
-               (("/usr/include/freetype2")
-                (string-append (assoc-ref inputs "freetype")
-                               "/include/freetype2"))
-               (("CC = cc")
-                (string-append "CC = " ,(cc-for-target))))))
-         (delete 'configure))))         ; no configure script
+     (list
+      #:tests? #f                      ; no check target
+      #: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"))
+                (("/usr/include/freetype2")
+                 (string-append #$(this-package-input "freetype")
+                                "/include/freetype2"))
+                (("CC = cc")
+                 (string-append "CC = " #$(cc-for-target))))))
+          (delete 'configure))))         ; no configure script
     (inputs
-     `(("fontconfig" ,fontconfig)
-       ("freetype" ,freetype)
-       ("libx11" ,libx11)
-       ("libxft" ,libxft)))
+     (list fontconfig
+           freetype
+           libx11
+           libxft))
     (home-page "https://tools.suckless.org/tabbed/")
     (synopsis "Tab interface for application supporting Xembed")
     (description "Tabbed is a generic tabbed frontend to xembed-aware