03/06: gnu: ratpoison: Use gexps and remove input labels.

[guix-commits]

apteryx pushed a commit to branch master
in repository guix.

commit a664f453d5188834102a4bdb470835de062a11d0
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Oct 10 20:32:57 2022 -0400

    gnu: ratpoison: Use gexps and remove input labels.
    
    * gnu/packages/ratpoison.scm (ratpoison) [phases]: Use gexps.
    [inputs, native-inputs]: Remove input labels.
---
 gnu/packages/ratpoison.scm | 60 ++++++++++++++++++++++++----------------------
 1 file changed, 31 insertions(+), 29 deletions(-)

diff --git a/gnu/packages/ratpoison.scm b/gnu/packages/ratpoison.scm
index 0c0687032d..36e9619ee1 100644
--- a/gnu/packages/ratpoison.scm
+++ b/gnu/packages/ratpoison.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2013, 2014, 2019 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
+;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -19,8 +20,9 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (gnu packages ratpoison)
-  #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
   #:use-module (guix build-system gnu)
   #:use-module ((guix licenses) #:select (gpl2+))
   #:use-module (gnu packages)
@@ -44,42 +46,42 @@
              (patches (search-patches "ratpoison-shell.patch"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:modules ((ice-9 format)
+     (list
+      #:modules `((ice-9 format)
                   ,@%gnu-build-system-modules)
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'install-xsession
-           (lambda* (#:key outputs #:allow-other-keys)
-             ;; Add a .desktop file to xsessions.
-             (let* ((output    (assoc-ref outputs "out"))
-                    (xsessions (string-append output "/share/xsessions")))
-               (mkdir-p xsessions)
-               (call-with-output-file (string-append xsessions
-                                                     "/ratpoison.desktop")
-                 (lambda (port)
-                   (format port
-                           "[Desktop Entry]~@
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'install-xsession
+            (lambda _
+              ;; Add a .desktop file to xsessions.
+              (let ((xsessions (string-append #$output "/share/xsessions")))
+                (mkdir-p xsessions)
+                (call-with-output-file (string-append xsessions
+                                                      "/ratpoison.desktop")
+                  (lambda (port)
+                    (format port
+                            "[Desktop Entry]~@
                             Name=ratpoison~@
                             Comment=Tiling window manager: say goodbye to the 
rodent!~@
                             Exec=~a/bin/ratpoison~@
                             TryExec=~@*~a/bin/ratpoison~@
                             Type=Application~%"
-                           output)))
-               #t))))))
+                            #$output)))))))))
     (inputs
-     `(("fontconfig" ,fontconfig)
-       ("freetype" ,freetype)
-       ("libXft" ,libxft)
-       ("libXi" ,libxi)
-       ("libxrandr" ,libxrandr)
-       ("libXpm" ,libxpm)
-       ("libXt" ,libxt)
-       ("libXtst" ,libxtst)
-       ("libX11" ,libx11)
-       ("readline" ,readline)
-       ("xorgproto" ,xorgproto)))
+     (list fontconfig
+           freetype
+           libxft
+           libxi
+           libxrandr
+           libxpm
+           libxt
+           libxtst
+           libx11
+           readline
+           xorgproto))
     (native-inputs
-     (list perl pkg-config))
+     (list perl
+           pkg-config))
     (home-page "https://www.nongnu.org/ratpoison/";)
     (synopsis "Simple mouse-free tiling window manager")
     (description