guixsd-config

commit 9e9cf3cce990bbf04b766d03f746e26d0ce320a5
parent a9fdc8b9f25f8a29fcc7dc97881b3729b01a520d
Author: vin <git@vineetk.net>
Date:   Wed, 23 Jul 2025 23:02:29 -0400

more stuff

Diffstat:
M
epistemia/home/config.scm
 | 
38
++++++++++++++++++++++++++++++++------
M
epistemia/systems/demiurge.scm
 | 
14
+++++++++++++-

2 files changed, 45 insertions(+), 7 deletions(-)
diff --git a/epistemia/home/config.scm b/epistemia/home/config.scm
@@ -6,8 +6,13 @@
   #:use-module (gnu packages curl)
   #:use-module (gnu packages emacs)
   #:use-module (gnu packages golang-crypto)
+  #:use-module (gnu packages image-viewers)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages messaging)
+  #:use-module (gnu packages python-web)
   #:use-module (gnu packages rsync)
   #:use-module (gnu packages version-control)
+  #:use-module (gnu packages video)
   #:use-module (gnu packages web-browsers)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xorg)
@@ -22,8 +27,8 @@
   #:use-module (guix packages)
   #:use-module (guix gexp))
 
-(define %zshrc-aliases
-  (plain-file "aliases.zsh"
+(define %zshrc-file
+  (plain-file "file.zsh"
 	      "
 set -o emacs
 
@@ -31,6 +36,8 @@ HISTFILE=$HOME/.zsh_history
 HISTSIZE=1000000
 WORDCHARS=${WORDCHARS//\\//}
 
+PATH=$HOME/bin:$PATH
+
 alias e=\"$EDITOR\"
 alias p='less -Ri'
 alias m='aerc'
@@ -45,7 +52,7 @@ alias gc='git clone'
 alias mpv='mpv --save-position-on-quit'
 alias rsync='rsync --no-inc-recursive'
 alias wget='wget --no-hsts'
-alias ytdl='yt-dlp'
+alias ytdl='noglob yt-dlp'
 
 alias gsu='sudo guix system -L /data/src/public/guixsd-config reconfigure /data/src/public/guixsd-config/epistemia/systems/demiurge.scm'
 alias ghu='guix home -L /data/src/public/guixsd-config reconfigure /data/src/public/guixsd-config/epistemia/home/config.scm'
@@ -60,11 +67,31 @@ alias ghu='guix home -L /data/src/public/guixsd-config reconfigure /data/src/pub
 
 		 emacs-no-x-toolkit
 
+		 xauth
+		 xinput
+		 xorg-server
+		 xf86-input-libinput
+		 xf86-video-amdgpu
+		 xsel
+		 
 		 vin-dwm
 		 vin-st
 
-                 xwallpaper
                  picom
+		 scrot
+		 sxiv
+                 xwallpaper
+
+		 aerc
+		 isync
+		 msmtp
+		 notmuch
+		 oauth2ms
+
+		 profanity
+
+		 mpv
+		 yt-dlp
 
 		 qutebrowser))
 
@@ -93,8 +120,7 @@ alias ghu='guix home -L /data/src/public/guixsd-config reconfigure /data/src/pub
 				      (plain-file "zprofile" "[ ! -e $XDG_RUNTIME_DIR ] && mkdir -p $XDG_RUNTIME_DIR")))
 			   (zshrc (list
 				   (plain-file "zshrc_ignore_etc-profile.d" "setopt nullglob")
-				   %zshrc-aliases))))
-		 (service home-startx-command-service-type)
+				   %zshrc-file))))
 		 (service home-dotfiles-service-type
 			  (home-dotfiles-configuration
 			   (layout 'stow)
diff --git a/epistemia/systems/demiurge.scm b/epistemia/systems/demiurge.scm
@@ -1,8 +1,12 @@
 (define-module (epistemia systems demiurge)
   #:use-module (gnu)
+  #:use-module (gnu packages containers)
+  #:use-module (gnu services containers)
+  #:use-module (gnu services dbus)
   #:use-module (gnu services desktop)
   #:use-module (gnu services linux)
   #:use-module (gnu services shepherd)
+  #:use-module (gnu system accounts)
   #:use-module (guix)
   #:use-module (nongnu packages linux)
   #:use-module (nongnu system linux-initrd)
@@ -39,7 +43,7 @@
                        (type "vfat")))
                 %base-file-systems))
 
- (packages (append (list emacs-no-x zfs-linux)
+ (packages (append (list emacs-no-x podman-compose zfs-linux)
                    %base-packages))
 
  (services (append (list (simple-service 'zfs-loader
@@ -52,6 +56,14 @@
 			 		 user-processes-service-type
 			 		 '(zfs-automount))
 			 (service seatd-service-type)
+			 (service dbus-root-service-type)
+			 (service iptables-service-type)
+			 (service rootless-podman-service-type
+				  (rootless-podman-configuration
+				   (subgids
+				    (list (subid-range (name "vin"))))
+				   (subuids
+				    (list (subid-range (name "vin"))))))
 			 (service static-networking-service-type
 				  (list (static-networking
 					 (addresses