ieure pushed a commit to branch emacs-team
in repository guix.
commit 93208b21e55d5cf79d6a466d629a3847a78ecbef
Author: Nicolas Graves <ngra...@ngraves.fr>
AuthorDate: Sun May 18 10:16:25 2025 +0200
gnu: emacs-all-the-icons: Improve style.
* gnu/packages/emacs-xyz.scm (emacs-all-the-icons):
[arguments]: Improve style, use gexps.
Signed-off-by: Ian Eure <i...@retrospec.tv>
---
gnu/packages/emacs-xyz.scm | 46 +++++++++++++++++++++++-----------------------
1 file changed, 23 insertions(+), 23 deletions(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index c693bd887b..d56e7c9ac7 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -32382,29 +32382,29 @@ GUI and terminal, and requires a nerd font installed
on your system.")
(base32 "0lwgvgnqf7vihglm0c5bwsxbl4x7f641289cji5s7jwy2dbsqk7g"))))
(build-system emacs-build-system)
(arguments
- `(#:include '("\\.el$" "^data/")
- #:exclude '("^test/")
- #:tests? #f ; XXX: duplicate tests
- #:phases
- (modify-phases %standard-phases
- (add-after 'install 'install-fonts
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((fonts (string-append (assoc-ref outputs "out")
- "/share/fonts")))
- (mkdir-p fonts)
- (with-directory-excursion "fonts"
- (install-file "all-the-icons.ttf" fonts)
- ;; TODO: Unbundle.
- (install-file "file-icons.ttf" fonts)
- (install-file "octicons.ttf" fonts)
- (install-file "weathericons.ttf" fonts)))))
- (replace 'check
- (lambda* (#:key tests? outputs #:allow-other-keys)
- (if tests?
- (apply invoke "ert-runner" "-l"
- (append (find-files "data" "\\.el")
- '("all-the-icons-faces.el")))
- (format #t "test suite not run~%")))))))
+ (list
+ #:include '(list "\\.el$" "^data/")
+ #:exclude '(list "^test/")
+ #:tests? #f ; XXX: duplicate tests
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'install 'install-fonts
+ (lambda _
+ (let ((fonts (string-append #$output "/share/fonts")))
+ (mkdir-p fonts)
+ (with-directory-excursion "fonts"
+ (install-file "all-the-icons.ttf" fonts)
+ ;; TODO: Unbundle.
+ (install-file "file-icons.ttf" fonts)
+ (install-file "octicons.ttf" fonts)
+ (install-file "weathericons.ttf" fonts)))))
+ (replace 'check
+ (lambda* (#:key tests? #:allow-other-keys)
+ (if tests?
+ (apply invoke "ert-runner" "-l"
+ (append (find-files "data" "\\.el")
+ '("all-the-icons-faces.el")))
+ (format #t "test suite not run~%")))))))
(native-inputs
(list emacs-f emacs-ert-runner))
(propagated-inputs
