me
/
guix
Archived
1
0
Fork 0

gnu: emacs-all-the-icons: Install all the fonts.

* gnu/packages/emacs-xyz.scm (emacs-all-the-icons)[#:include]: Drop fonts.
[#:phases]<install-fonts>: Install them directly to ‘/share’.
[propagated-inputs]: Add font-awesome and font-material-design-icons.
Liliana Marie Prikler 2021-11-14 16:13:01 +01:00
parent 2d53fa7706
commit 9ae7bd91bd
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 16 additions and 2 deletions

View File

@ -155,6 +155,7 @@
#:use-module (gnu packages djvu) #:use-module (gnu packages djvu)
#:use-module (gnu packages ebook) #:use-module (gnu packages ebook)
#:use-module (gnu packages emacs) #:use-module (gnu packages emacs)
#:use-module (gnu packages fonts)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages golang) #:use-module (gnu packages golang)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
@ -22831,13 +22832,26 @@ files are easily readable and they work nicely with version control systems.")
(base32 "0lwgvgnqf7vihglm0c5bwsxbl4x7f641289cji5s7jwy2dbsqk7g")))) (base32 "0lwgvgnqf7vihglm0c5bwsxbl4x7f641289cji5s7jwy2dbsqk7g"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:include '("\\.el$" "^data/" "^fonts/") `(#:include '("\\.el$" "^data/")
;; Compiling "test/" fails with "Symbols value as variable is void: ;; Compiling "test/" fails with "Symbols value as variable is void:
;; all-the-icons--root-code". Ignoring tests. ;; all-the-icons--root-code". Ignoring 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))))))
#:exclude '("^test/") #:exclude '("^test/")
#:tests? #f)) #:tests? #f))
(propagated-inputs (propagated-inputs
(list emacs-f emacs-memoize)) (list emacs-f emacs-memoize font-awesome font-google-material-design-icons))
(home-page "https://github.com/domtronn/all-the-icons.el") (home-page "https://github.com/domtronn/all-the-icons.el")
(synopsis "Collect icon fonts and propertize them within Emacs") (synopsis "Collect icon fonts and propertize them within Emacs")
(description (description