2 files changed, 33 insertions(+), 3 deletions(-)

M home/dotfiles/waybar/style.css
M home/home-configuration.scm

@@ 1,6 1,6 @@
 * {
     /* `otf-font-awesome` is required to be installed for icons */
-    font-family: FontAwesome, Ubuntu;
+    font-family: Ubuntu, "Font Awesome 6 Free";
     font-size: 13px;
 }
 

@@ 14,6 14,8 @@
              (gnu packages shellutils)
              (gnu packages wm)
              (gnu packages freedesktop)
+             (guix git-download)
+             (gnu packages fonts)
              (gnu services)
              (gnu home services fontutils)
              (gnu home services desktop)


@@ 30,13 32,41 @@
              (ruther home services wayland)
              (ruther home services kanshi))
 
+(define-public font-awesome-6
+  (package/inherit font-awesome
+    (version "6.5.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/FortAwesome/Font-Awesome")
+             (commit version)))
+       (sha256
+        (base32 "1v1acl833ifg9bw3lffklkg8i80bj8h01b99y5pvxidby8pvyili"))))
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (source (getcwd))
+                    (fonts (string-append out "/share/fonts")))
+               (for-each (lambda (file)
+                           (install-file file (string-append fonts "/truetype")))
+                         (find-files source "\\.(ttf|ttc)$"))
+               (for-each (lambda (file)
+                           (install-file file (string-append fonts "/opentype")))
+                         (find-files source "\\.(otf|otc)$"))
+               #t))))))))
+
 (home-environment
  ;; Below is the list of packages that will show up in your
  ;; Home profile, under ~/.guix-home/profile.
  (packages
   (append
    (list
-    dwl-mine)
+    dwl-mine
+    font-awesome-6)
    (specifications->packages
     (list
      "slurp"


@@ 54,7 84,7 @@
      ;; Fonts
      "font-hack" "font-dejavu"
      "font-ubuntu"
-     "font-awesome" "font-google-noto-emoji"
+     "font-google-noto-emoji"
 
      ;; Browsing
      "librewolf"