[bug#78315,v3,52/53] gnu: emacs-org-webring: Improve style.

Message ID 20250518081658.11362-52-ngraves@ngraves.fr
State New
Headers
Series [bug#78315,v3,01/53] gnu: emacs-emms: Fix build. |

Commit Message

Nicolas Graves May 18, 2025, 8:16 a.m. UTC
  * gnu/packages/emacs-xyz.scm (emacs-org-webring)[arguments]<phases>:
  Improve style.
---
 gnu/packages/emacs-xyz.scm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)
  

Patch

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 520184e4d6..ca45ad1ae9 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -41613,16 +41613,14 @@  (define-public emacs-org-webring
          "1si0jah7n2gvlvghjy5dpannqpkxni5rczfp1x2a4z6ydalr3bn5"))))
     (build-system emacs-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'install-assets
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (assets
-                     (string-append out "/share/emacs/org-webring-assets")))
-               (mkdir-p assets)
-               (copy-recursively "assets" assets)
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'install-assets
+            (lambda _
+              (copy-recursively
+               "assets"
+               (string-append #$output "/share/emacs/org-webring-assets")))))))
     (propagated-inputs
      (list emacs-xmlgen))
     (home-page "https://sr.ht/~brettgilio/org-webring")