guix home

;; This "home-environment" file can be passed to 'guix home reconfigure'
;; to reproduce the content of your profile.  This is "symbolic": it only
;; specifies package names.  To reproduce the exact same profile, you also
;; need to capture the channels being used, as returned by "guix describe".
;; See the "Replicating Guix" section in the manual.

(use-modules (gnu home)
             (gnu home services)
             (gnu home services shells)
	     (gnu home services desktop)
             (gnu services)
	     (gnu packages)
             (gnu packages admin)
             (guix gexp)
	     (guix transformations))

(define (specification->packages->nvda . xs)
  (define ->nvda
    (options->transformation '((with-graft . "mesa=nvda"))))
  (let ((fxn (compose ->nvda specification->package)))
    (map fxn xs)))

(define (specification->packages . xs)
  (map specification->package xs))

(home-environment
  (packages (append
     (specification->packages->nvda
      "mesa-utils")
     (specification->packages
       "xscreensaver"
       "cuda-toolkit"
       "stumpwm"
       "xinit"
       "sbcl"
       "stumpish"
       "sbcl-stumpwm-cpu"
       "sbcl-stumpwm-mem"
       "sbcl-stumpwm-net"
       "sbcl-stumpwm-stumptray"
       "sbcl-stumpwm-ttf-fonts"
       "sbcl-stumpwm-wifi"
       "sbcl-stumpwm-binwarp"
       "sbcl-stumpwm-globalwindows"
       "sbcl-stumpwm-disk"
       "sbcl-stumpwm-kbd-layouts"
       "sbcl-stumpwm-notify"
       "sbcl-stumpwm-pamixer"
       "sbcl-stumpwm-pass"
       "sbcl-stumpwm-screenshot"
       "sbcl-stumpwm-swm-gaps"
       "sbcl-stumpwm-winner-mode"
       "sbcl-stumpwm-hostname"
       "sbcl-stumpwm-battery-portable"
       "stumpwm-with-slynk"
       "emacs"
       "emacs-pyvenv"
       "emacs-llm"
       "emacs-helm"
       "emacs-magit"
       "emacs-flexoki-themes"
       "emacs-modus-themes"
       "emacs-expand-region"
       "emacs-multiple-cursors"
       "emacs-guix"
       "emacs-haskell-mode"
       "emacs-org-bullets"
       "emacs-gruvbox-theme"
       "emacs-flycheck"
       "emacs-slime"
       "emacs-stumpwm-mode"
       "emacs-agda2-mode"
       "tree-sitter"
       "tree-sitter-javascript"
       "tree-sitter-typescript"
       "tree-sitter-json"
       "font-dejavu"
       "ghc"
       "cabal-install"
       "hlint"
       "agda"
       "texlive"
       "translate-shell"
       "gcc-toolchain"
       "telegram-desktop"
       "git"
       "kitty"
       "okular"
       "qutebrowser"
       "nyxt"
       "nitrogen"
       "bluez"
       "picom"
       "netcat"
       "pandoc"
       "python"
       "python-pip"
       "bitlbee-discord"
       "bitlbee"
       "setxkbmap"
       "xsetroot"
       "xf86-input-libinput"
       "xf86-input-synaptics"
       "python"
       "node"
       "nss-certs")))
  (services
   (list (service home-startx-command-service-type)
         (service home-files-service-type
		  `((".emacs.d/init.el", (local-file "/home/I/src/home/programs/emacs/init.el"))
		    (".config/kitty/kitty.conf", (local-file "/home/I/src/home/programs/kitty/kitty.conf"))
		    (".config/xmonad/xmonad.hs", (local-file "/home/I/src/home/programs/xmonad/xmonad.hs"))
		    (".config/xmonad/.xmobarrc", (local-file "/home/I/src/home/programs/xmonad/xmobarrc"))
		    (".config/picom/picom.conf", (local-file "/home/I/src/home/programs/picom/picom.conf"))
		    (".config/qutebrowser/config.py", (local-file "/home/I/src/home/programs/qutebrowser/config.py"))
  		    (".xinitrc", (local-file "/home/I/src/home/programs/xinit/xinitrc"))
		    (".config/stumpwm/config", (local-file "/home/I/src/home/programs/stumpwm/config"))
		    (".config/stumpwm/init.lisp", (local-file "/home/I/src/home/programs/stumpwm/init.lisp"))))
	 (simple-service 'env-vars
			 home-environment-variables-service-type
			 '(("GIT_SSL_CAINFO" . "/home/I/.guix-profile/etc/ssl/certs/ca-certificates.crt")
			   ("CUDA_PATH" . "/gnu/store/r4wy8h5csl01h6y9vn37682jqs61fn1v-cuda-toolkit-12.4.0")
			   ("GIT_EXEC_PATH" . "/home/I/.guix-profile/libexec/git-core")
			   ("C_INCLUDE_PATH" . "/home/I/.guix-profile/include")
			   ("CPLUS_INCLUDE_PATH" . "/home/I/.guix-profile/include/c++:/home/I/.guix-profile/include")
			   ("LIBRARY_PATH" . "/home/I/.guix-profile/lib")
			   ("GUILE_LOAD_PATH" . "/home/I/.guix-profile/share/guile/site/3.0")
			   ("GUILE_LOAD_COMPILED_PATH" . "/home/I/.guix-profile/lib/guile/3.0/site-ccache:/home/I/.guix-profile/share/guile/site/3.0")
			   ("EMACSLOADPATH" . "/home/I/.guix-profile/share/emacs/site-lisp")
			   ("INFOPATH" . "/home/I/.guix-profile/share/info")
			   ("XDG_DATA_DIRS" . "/home/I/.guix-profile/share")
			   ("GIO_EXTRA_MODULES" . "/home/I/.guix-profile/lib/gio/modules")
			   ("GST_PLUGIN_SYSTEM_PATH" . "/home/I/.guix-profile/lib/gstreamer-1.0")
			   ("GUIX_GTK3_PATH" . "/home/I/.guix-profile/lib/gtk-3.0")
			   ("VDPAU_DRIVER_PATH" . "/home/I/.guix-profile/lib/vdpau")
			   ("ICECAT_SYSTEM_DIR" . "/home/I/.guix-profile/lib/icecat")
			   ("CMAKE_PREFIX_PATH" . "/home/I/.guix-profile/")
			   ("XDG_CONFIG_DIRS" . "/home/I/.guix-profile/etc"			   )
			   ("SSL_CERT_DIR" . "/home/I/.guix-profile/etc/ssl/certs")
			   ("SSL_CERT_FILE" . "/home/I/.guix-profile/etc/ssl/certs/ca-certificates.crt")))
	 (service home-fish-service-type)
	 (service home-startx-command-service-type))))