Eshell correct path, auto-cleanup files, and more

1 files changed, 69 insertions, 68 deletions

diff --git a/.config/guix-builds/system-config.scm b/.config/guix-builds/system-config.scm
index 7cd59fd..68ec53d 100644
--- a/.config/guix-builds/system-config.scm
+++ b/.config/guix-builds/system-config.scm
@@ -4,82 +4,83 @@
 ;; Indicate which modules to import to access the variables
 ;; used in this configuration.
 (use-modules (gnu)
-	     (host-instance))
+             (host-instance))
 (use-service-modules audio desktop networking ssh xorg)
 
 (define user (user-account
-	       (name username)
-	       (comment username)
-	       (group "users")
-	       (home-directory (string-append "/home/" username))
-	       (supplementary-groups '("wheel" "netdev" "audio" "video"))))
+              (name username)
+              (comment username)
+              (group "users")
+              (home-directory (string-append "/home/" username))
+              (supplementary-groups '("wheel" "netdev" "audio" "video"))))
 
 (operating-system
-  (locale "en_US.utf8")
-  (timezone "America/Denver")
-  (keyboard-layout (keyboard-layout "us"))
-  (host-name host-name)
+ (locale "en_US.utf8")
+ (timezone "America/Denver")
+ (keyboard-layout (keyboard-layout "us"))
+ (host-name host-name)
 
-  ;; The list of user accounts ('root' is implicit).
-  (users (cons* user
-                %base-user-accounts))
+ ;; The list of user accounts ('root' is implicit).
+ (users (cons* user
+               %base-user-accounts))
 
-  ;; Packages installed system-wide.
-  (packages (append (map specification->package
-			 '("emacs"
-			   "emacs-exwm"
-			   "emacs-desktop-environment"
-			   "git"
-			   "imagemagick"
-			   "mpd"
-			   "mpd-mpc"
-			   "nss-certs"
-			   "picom"
-			   "pulseaudio"
-			   "vim"
-			   "xmodmap"))
-                    %base-packages))
+ ;; Packages installed system-wide.
+ (packages (append (map specification->package
+                        '("curl"
+                          "emacs"
+                          "emacs-exwm"
+                          "emacs-desktop-environment"
+                          "git"
+                          "imagemagick"
+                          "mpd"
+                          "mpd-mpc"
+                          "nss-certs"
+                          "picom"
+                          "pulseaudio"
+                          "vim"
+                          "xmodmap"))
+                   %base-packages))
 
-  ;; List of system services.
-  (services
-   (append (list
+ ;; List of system services.
+ (services
+  (append (list
 
-                 (service openssh-service-type)
-                 (service tor-service-type)
-		 (service mpd-service-type
-			  (mpd-configuration
-			    (user user)
-			    (music-directory "~/Personal/mpd/music")
-			    (playlist-directory "~/Personal/mpd/playlist")
-			    (default-port 6600)))
-                 (set-xorg-configuration
-                  (xorg-configuration (keyboard-layout keyboard-layout))))
+           (service openssh-service-type)
+           (service tor-service-type)
+           (service mpd-service-type
+                    (mpd-configuration
+                     (user user)
+                     (music-directory "~/Personal/mpd/music")
+                     (playlist-directory "~/Personal/mpd/playlist")
+                     (default-port 6600)))
+           (set-xorg-configuration
+            (xorg-configuration (keyboard-layout keyboard-layout))))
 
-           ;; This is the default list of services we
-           ;; are appending to.
-           %desktop-services))
-  (bootloader (bootloader-configuration
-                (bootloader grub-efi-bootloader)
-                (targets (list "/boot/efi"))
-                (keyboard-layout keyboard-layout)))
+          ;; This is the default list of services we
+          ;; are appending to.
+          %desktop-services))
+ (bootloader (bootloader-configuration
+              (bootloader grub-efi-bootloader)
+              (targets (list "/boot/efi"))
+              (keyboard-layout keyboard-layout)))
 
-  ;; List of file systems that get "mounted". ("UUIDs") can
-  ;; be obtained by running 'blkid'.
-  (file-systems (cons* (file-system
-                         (mount-point "/boot/efi")
-                         (device (uuid
-				  boot-part
-                                  'fat32))
-                         (type "vfat"))
-		       (file-system
-			 (mount-point "/home/bdunahu/Personal")
-			 (device (uuid
-				  hide-part
-				  'ext4))
-			 (type "ext4"))
-                       (file-system
-                         (mount-point "/")
-                         (device (uuid
-				  root-part
-                                  'ext4))
-                         (type "ext4")) %base-file-systems)))
+ ;; List of file systems that get "mounted". ("UUIDs") can
+ ;; be obtained by running 'blkid'.
+ (file-systems (cons* (file-system
+                       (mount-point "/boot/efi")
+                       (device (uuid
+                                boot-part
+                                'fat32))
+                       (type "vfat"))
+                      (file-system
+                       (mount-point "/home/bdunahu/Personal")
+                       (device (uuid
+                                hide-part
+                                'ext4))
+                       (type "ext4"))
+                      (file-system
+                       (mount-point "/")
+                       (device (uuid
+                                root-part
+                                'ext4))
+                       (type "ext4")) %base-file-systems)))