configure home in main config

config.scm

@@ -6,17 +6,41 @@
 ;; to the 'guix system reconfigure' command to effect your
 ;; changes.
 
-
 ;; Indicate which modules to import to access the variables
 ;; used in this configuration.
-(use-modules (gnu))
-(use-package-modules emacs 
-		     emacs-xyz 
-		     gnuzilla 
-		     rust-apps 
-		     version-control 
-		     vim)
-(use-service-modules cups desktop networking ssh xorg)
+(use-modules (gnu)
+	     (gnu home)
+	     (gnu home services)
+	     (gnu home services shells)
+	     (gnu home services dotfiles)
+	     (gnu services)
+	     (gnu packages admin)
+	     (gnu packages gnuzilla)
+	     (gnu packages video)
+	     (guix gexp))
+(use-service-modules cups desktop guix networking ssh xorg)
+
+(define muni-home
+  (home-environment
+    (packages (map specification->package 
+		   '("icecat" 
+		     "mpv")))
+    (services
+      (append (list (service home-bash-service-type
+			     (home-bash-configuration
+			       (guix-defaults? #t)
+			       (aliases 
+				 '(("ll" . "ls -l")))
+			       (variables 
+				 `(("HISTSIZE" . "50000")))))
+		    (service home-files-service-type
+			     `((".guile" ,%default-dotguile)))
+		    (service home-dotfiles-service-type
+			     (home-dotfiles-configuration
+			       (directories '("./dotfiles"))))
+		    (service home-xdg-configuration-files-service-type
+			     `(("nano/nanorc" ,%default-nanorc))))
+	      %base-home-services))))
 
 (operating-system
   (locale "en_US.utf8")
@@ -36,15 +60,19 @@
   ;; Packages installed system-wide.  Users can also install packages
   ;; under their own account: use 'guix search KEYWORD' to search
   ;; for packages and 'guix install PACKAGE' to install a package.
-  (packages 
-    (append (list (specification->package "icewm")
-		  icecat
-		  emacs emacs-geiser emacs-geiser-guile
-		  git
-		  ripgrep
-		  fd
-		  vim) 
-	    %base-packages))
+  (packages (append (map specification->package 
+			 '("emacs"
+			   "icecat"
+			   "emacs-geiser"
+			   "emacs-geiser-guile"
+			   "guile"
+			   "git"
+			   "ripgrep"
+			   "fd"
+			   "htop"
+			   "make"
+			   "vim")) 
+		    %base-packages))
 
   ;; Below is the list of system services.  To search for available
   ;; services, run 'guix system search KEYWORD' in a terminal.
@@ -57,6 +85,7 @@
                  (service tor-service-type)
                  (service enlightenment-desktop-service-type)
                  (service gnome-desktop-service-type)
+		 (service guix-home-service-type `(("muni" ,muni-home)))
                  (set-xorg-configuration
                   (xorg-configuration (keyboard-layout keyboard-layout))))
 
@@ -68,8 +97,7 @@
                 (targets (list "/dev/sda"))
                 (keyboard-layout keyboard-layout)))
   (swap-devices (list (swap-space
-                        (target (uuid
-                                 "e925b220-066c-45ea-9b8c-4cb6141dc6a3")))))
+                        (target (uuid "e925b220-066c-45ea-9b8c-4cb6141dc6a3")))))
 
   ;; The list of file systems that get "mounted".  The unique
   ;; file system identifiers there ("UUIDs") can be obtained
@@ -81,13 +109,11 @@
                          (type "vfat"))
                        (file-system
                          (mount-point "/")
-                         (device (uuid
-                                  "f84f19c8-23f4-4c4a-b9cc-bc8cde2704a5"
-                                  'ext4))
+                         (device (uuid "f84f19c8-23f4-4c4a-b9cc-bc8cde2704a5"
+                                       'ext4))
                          (type "ext4"))
                        (file-system
                          (mount-point "/home")
-                         (device (uuid
-                                  "3b69b95f-05db-47ed-b8b4-f1649ce8f6d8"
-                                  'ext4))
+                         (device (uuid "3b69b95f-05db-47ed-b8b4-f1649ce8f6d8"
+                                       'ext4))
                          (type "ext4")) %base-file-systems)))