dotfiles/.config/emacs/config.el

@@ -5,20 +5,11 @@
 (add-hook 'emacs-lisp-mode-hook 'evil-paredit-mode)
 
 ;; scheme paredit
-(add-hook 'scheme-mode-hook 'enable-paredit-mode)
-(add-hook 'scheme-mode-hook 'evil-paredit-mode)
+(add-hook 'scheme 'enable-paredit-mode)
+(add-hook 'scheme 'evil-paredit-mode)
 
 ;; geiser
 (add-hook 'geiser-mode-hook 'ac-geiser-setup)
 (add-hook 'geiser-repl-mode-hook 'ac-geiser-setup)
 (eval-after-load "auto-complete"
   '(add-to-list 'ac-modes 'geiser-repl-mode))
-
-(load-theme 'gruvbox-dark-medium t)
-
-(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,5 +0,0 @@
-[main]
-font=Atkinson Hyperlegible Next:size=10
-
-[colors]
-alpha=0.9

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

@@ -1,46 +0,0 @@
-icons_format = "{icon}"
-
-[theme]
-theme = "native"
-
-[icons]
-icons = "awesome4"
-[icons.overrides]
-bat = ["|E|", "|_|", "|=|", "|F|"]
-bat_charging = "|^| "
-
-[[block]]
-block = "cpu"
-info_cpu = 20
-warning_cpu = 50
-critical_cpu = 90
-
-[[block]]
-block = "disk_space"
-path = "/"
-info_type = "available"
-alert_unit = "GB"
-interval = 20
-warning = 20.0
-alert = 10.0
-format = " $icon root: $available.eng(w:2) "
-
-[[block]]
-block = "memory"
-format = " $icon $mem_total_used_percents.eng(w:2) "
-format_alt = " $icon_swap $swap_used_percents.eng(w:2) "
-
-[[block]]
-block = "sound"
-[[block.click]]
-button = "left"
-cmd = "pavucontrol"
-
-[[block]]
-block = "time"
-interval = 1
-format = " $timestamp.datetime(f:'%F %T %Z') "
-
-[[block]]
-block = "battery"
-interval = 30

files/starship.fish

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

home.scm

@@ -6,10 +6,7 @@
   (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))
@@ -22,12 +19,7 @@
 		     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 
@@ -39,17 +31,18 @@
 	vim-guix-vim))
 
 (define emacs-packages
-  (list emacs-pgtk
+  (list emacs
 	emacs-paredit
 	emacs-geiser
 	emacs-geiser-guile
-	emacs-gruvbox-theme
 	emacs-evil
 	emacs-evil-collection
 	emacs-evil-commentary
 	emacs-evil-paredit))
 
-(define sway-bar-status (file-append i3status-rust "/bin/i3status-rs"))
+(define sway-bar-status #~(string-append "while "
+                 #$coreutils "/bin/date"
+                 " +'%Y-%m-%d %X'; do sleep 1; done"))
 
 (define sway-config
   (sway-configuration
@@ -57,59 +50,14 @@
     (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 (list
-		    "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))
+    ;;(extra-content TODO)
+    (variables %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
 			wl-clipboard) %sway-default-packages))
     (modes %sway-default-modes)
     ;(startup-programs %sway-default-startup-programs)
@@ -121,13 +69,6 @@
     (packages (append neovim-packages
 		      emacs-packages
 		      (list jujutsu
-			    yt-dlp
-			    mpv
-			    starship
-			    font-awesome
-			    font-atkinson-hyperlegible-next
-			    fastfetch
-			    pavucontrol
 			    ripgrep
 			    fd
 			    sd
@@ -142,13 +83,10 @@
 		   home-environment-variables-service-type
 		   '(("EDITOR" . "nvim")))
 
-          (service home-fish-service-type (home-fish-configuration (config (list (local-file "files/starship.fish")))))
+          (service home-fish-service-type)
 
 	  (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

@@ -1,22 +0,0 @@
-(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)))