dotfiles/oni/home/config/pop-os.scm

(define-module (oni home config pop-os)
  #:use-module ((gnu home)
		        #:select (home-environment))
  #:use-module ((gnu packages)
		        #:select (specification->package+output))
  #:use-module ((gnu packages admin)
                #:select (htop))
  #:use-module ((gnu packages emacs)
                #:select (emacs))
  #:use-module ((gnu packages emacs-xyz)
                #:select (emacs-dockerfile-mode))
  #:use-module ((gnu services)
		        #:select (service))
  #:use-module ((guix gexp)
		        #:select (local-file
			              mixed-text-file))
  #:use-module ((oni home config common)
		        #:select (home-channels-service
                          home-zsh-service))
  #:use-module ((oni home services emacs)
		        #:select (home-emacs-service-type
			              home-emacs-configuration
			              home-wakatime-service-type
			              home-wakatime-configuration
                          home-emacs-org-journal-service-type))
  #:use-module ((oni home services environment)
		        #:select (home-environment-service))
  #:use-module ((oni home services stumpwm)
                #:select (home-stumpwm-service-type
                          home-stumpwm-configuration
                          home-stumpwm-gaps-service-type
                          home-stumpwm-gaps-configuration
                          home-stumpwm-stumptray-service-type
                          home-stumpwm-stumptray-configuration))
  #:use-module (oni home services zsh)
  #:use-module ((oni packages atuin)
                #:select (rust-atuin-18))
  #:use-module ((oni packages emacs)
                #:select (emacs-php-ts-mode))
  #:use-module ((oni packages emacs-config)
		        #:select (emacs-oni-bookmark
                          emacs-oni-browse-url
                          emacs-oni-common-lisp
                          emacs-oni-compilation
                          emacs-oni-core
                          emacs-oni-css
                          emacs-oni-diff-hl
                          emacs-oni-dired
                          emacs-oni-elisp
                          emacs-oni-git-commit
                          emacs-oni-grep
                          emacs-oni-gui
                          emacs-oni-html
                          emacs-oni-log-edit
                          emacs-oni-magit
                          emacs-oni-org
                          emacs-oni-org-roam
                          emacs-oni-package
                          emacs-oni-php
                          emacs-oni-project
                          emacs-oni-projectile
                          emacs-oni-scheme
                          emacs-oni-shr
                          emacs-oni-tramp
                          emacs-oni-web-mode
                          emacs-oni-yaml
                          emacs-oni-lua))
  #:use-module ((oni packages stumpwm)
                #:select (stumpwm+swank)))

(home-environment
 (packages (list (specification->package+output "glibc-locales")
		         (specification->package+output "font-fantasque-sans")
                 (specification->package+output "font-comic-neue")
		         emacs-oni-core
                 emacs-oni-compilation
                 emacs-oni-common-lisp
                 emacs-oni-browse-url
                 emacs-oni-package
                 emacs-oni-elisp
                 emacs-oni-gui
                 emacs-oni-magit
                 emacs-oni-diff-hl
                 emacs-oni-project
                 emacs-oni-dired
                 emacs-oni-log-edit
                 emacs-oni-git-commit
                 emacs-oni-scheme
                 emacs-oni-tramp
                 emacs-oni-bookmark
                 (emacs-oni-org emacs)
                 (emacs-oni-org-roam emacs)
                 emacs-oni-html
                 emacs-oni-grep
                 emacs-oni-shr
                 emacs-oni-css
                 emacs-dockerfile-mode
                 emacs-oni-yaml
                 emacs-oni-web-mode
                 emacs-oni-php
                 emacs-oni-projectile
                 htop
                 emacs-php-ts-mode
                 emacs-oni-lua

                 rust-atuin-18))
 (services (list home-channels-service
		 home-environment-service
		 (service home-emacs-service-type
			  (home-emacs-configuration
			   (configurations
			    (list
			     (local-file "../services/emacs/init.el")
                 (local-file "pop-os/emacs.el")
			     (mixed-text-file
			      "init.el"
			      "(with-eval-after-load 'project (require 'oni-project))\n"
                  "(require 'oni-gui)\n"
                  "(provide 'oni-gnus)\n"
                  "(add-to-list 'auto-mode-alist '(\"\\.vue$\" . web-mode))\n")))))
         (service home-emacs-org-journal-service-type)
		 (service home-wakatime-service-type
			      (home-wakatime-configuration
			       (api-url "https://waka.ryuslash.org/api")
			       (exclude '("COMMIT_EDITMSG$"
				              "TAG_EDITMSG$"))))

         home-zsh-service

         ;; This has to be the first extension because it needs to be added to the
         ;; configuration last.
         (service home-zsh-syntax-highlighting-service-type)
         (service home-zsh-autosuggestions-service-type)
         (service home-zsh-contextual-abbrevs-service-type)

         (service home-stumpwm-service-type
                  (home-stumpwm-configuration
                   (package stumpwm+swank)
                   (configurations
                    (list (local-file "../services/stumpwm/config")))))
         (service home-stumpwm-gaps-service-type
                  (home-stumpwm-gaps-configuration
                   (configurations
                    (list (local-file "../services/stumpwm/config-gaps")))))
         (service home-stumpwm-stumptray-service-type
                  (home-stumpwm-stumptray-configuration
                   (configurations
                    (list (mixed-text-file "config-stumptray"
                                           "(require 'stumptray)\n"
                                           "(stumptray::stumptray)\n"))))))))