feat: i3status, foot, emacs

dotfiles/.config/emacs/config.el

@@ -13,3 +13,10 @@
 (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)
+
+(add-to-list 'default-frame-alist '(alpha-background . 90))

dotfiles/.config/foot/foot.ini

@@ -0,0 +1,2 @@
+[colors]
+alpha=0.9

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

@@ -0,0 +1,46 @@
+icons_format = "{icon}"
+
+[theme]
+theme = "native"
+
+[icons]
+icons = "none"
+[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

home.scm

@@ -20,6 +20,7 @@
 		     librewolf ; self-explanatory
 		     lua ; fennel
 		     terminals ; foot
+		     admin ; fastfetch
 		     )
 
 (define neovim-packages 
@@ -31,18 +32,17 @@
 	vim-guix-vim))
 
 (define emacs-packages
-  (list emacs
+  (list emacs-pgtk
 	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 #~(string-append "while "
+(define sway-bar-status (file-append i3status-rust "/bin/i3status-rs"))
-                 #$coreutils "/bin/date"
-                 " +'%Y-%m-%d %X'; do sleep 1; done"))
 
 (define sway-config
   (sway-configuration
@@ -57,8 +57,9 @@
     (keybindings %sway-default-keybindings)
     (gestures %sway-default-gestures)
     (packages (append (list
-			grimshot
+		       grimshot
-			wl-clipboard) %sway-default-packages))
+		       i3status-rust
+		       wl-clipboard) %sway-default-packages))
     (modes %sway-default-modes)
     ;(startup-programs %sway-default-startup-programs)
     (inputs (list (sway-input (identifier "type:keyboard")
@@ -69,6 +70,7 @@
     (packages (append neovim-packages
 		      emacs-packages
 		      (list jujutsu
+			    fastfetch
 			    ripgrep
 			    fd
 			    sd