diff mbox series

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

Message ID 20250508125104.26530-53-ngraves@ngraves.fr
State New
Headers
Series More fixes, and a lot of style improvements. |

Commit Message

Nicolas Graves May 8, 2025, 12:50 p.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(-)
diff mbox series

Patch

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 97b69375ce..843e51e6ae 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -41617,16 +41617,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")