gnu: xdg-desktop-portal-wlr: Cleanup and style.

* gnu/packages/freedesktop.scm (xdg-desktop-portal-wlr): Cleanup and run guix
style.

Change-Id: I2ac138281b8be351000f0beabd2efb1d0cdcb29f
Signed-off-by: Noé Lopez <noelopez@free.fr>

gnu/packages/freedesktop.scm

@@ -3418,49 +3418,49 @@ interfaces.")
   (package
     (name "xdg-desktop-portal-wlr")
     (version "0.8.2")
-    (source (origin
+    (source
+     (origin
        (method git-fetch)
        (uri (git-reference
              (url "https://github.com/emersion/xdg-desktop-portal-wlr")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-               (base32
-                "1jj0a9s3h3i04qsxkhcpxjzbb17hs9ngdy7wkypja09233zdz10w"))
+        (base32 "1jj0a9s3h3i04qsxkhcpxjzbb17hs9ngdy7wkypja09233zdz10w"))
        (patches (search-patches "xdg-desktop-portal-wlr-harcoded-length.patch"))))
     (build-system meson-build-system)
     (arguments
-     `(#:configure-flags
-       '("-Dsystemd=disabled"
+     (list
+      #:configure-flags
+      #~(list "-Dsystemd=disabled"
               "-Dsd-bus-provider=libelogind")
       #:phases
-       (modify-phases %standard-phases
+      #~(modify-phases %standard-phases
           (add-after 'unpack 'hardcode-binaries
             (lambda* (#:key inputs #:allow-other-keys)
               (let ((sh (search-input-file inputs "/bin/sh"))
                     (grim (search-input-file inputs "/bin/grim"))
                     (slurp (search-input-file inputs "/bin/slurp")))
-               (substitute* "src/screenshot/screenshot.c"
+                (substitute* '("src/screencast/chooser.c"
+                               "src/screenshot/screenshot.c")
                   (("grim") grim)
                   (("slurp") slurp)
-                 (("execl\\(\"/bin/sh\", \"/bin/sh\"")
-                  (string-append "execl(\"" sh "\", \"" sh "\"")))
+                  (("/bin/sh") sh))
                 (substitute* "src/screencast/screencast.c"
                   (("execvp\\(\"sh")
-                  (string-append "execvp(\"" sh))))))
+                   (format #f "execvp(\"~a" sh))))))
           (add-after 'install 'install-documentation
-           (lambda* (#:key outputs #:allow-other-keys)
+            (lambda _
               (install-file "../source/README.md"
-                           (string-append (assoc-ref outputs "out")
-                                          "/share/doc/" ,name)))))))
-    (native-inputs
-     (list cmake-minimal pkg-config scdoc))
-    (inputs (list elogind
-                  bash-minimal
+                            (string-append #$output "/share/doc/"
+                                           #$name)))))))
+    (native-inputs (list cmake-minimal pkg-config scdoc))
+    (inputs (list bash-minimal
+                  elogind
                   grim
                   iniparser
-                  mesa
                   libinih
+                  mesa
                   pipewire
                   slurp
                   wayland

gnu/packages/lisp-xyz.scm

@@ -22847,16 +22847,6 @@ specification}, a toolkit for writing GUIs in Common Lisp.")
 (define-public cl-mcclim
   (sbcl-package->cl-source-package sbcl-mcclim))
 
-(define-public ecl-mcclim
-  (let ((pkg (sbcl-package->ecl-package sbcl-mcclim)))
-    (package
-      (inherit pkg)
-      (arguments
-       (substitute-keyword-arguments arguments
-         ;; Tests fail with "FUNCTION: Not a valid argument (R1
-         ;; (GENERATE-REGION))."  on ECL.
-         ((#:tests? _ #f) #f))))))
-
 (define-public sbcl-md5
   (package
     (name "sbcl-md5")
@@ -29767,7 +29757,7 @@ the Processing language and shares some of the API.")
   ;; Update together with emacs-slime.
   (package
     (name "sbcl-slime-swank")
-    (version "2.31")
+    (version "2.32")
     (source
      (origin
        (file-name (git-file-name "cl-slime-swank" version))
@@ -29776,7 +29766,7 @@ the Processing language and shares some of the API.")
              (url "https://github.com/slime/slime/")
              (commit (string-append "v" version))))
        (sha256
-        (base32 "0nv99wq2vz053p0rn9953rhmyz4g40zdl01mz7z9xbklxzbsx6x7"))
+        (base32 "0s7m7j7y1p8fb6ncpxcxdrrrxp5aw67xl7wrqy8zjjvwzljbs548"))
        (modules '((guix build utils)))
        (snippet
         ;; The doc folder drags `gawk' into the closure.  Doc is already