Update config.scm

config.scm

@@ -12,8 +12,51 @@
 (use-modules 
 (gnu)
 (guix packages)
-(gnu services)
-(gnu packages file-systems)
+(gnu packages gnuzilla)
+ (gnu packages image-viewers)
+;; for nyxt
+ (gnu packages gstreamer) 
+ (gnu packages web-browsers)
+;;---------
+ (gnu services)
+ (gnu packages terminals)
+ (gnu packages music)
+ (gnu packages compton)  
+ (gnu packages version-control)
+ (gnu packages lxqt)
+ (gnu packages file-systems)
+ (gnu packages admin)
+ (gnu packages bittorrent)
+ (gnu packages chromium)
+ (gnu packages compression)
+ (gnu packages curl)
+ (gnu packages emacs)
+ (gnu packages emacs-xyz)
+ (gnu packages engineering)
+ (gnu packages fonts)
+ (gnu packages fontutils)
+ (gnu packages gimp)
+ (gnu packages gnome)
+ (gnu packages gnome-xyz)
+ (gnu packages gnupg)
+ (gnu packages haskell-apps)
+ (gnu packages imagemagick)
+ (gnu packages java)
+ (gnu packages libreoffice)
+ (gnu packages linux)
+ (gnu packages lisp)
+ (gnu packages mpd)
+ (gnu packages package-management)
+ (gnu packages rsync)
+ (gnu packages ssh)
+ (gnu packages telegram)
+ (gnu packages video)
+ (gnu packages wm)
+ (gnu packages xdisorg)
+ (gnu packages xorg)
+ (gnu home services gnupg)
+ (gnu home services xdg)
+ (nongnu packages compression)
 (nongnu packages linux)
 (nongnu system linux-initrd))
 
@@ -54,18 +97,67 @@
   ;; for packages and 'guix install PACKAGE' to install a package.
   (packages (append 	(list
 			 my-zfs
+			 ;;emacs-org-roam
+			 ;;emacs-org-roam-ui
+			 ;; -----
+			 ;;necessary for nyxt
+			 gstreamer
+			 gst-plugins-bad
+			 gst-plugins-good
+			 ;;------
+			 nyxt
+			 ;;------
+			 cmus
+			 zstd
+			 mpv
+			 kitty
+			 maim
+			 scrot
+			 neofetch
+			 pfetch
+			 icecat
+			 ffmpeg
+			 nsxiv
+			 git
+			 pavucontrol-qt
+			 emacs
+ 			 ;;emacs-org-timeblock 
+			 xrandr
+			 ungoogled-chromium
+			 qbittorrent
+		       ;;guile
+			 emacs-geiser
+			 emacs-geiser-guile
+                         fontconfig
+			 picom
+			 feh
+			 xmodmap
+			 rofi
+			 sbcl-stumpwm-swm-gaps
+			 sbcl-stumpwm-pamixer
+			 sbcl-stumpwm-screenshot
+			 sbcl-stumpwm-disk
+	                 sbcl-stumpwm-ttf-fonts
+			 stumpwm `(,stumpwm "lib")
+          		 sbcl-stumpwm-mem
+			 sbcl-stumpwm-cpu
+			 sbcl-stumpwm-net
+			 emacs-stumpwm-mode
+			 stumpish
+			 youtube-dl
 			 linux-firmware
 			 (specification->package "nss-certs"))
 			 %base-packages))
 
- 
+
+;;(home-environment (packages (cons* anki )))  ;; figure out how to install it from here
+  
   ;; Below is the list of system services.  To search for available
   ;; services, run 'guix system search KEYWORD' in a terminal.
   (services
    (append (list  (simple-service 'my-zfs-loader
                             kernel-module-loader-service-type
-                            '("zfs"))
-	         (service xfce-desktop-service-type)
+                            '("zfs"))	         
                  (set-xorg-configuration
                   (xorg-configuration (keyboard-layout keyboard-layout))))
 	   %desktop-services))
@@ -76,20 +168,20 @@
                 (keyboard-layout keyboard-layout)))
   (swap-devices (list (swap-space
                         (target (uuid
-                                 "479519ae-93ba-4b0d-89ae-534d26273d51")))))
+                                 "4f829a61-6f51-435b-bade-2991c094080f")))))
 
   ;; The list of file systems that get "mounted".  The unique
   ;; file system identifiers there ("UUIDs") can be obtained
   ;; by running 'blkid' in a terminal.
   (file-systems (cons* (file-system
                          (mount-point "/boot/efi")
-                         (device (uuid "CA39-E5B8"
+                         (device (uuid "7C90-0F50"
                                        'fat32))
                          (type "vfat"))
                        (file-system
                          (mount-point "/")
                          (device (uuid
-                                  "b3dfa6d0-c592-40e4-8c08-535deee429f9"
+                                  "ef8ef1c0-99bd-431a-abde-e2fc6421da60"
                                   'ext4))
                          (type "ext4")) %base-file-systems)))