amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-all-the-icons: Improve style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-all-the-icons):
  [arguments]: Improve style, use gexps.

Signed-off-by: Ian Eure <ian@retrospec.tv>
This commit is contained in:
Nicolas Graves 2025-05-18 10:16:25 +02:00 • committed by Liliana Marie Prikler
parent bf6c7e0a57
commit 07e8c8f636
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 23 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/emacs-xyz.scm
View file

@ -32659,29 +32659,29 @@ GUI and terminal, and requires a nerd font installed on your system.")
(base32 "0lwgvgnqf7vihglm0c5bwsxbl4x7f641289cji5s7jwy2dbsqk7g")))) (base32 "0lwgvgnqf7vihglm0c5bwsxbl4x7f641289cji5s7jwy2dbsqk7g"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:include '("\\.el$" "^data/") (list
#:exclude '("^test/") #:include '(list "\\.el$" "^data/")
#:tests? #f ; XXX: duplicate tests #:exclude '(list "^test/")
#:phases #:tests? #f ; XXX: duplicate tests
(modify-phases %standard-phases #:phases
(add-after 'install 'install-fonts #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'install-fonts
(let ((fonts (string-append (assoc-ref outputs "out") (lambda _
"/share/fonts"))) (let ((fonts (string-append #$output "/share/fonts")))
(mkdir-p fonts) (mkdir-p fonts)
(with-directory-excursion "fonts" (with-directory-excursion "fonts"
(install-file "all-the-icons.ttf" fonts) (install-file "all-the-icons.ttf" fonts)
;; TODO: Unbundle. ;; TODO: Unbundle.
(install-file "file-icons.ttf" fonts) (install-file "file-icons.ttf" fonts)
(install-file "octicons.ttf" fonts) (install-file "octicons.ttf" fonts)
(install-file "weathericons.ttf" fonts))))) (install-file "weathericons.ttf" fonts)))))
(replace 'check (replace 'check
(lambda* (#:key tests? outputs #:allow-other-keys) (lambda* (#:key tests? #:allow-other-keys)
(if tests? (if tests?
(apply invoke "ert-runner" "-l" (apply invoke "ert-runner" "-l"
(append (find-files "data" "\\.el") (append (find-files "data" "\\.el")
'("all-the-icons-faces.el"))) '("all-the-icons-faces.el")))
(format #t "test suite not run~%"))))))) (format #t "test suite not run~%")))))))
(native-inputs (native-inputs
(list emacs-f emacs-ert-runner)) (list emacs-f emacs-ert-runner))
(propagated-inputs (propagated-inputs