modern_lisp-machine/config.scm

;; 


(use-modules 
(gnu)
 (guix packages)
 (gnu packages fcitx5)
 (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 tmux)
 (gnu packages dictionaries)
 (gnu packages emulators)
 (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))


(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)
    (arguments
      (cons* #:linux my-kernel
             (package-arguments zfs)))))

(operating-system
  (kernel my-kernel)
  (initrd microcode-initrd)
  (firmware (list linux-firmware))
  
 
  (locale "en_US.utf8")
  (timezone "America/Manaus")
  (keyboard-layout (keyboard-layout "us"))
  (host-name "lisp-machine")
  (kernel-loadable-modules (list (list my-zfs "module")))

  ;; The list of user accounts ('root' is implicit).
  (users (cons* (user-account
                  (name "hashirama")
                  (comment "Hashirama")
                  (group "users")
                  (home-directory "/home/hashirama")
                  (supplementary-groups '("wheel" "netdev" "audio" "video")))
                %base-user-accounts))

  ;; 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
			 my-zfs
			 ;;emacs-org-roam
			 ;;emacs-org-roam-ui
			 ;; -----
			 ;;necessary for nyxt
			 gstreamer
			 gst-plugins-bad
			 gst-plugins-good
			 ;;------
			 nyxt
			 ;;------
			 cmus
			 xprop
			 zstd
			 aria2
			 xrdb
			 ;;make
			 mpv
			 xdg-desktop-portal-gtk 
			 xdg-desktop-portal
			 tmux
			 sdcv
			 alacritty
			 higan
			 maim
			 p7zip
			 htop
			 flatpak
			 scrot
			 neofetch
			 pfetch
			;;element-desktop
			 fcitx5
			 fcitx5-gtk
			 fcitx5-qt
   			 fcitx5-anthy
			 fcitx5-gtk4
			 fcitx5-configtool
			 icecat
			 ffmpeg
			 nsxiv
			 git
			 pavucontrol-qt
			 emacs
 			 ;;emacs-org-timeblock 
			 xrandr
			 ungoogled-chromium
			 qbittorrent
		       ;;guile
			 emacs-geiser
			 emacs-geiser-guile
			 emacs-dirvish
			 emacs-eat
			 emacs-rainbow-delimiters
			 emacs-olivetti
			 emacs-telega
			 emacs-slime
			 emacs-nerd-icons
                         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
			 (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 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))

  (bootloader (bootloader-configuration
                (bootloader grub-efi-bootloader)
                (targets (list "/boot/efi"))
                (keyboard-layout keyboard-layout)))
  (swap-devices (list (swap-space
                        (target (uuid
                                 "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 "7C90-0F50"
                                       'fat32))
                         (type "vfat"))
                       (file-system
                         (mount-point "/")
                         (device (uuid
                                  "ef8ef1c0-99bd-431a-abde-e2fc6421da60"
                                  'ext4))
                         (type "ext4"))
		       (file-system
                         (mount-point "/mnt/Reading")
                         (device (uuid
                                  "223baecf-e5f4-453f-90c7-d33edbbae145"
                                  'ext4))
                         (type "ext4"))
		       %base-file-systems)))