Update config.scm

config.scm

@@ -1,20 +1,32 @@
-;; 
+;; This is an operating system configuration generated
+;; by the graphical installer.
+;;
+;; Once installation is complete, you can learn and modify
+;; this file to tweak the system configuration, and pass it
+;; to the 'guix system reconfigure' command to effect your
+;; changes.
 
 
-(use-modules 
+;; Indicate which modules to import to access the variables
+;; used in this configuration.
+(use-modules
 (gnu)
  (guix packages)
  (gnu packages fcitx5)
  (gnu packages gnuzilla)
+ (gnu packages freedesktop)
+ (gnu packages image)
  (gnu packages image-viewers)
+ (gnu packages xfce)
+ (srfi srfi-1)
 ;; for nyxt
- (gnu packages gstreamer) 
+ (gnu packages gstreamer)
  (gnu packages web-browsers)
 ;;---------
  (gnu services)
  (gnu packages terminals)
  (gnu packages music)
- (gnu packages compton)  
+ (gnu packages compton)
  (gnu packages version-control)
  (gnu packages lxqt)
  (gnu packages file-systems)
@@ -52,6 +64,8 @@
  (gnu packages xorg)
  (gnu home services gnupg)
  (gnu home services xdg)
+ (guix channels)
+ (guix inferior)
  (nongnu packages compression)
 (nongnu packages linux)
 (nongnu system linux-initrd))
@@ -59,7 +73,10 @@
 
 (use-service-modules cups desktop networking ssh xorg linux)
 (use-package-modules linux )
+
+
 (define my-kernel linux-6.1)
+
 (define my-zfs
   (package
     (inherit zfs)
@@ -71,8 +88,7 @@
   (kernel my-kernel)
   (initrd microcode-initrd)
   (firmware (list linux-firmware))
-  
+
- 
   (locale "en_US.utf8")
   (timezone "America/Manaus")
   (keyboard-layout (keyboard-layout "us"))
@@ -104,23 +120,30 @@
 			 nyxt
 			 ;;------
 			 cmus
+			 wmctrl
 			 xprop
+			 fzf
 			 zstd
 			 aria2
 			 xrdb
 			 ;;make
 			 mpv
-			 xdg-desktop-portal-gtk 
+			 xdg-user-dirs
+			 xdg-desktop-portal-gtk
 			 xdg-desktop-portal
 			 tmux
 			 sdcv
 			 alacritty
+                         ;; stumpwm-test
+			 font-dejavu
+			 stumpwm
+			 ;;------
 			 higan
 			 maim
 			 p7zip
 			 htop
-			 flatpak
 			 scrot
+			 flameshot
 			 neofetch
 			 pfetch
 			;;element-desktop
@@ -133,40 +156,29 @@
 			 icecat
 			 ffmpeg
 			 nsxiv
+			 pinentry
 			 git
 			 pavucontrol-qt
 			 emacs
- 			 ;;emacs-org-timeblock 
+ 		      	 xrandr
-			 xrandr
 			 ungoogled-chromium
 			 qbittorrent
-		       ;;guile
+		      	 emacs-rainbow-delimiters
-			 emacs-geiser
-			 emacs-geiser-guile
-			 emacs-dirvish
-			 emacs-eat
-			 emacs-rainbow-delimiters
 			 emacs-olivetti
 			 emacs-telega
 			 emacs-slime
 			 emacs-nerd-icons
+			 emacs-esxml
+			 zip
+			 thunar
+			 unzip
+			 ;;emacs-nov-el
                          fontconfig
 			;; font-apple-color-emoji
 			 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
 			 yt-dlp
 			;; nicotine+
 			 linux-firmware
@@ -175,21 +187,21 @@
 
 
 ;;(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 zram-device-service-type
+                  (service zram-device-service-type
                             (zram-device-configuration
                               (size "3G")
                               (compression-algorithm 'lz4)
                               (priority 100)))
                  (set-xorg-configuration
                   (xorg-configuration (keyboard-layout keyboard-layout))))
-	   %desktop-services))
+           %desktop-services))
 
   (bootloader (bootloader-configuration
                 (bootloader grub-efi-bootloader)
@@ -220,7 +232,3 @@
                                   'ext4))
                          (type "ext4"))
 		       %base-file-systems)))
-
-
-
-