guixconfig/home/home-configuration.scm

;; -*- mode: guix-scheme -*-
;; 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 packages)
 (gnu packages gnupg)
 (gnu services)
 (guix gexp)
 (guix channels)
 (gnu home)
 (gnu home services)
 (gnu home services desktop)
 (gnu home services gnupg)
 (gnu home services guix)
 (gnu home services mail)
 (gnu home services mcron)
 (gnu home services pm)
 (gnu home services shells)
 (gnu home services shepherd)
 (gnu home services ssh))

(home-environment
 ;; Below is the list of packages that will show up in your
 ;; Home profile, under ~/.guix-home/profile.
 (packages
  (specifications->packages
   (list "bsd-games"
         "bolt"
         "browserpass-native"
         "chicken"
         "chicken-apropos"
         "chicken-chicken-doc"
         "chicken-srfi-18"
         "curl"
         "direnv"
	 "emacs-pgtk-xwidgets"
         "entr"
         "eternalterminal"
         "diff-so-fancy"
         "firefox"
         "flatpak"
         "font-nerdfont-monaspice"
         "fuzzel"
         "fzf"
         "gammastep"
         "grim"
	 "guile"
	 "glibc-locales"
         "hstr"
         "icecat"
         "icedove-wayland"
         "kitty"
         "ksshaskpass"
         "make"
         "nm-tray"
         "nnn"
         #;"nss-certs" ; This package is broken
         "openssh"
         "password-store"
         "pass-otp"
         "passff-icecat"
         "pavucontrol"
         "pinentry-qt"
         "pipewire"
         "pv"
         "rsync"
         "rust"
         "rust-cargo"
         "senpai"
         "sideload"
         "slurp"
         ;; "sponge" https://linux.die.net/man/1/sponge
         "swappy"
	 "swayfx"
         "swayidle"
         "swaylock-effects"
         "tig"
         "unzip"
         "visidata"
         "waybar"
         "wlogout"
         "xdg-desktop-portal")))
 ;; Below is the list of Home services.  To search for available
 ;; services, run 'guix home search KEYWORD' in a terminal.
 (services
  (list
   (service home-shepherd-service-type)
   (service home-msmtp-service-type
            (home-msmtp-configuration
             (default-account "LMail")
             (accounts
              (list
               (msmtp-account
                (name "LMail")
                (configuration
                 (msmtp-configuration
                  (host "lyrion.ch")
                  (port 465)
                  (auth? #t)
                  (tls? #t)
                  (tls-starttls? #f)
                  (user "dziltener")
                  (from "dziltener@lyrion.ch")
                  (password-eval "pass Privat/Mailaccount | head -n 1"))))
               (msmtp-account
                (name "Red Sky")
                (configuration
                 (msmtp-configuration
                  (host "gmail.com")
                  (port 587)
                  (auth? #t)
                  (tls? #t)
                  (tls-starttls? #f)
                  (user "dz@redsky.io")
                  (from "dziltener@lyrion.ch")
                  (password-eval "pass Privat/RedSkyGMail"))))))))
   (simple-service 'ziltis-environment-variable-service
                   home-environment-variables-service-type
                   `(("PATH"               . "$PATH:~/.local/bin")
                     ("PASSWORD_STORE_DIR" . "$XDG_DATA_HOME/password-store")
                     ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$XDG_DATA_HOME/flatpak/exports/share")
                     ("SSH_ASKPASS"        . "ksshaskpass")
                     ("ELM_DISPLAY"        . "wl")
                     ("SDL_VIDEODRIVER"    . "wayland")
                     ("MOZ_ENABLE_WAYLAND" . "1")
                     ("SSL_CERT_FILE"      . "$HOME/.guix-profile/etc/ssl/certs/ca-certificates.crt")
                     ("CHICKEN_DOC_REPOSITORY"     . "$XDG_DATA_HOME/chicken/doc")
                     ;; ("CHICKEN_INSTALL_REPOSITORY" . "$XDG_DATA_HOME/chicken/eggs")
                     ;; ("CHICKEN_REPOSITORY_PATH"    . "$HOME/.guix-home/profile/var/lib/chicken/11/:$XDG_DATA_HOME/chicken/eggs")
                     ;; ("CHICKEN_INSTALL_PREFIX"     . "$HOME/.local")
                     ))
   (simple-service 'ziltis-home-files-service
                   home-files-service-type
                   `(#;(".gnupg/gpg-agent.conf" ,(local-file "gnupg/gpg-agent.conf"))))
   (simple-service 'ziltis-xdg-configuration-files-service
                   home-xdg-configuration-files-service-type
                   `(("sway/config" ,(local-file "./sway/sway"))
                     ("waybar/config" ,(local-file "./waybar/config"))
                     ("waybar/style.css" ,(local-file "./waybar/style.css"))
                     ("fuzzel/fuzzel.ini" ,(local-file "./fuzzel/fuzzel.ini"))
                     ("git/config" ,(local-file "./git/config"))
                     ("emacs/init.el" ,(local-file "./emacs/init.el"))
                     ("emacs/early-init.el" ,(local-file "./emacs/early-init.el"))
                     ("emacs/init.org" ,(local-file "./emacs/init.org"))
                     ("emacs/templates" ,(local-file "./emacs/templates"))
                     ("kitty/kitty.conf" ,(local-file "./kitty/kitty.conf"))
                     ("senpai/senpai.scfg" ,(local-file "./senpai/senpai.scfg"))))
   (service home-bash-service-type
            (home-bash-configuration
             (aliases
              '(("hh" . "hstr")
                ("l" . "ls -alh")
                ("ll" . "ls -l")
                ("ls" . "ls --color=tty")
                ("create-guix-patch" . "git format-patch --minimal --to guix-patches@gnu.org --cc dziltener@lyrion.ch --inline --no-attach master; ls *.patch | xargs sed -i '1d'")
                ("send-guix-patch-series" . "for FILE in $(ls *.patch); do cat $FILE | msmtp -t; done")))
             (bashrc
              (list
               (local-file
                "./.bashrc"
                "bashrc")))))
   (service home-batsignal-service-type
            (home-batsignal-configuration
             (ignore-missing? #t)))
   (service home-mcron-service-type
            (home-mcron-configuration
             (jobs
              '())))
   (simple-service 'ziltis-channels
                   home-channels-service-type
                   (list
                    (channel
                     (name 'ziltis-channel)
                     (url "https://gitea.lyrion.ch/zilti/guixchannel"))
                    (channel
                     (name 'nongnu-guix)
                     (url "https://gitlab.com/nonguix/nonguix"))))
   (service home-openssh-service-type
            (home-openssh-configuration
             (hosts
              (list
               (openssh-host
                (name "github.com")
                (host-name "github.com")
                (user "git")
                (identity-file "~/.ssh/personal_ed"))
               (openssh-host
                (name "www.opencode.net")
                (host-name "www.opencode.net")
                (user "git")
                (identity-file "~/.ssh/personal_ed"))
               (openssh-host
                (name "gitea.lyrion.ch")
                (host-name "gitea.lyrion.ch")
                (user "git")
                (port 7920)
                (identity-file "~/.ssh/personal_ed"))))))
   (service home-gpg-agent-service-type
            (home-gpg-agent-configuration
             (pinentry-program
              (file-append pinentry-qt "/bin/pinentry-qt"))
             (ssh-support? #t)
             (default-cache-ttl 7200)
             (default-cache-ttl-ssh 7200)
             (extra-content "grab\nallow-emacs-pinentry\nallow-loopback-pinentry")))
   (service home-dbus-service-type)
   )))