01/02: gnu: emacs-all-the-icons: Install all the fonts.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 9ae7bd91bd94fa564d83448fc71dcbb682dd226c
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Sun Nov 14 16:13:01 2021 +0100

    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.
---
 gnu/packages/emacs-xyz.scm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 50232fcbbc..c12783b4b9 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -155,6 +155,7 @@
   #:use-module (gnu packages djvu)
   #:use-module (gnu packages ebook)
   #:use-module (gnu packages emacs)
+  #:use-module (gnu packages fonts)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages golang)
   #:use-module (gnu packages guile)
@@ -22831,13 +22832,26 @@ files are easily readable and they work nicely with 
version control systems.")
         (base32 "0lwgvgnqf7vihglm0c5bwsxbl4x7f641289cji5s7jwy2dbsqk7g"))))
     (build-system emacs-build-system)
     (arguments
-     `(#:include '("\\.el$" "^data/" "^fonts/")
+     `(#:include '("\\.el$" "^data/")
        ;; Compiling "test/" fails with "Symbol’s value as variable is void:
        ;; 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/")
        #:tests? #f))
     (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";)
     (synopsis "Collect icon fonts and propertize them within Emacs")
     (description