modern_lisp-machine/config.scm

					; 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.


;; Indicate which modules to import to access the variables
;; used in this configuration.
(use-modules
 (gnu)
 (guix packages)
 (ajatt packages dictionaries) 
 (ajatt packages suckless)
 (ajatt packages readers) 
 (ajatt packages audio)
 (rosenthal packages binaries)
 (rosenthal packages emacs-xyz)
 (radix services admin)
 (radix packages image-viewers)
 (gnu packages disk)
 (guix transformations)
 (gnu packages python-xyz)
 (gnu packages fonts)
 (gnu packages pdf)
 (gnu packages audio)
 (gnu packages librewolf)
 (gnu packages sync)
 (gnu packages qt)
 (gnu packages gdb)
 (gnu packages graphics) 
 (gnu packages java)
 (gnu packages fcitx5)
 (gnu packages ibus)
 (gnu services dbus)
 (gnu packages gnuzilla)
 (gnu services mcron)
 (gnu packages haskell)
 (gnu packages ebook)
 (gnu packages lisp-xyz)
 (gnu packages rust-apps)
 (rde features bluetooth)
 (gnu packages gcc)
 (gnu packages pulseaudio)
 (gnu packages mail)
 (gnu packages enchant)
 (gnu packages hunspell)
 (gnu packages upnp)
 (gnu packages tor)
 (gnu packages commencement)
 (gnu packages guile-xyz)
 (gnu packages freedesktop)
 (gnu packages image)
 (gnu packages image-viewers)
 (gnu packages xfce)
 (srfi srfi-1)
 ;; for nyxt
 (gnu packages gstreamer)
 (gnu packages web-browsers)
 ;;---------
 (gnu services)
 (gnu services base)
 (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 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 libreoffice)
 (gnu packages linux)
 (gnu packages lisp)
 (gnu packages mpd)
 (gnu packages package-management)
 (gnu packages rsync)
 (gnu packages gimp)
 (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)
 (guix channels)
 (guix inferior)
 (gnu packages networking)
 (nongnu packages compression)
 (nongnu packages messaging)
 (nongnu packages linux))



(use-service-modules cups desktop networking ssh xorg linux certbot shepherd configuration web nix)
(use-package-modules version-control gcc bash certs admin linux )


(define %8bitdo-udev-rules
  (udev-rule
   "99-8bitdo-controllers.rules"
   "SUBSYSTEM==\"input\", ATTRS{name}==\"8BitDo*Wireless*Controller\", MODE=\"0664\", TAG+=\"uaccess\"
     SUBSYSTEM==\"input\", ATTRS{name}==\"8BitDo*Bluetooth*Gamepad\", MODE=\"0664\", TAG+=\"uaccess\"
     SUBSYSTEM==\"input\", ATTRS{name}==\"8BitDo*Ultimate*Wired*Controller\", MODE=\"0664\", TAG+=\"uaccess\"
     SUBSYSTEM==\"input\", ATTRS{name}==\"8BitDo*Ultimate*Bluetooth*Controller\", MODE=\"0664\", TAG+=\"uaccess\"
     SUBSYSTEM==\"input\", ATTRS{name}==\"8BitDo*Ultimate*Bluetooth*Controller*2.4G\", MODE=\"0664\", TAG+=\"uaccess\"
     SUBSYSTEM==\"usb\", ATTR{idVendor}==\"2dc8\", ATTR{idProduct}==\"3106\", RUN+=\"/usr/bin/env modprobe xpad\"
KERNEL==\"xpad\", SUBSYSTEM==\"drivers\", ACTION==\"add\", ATTR{new_id}=\"2dc8 3106\""))



;; general rules for doas
(define general
  (list (permit (identity ":wheel")
                (setenv
                  `(("GUILE_LOAD_PATH" . #t)
                    ("GUILE_LOAD_COMPILED_PATH" . #t))))))



(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 base-initrd)
 (firmware (list linux-firmware))

 (locale "en_US.utf8")
 (kernel-arguments (list "modprobe.blacklist=hid-nintendo"
 			 "noatime"
		         
			 ))
 (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" "lp")))
               %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
			 emacs-ox-hugo
			 emacs-dirvish
			 qt-creator
			 sbcl-coleslaw
			 numix-gtk-theme
			 tor
			 python-psutil
			 python-schedule
			 xsel
                         ;; ajatt
                         suckless-dictpopup
                         goldendict-ng
			 foliate
			 impd
			 sylpheed
			 sselp
			 navidrome-bin
			 ;;
			 kitty
          		 element-desktop
			 lm-sensors
			 ;;emulators
			 mupen64plus-ui-console
			 mupen64plus-input-sdl
			 mupen64plus-audio-sdl
			 mupen64plus-core
			 mupen64plus-video-glide64
			 dolphin-emu
			 ;;--------------------
			 gerbera
		         ibus
			 ueberzug++	
			 dconf
			 gimp
			 sioyek
			 nextcloud-client
			 blender
			 gimp-resynthesizer
			 wmctrl
			 imagemagick
			 zpaq
			 libwebp
			 libreoffice
			 librewolf
			 ;; audio
			 ardour
			 noise-repellent
			 ;;
			 ;; nextcloud-client
			 xset
			 xprop
			 fzf
			 zstd
			 aria2
			 ;; wakatime
			 wakapi-bin
                         wakatime-cli-bin
			 emacs-wakatime-mode
			 ;;
			 xrdb
			 noisetorch
			 mpv
			 ;;emasc-everywhere
			 xdotool
			 xprop
			 xclip
			 xwininfo
			 ;;
			 xdg-user-dirs
			 xdg-desktop-portal-gtk
			 xdg-desktop-portal
			 tmux
			 pinentry
			 polybar
			 gnupg
			 sdcv
			 alacritty
			 font-dejavu
			 ;;------
			 higan
			 maim
			 p7zip
			 htop
			 scrot
			 flameshot
			 neofetch
			 pfetch
			 openjdk
			 ;;element-desktop
			 ;; bluetooth
			 bluez
			 bluez-alsa
			 blueman
			 ;; ime
			 enchant
			 hunspell
			 fcitx5
			 fcitx5-gtk
			 fcitx5-qt
   			 fcitx5-anthy
			 fcitx5-gtk4
			 fcitx5-configtool
			 ;;
			 icecat
			 ffmpeg
			 nsxiv
			 pinentry
			 git
			 pavucontrol-qt
			 emacs
			 emacs-bluetooth
 		      	 xrandr
			 qbittorrent
		      	 emacs-rainbow-delimiters
			 emacs-olivetti
			 emacs-haskell-mode
			 emacs-ligature
			 emacs-sly
			 emacs-org-roam
			 emacs-ccls
			 emacs-lsp-mode
			 emacs-lsp-ui
			 emacs-rmsbolt
			 font-iosevka-comfy
			 sbcl
			 emacs-nerd-icons
			 emacs-esxml
			 ripgrep
			 gdb
			 emacs-olivetti
			 emacs-deadgrep
			 emacs-realgud
			 emacs-rg
			 emacs-dumb-jump
			 emacs-circe
			 zip
			 thunar
			 unzip
			 ;;emacs-nov-el
                         fontconfig
			 ;; font-apple-color-emoji
			 picom
			 feh
			 ;; ================
			 ;; haskell 
			 cabal-install
			 ;; deps for xmonad
			 xmonad
			 xmobar
			 ghc ;; ridiculous, gcc and ghc are runtime dependencies , yet people didnt put in the package description
			 ghc-xmonad-contrib
			 ;; ==================
			 gcc 
			 gcc-toolchain
		         xmessage
			 xmodmap
			 rofi
		         linux-libre-headers
			 ;;--------
			 yt-dlp
			 ;; nicotine+
			 linux-firmware
			 (specification->package "jami")
			 )
			%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"))
		 (simple-service 'my-jp-ime-env session-environment-service-type
				 '(("GTK_IM_MODULE" . "fcitx")
				   ("QT_IM_MODULE" . "fcitx")
				   ("GUIX_GTK2_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-2.0/2.10.0/immodules-gtk2.cache")
				   ("GUIX_GTK3_IM_MODULE_FILE" . "/run/current-system/profile/lib/gtk-3.0/3.0.0/immodules-gtk3.cache")
				   ("XMODIFIERS=@im=" . "fcitx")
				   ("INPUT_METHOD" . "fcitx")
				   ("XIM_PROGRAM" . "fcitx")
				   ("GLFW_IM_MODULE" . "ibus")
				   ;; this makes qt programs looks sharper
		 		   ("QML_DISABLE_DISTANCEFIELD" . "1")
				   ("QT_QUICK_CONTROLS_STYLE" . "Fusion")
				   ("QT_ENABLE_HIGHDPI_SCALING" . "0")	
				   ("R600_TEX_ANISO" . "16")		
				   ))
		 
		 (service zram-device-service-type
			  (zram-device-configuration
			   (size "6G")
			   (compression-algorithm 'xz)
			   (priority 100)))
		 ;; (service oci-forgejo-service-type)
		 (set-xorg-configuration
		  (xorg-configuration
 		   
		   (keyboard-layout keyboard-layout)))
		 (udev-rules-service '8bitdo %8bitdo-udev-rules)
		 
		 (service nix-service-type)

		 ;; bluetooth
		 (service bluetooth-service-type
			  (bluetooth-configuration
			   (auto-enable? #t)))

		 (simple-service 'blueman dbus-root-service-type (list blueman))

		 (service opendoas-service-type
			  (opendoas-configuration
			  (rules (append general))))
		 
		 #| Compress my mpv screenshots periodically |#
		 (service mcron-service-type
			  (mcron-configuration
			   (jobs (list #~(job "10 15 * * *"
					      "find /mnt/Data/mpv-screenshots/ -type f \\( -iname '*.png' -o -iname '*.jpg' \\) -exec sh -c 'cwebp -q 80 \"$0\" -o \"${0%.*}.webp\" && rm \"$0\"' {} \\;")))))
		 
		 )
	  
	  %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")))))

;; Do not generate a sudoers file
(sudoers-file #f)

 
 ;; 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)))