feat: atkinson hyperlegible next

dotfiles/.config/emacs/config.el

@@ -5,8 +5,8 @@
 (add-hook 'emacs-lisp-mode-hook 'evil-paredit-mode)
 
 ;; scheme paredit
-(add-hook 'scheme 'enable-paredit-mode)
+(add-hook 'scheme-mode-hook 'enable-paredit-mode)
-(add-hook 'scheme 'evil-paredit-mode)
+(add-hook 'scheme-mode-hook 'evil-paredit-mode)
 
 ;; geiser
 (add-hook 'geiser-mode-hook 'ac-geiser-setup)
@@ -18,5 +18,7 @@
 
 (menu-bar-mode -1)
 (tool-bar-mode -1)
+(scroll-bar-mode -1)
 
 (add-to-list 'default-frame-alist '(alpha-background . 90))
+(set-frame-font "Atkinson Hyperlegible Next 10" nil t)

dotfiles/.config/foot/foot.ini

@@ -1,2 +1,5 @@
+[main]
+font=Atkinson Hyperlegible Next:size=10
+
 [colors]
 alpha=0.9

dotfiles/.config/i3status-rust/config.toml

@@ -4,7 +4,7 @@ icons_format = "{icon}"
 theme = "native"
 
 [icons]
-icons = "none"
+icons = "awesome4"
 [icons.overrides]
 bat = ["|E|", "|_|", "|=|", "|F|"]
 bat_charging = "|^| "

files/starship.fish

@@ -0,0 +1 @@
+starship init fish | source

home.scm

@@ -6,7 +6,10 @@
   (gnu home services dotfiles)
   (gnu home services shells)
   (gnu home services sway)
+  (gnu home services desktop)
+  (gnu home services sound)
   (packages nvim)
+  (packages fonts)
   (gnu system keyboard)
   (gnu services)
   (gnu system shadow))
@@ -19,8 +22,12 @@
 		     vim ; self-explanatory
 		     librewolf ; self-explanatory
 		     lua ; fennel
+		     video ; mpv, yt-dlp
 		     terminals ; foot
 		     admin ; fastfetch
+		     pulseaudio ; pavucontrol
+		     fonts ; cozette
+		     shellutils ; starship
 		     )
 
 (define neovim-packages 
@@ -50,12 +57,56 @@
     (bar (sway-bar
 	   (identifier 'bar0)
 	   (position 'top)
+	   (colors (sway-color (background "$dark")
+			       (statusline "$light")
+			       (focused-workspace
+				(sway-border-color (border "$gray")
+						   (background "$gray")
+						   (text "$light")))
+				(active-workspace
+				(sway-border-color (border "$mid")
+						   (background "$mid")
+						   (text "$light")))
+			       (inactive-workspace
+				(sway-border-color (border "$inactive")
+						   (background "$inactive")
+						   (text "$light")))
+			       (urgent-workspace
+				(sway-border-color (border "$urgent")
+						   (background "$urgent")
+						   (text "$light")))))
 	   (status-command sway-bar-status)))
     ;;(startup+reload-programs TODO)
-    ;;(extra-content TODO)
+    (extra-content (list
-    (variables %sway-default-variables)
+		    "client.focused $focused $focused $light $focused $focused"
+		    "client.focused_inactive $inactive $inactive $light $inactive $inactive"
+		    "client.unfocused $unfocused $unfocused $light $unfocused $unfocused"
+		    "client.urgent $urgent $urgent $light $urgent $urgent"
+		    "smart_gaps on"
+		    "gaps inner 0"
+		    "gaps outer -4"
+		    "gaps top -2"
+		    "gaps bottom 0"
+		    "default_border pixel 0"
+		    "default_floating_border pixel 2"
+		    "font pango:Atkinson Hyperlegible Next 10"
+		    ))
+    (variables (append `((mod . "Mod4")
+			 (light . "#ebdbb2")
+			 (dark . "#3c3836")
+			 (gray . "#928374")
+			 (mid . "#665c54")
+			(focused . "#3c3836")
+			(inactive . "#282828")
+			(unfocused . "#282828")
+			(urgent . "#b8bb26")
+			) %sway-default-variables))
     (keybindings %sway-default-keybindings)
     (gestures %sway-default-gestures)
+    (outputs
+           (list (sway-output
+                  (identifier '*)
+                  (background (local-file "files/homu-wallpaper.jpg")))))
     (packages (append (list
 		       grimshot
 		       i3status-rust
@@ -70,7 +121,13 @@
     (packages (append neovim-packages
 		      emacs-packages
 		      (list jujutsu
+			    yt-dlp
+			    mpv
+			    starship
+			    font-awesome
+			    font-atkinson-hyperlegible-next
 			    fastfetch
+			    pavucontrol
 			    ripgrep
 			    fd
 			    sd
@@ -85,10 +142,13 @@
 		   home-environment-variables-service-type
 		   '(("EDITOR" . "nvim")))
 
-          (service home-fish-service-type)
+          (service home-fish-service-type (home-fish-configuration (config (list (local-file "files/starship.fish")))))
 
 	  (service home-sway-service-type sway-config)
 
+	  (service home-dbus-service-type)
+	  (service home-pipewire-service-type) 
+
 	  (service home-dotfiles-service-type
 		   (home-dotfiles-configuration
 		    (directories '("./dotfiles"))))

packages/fonts.scm

@@ -0,0 +1,22 @@
+(define-module (packages fonts)
+	       #:use-module (guix build-system font))
+
+(define-public font-atkinson-hyperlegible-next
+  (package
+    (name "font-atkinson-hyperlegible-next")
+    (version "2.001-unstable-2025-02-21")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/googlefonts/atkinson-hyperlegible-next")
+             (commit "7925f50f649b3813257faf2f4c0b381011f434f1")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0000000000000000000000000000000000000000000000000000"))))
+    (build-system font-build-system)
+    (home-page "https://www.brailleinstitute.org/freefont/")
+    (synopsis "New (2024) second version of the Atkinson Hyperlegible fonts")
+    (description
+     "Read Easier With Our Family of Hyperlegible® Fonts")
+    (license license:ofl)))