;; 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 (guix packages)
             (guix gexp)
             (gnu home)
             (gnu packages)
             (gnu packages gnupg)
             (gnu packages shellutils)
             (gnu services)
             (gnu home services fontutils)
             (gnu home services desktop)
             (gnu home services shells)
             (gnu home services gnupg)
             (gnu home services sound)
             (gnu home services)
             (ruther home dwl wm)
             (ruther home themes)
             (ruther home services gtk))

(home-environment
 ;; Below is the list of packages that will show up in your
 ;; Home profile, under ~/.guix-home/profile.
 (packages
  (append
   (list
    dwl-mine)
   (specifications->packages
    (list
     ;; HW interactions
     "blueman" "pavucontrol"
     "network-manager-applet"

     ;; Terminals, utilities
     "foot" "fbset"

     ;; Shell utilities
     "ripgrep-all" "ripgrep"
     "fd" "fzf"
     "direnv"

     ;; Fonts
     "font-hack" "font-dejavu"
     "font-ubuntu"
     "font-awesome" "font-google-noto-emoji"

     ;; Browsing
     "librewolf"
     "firefox" ;; No netflix in librewolf :'(

     ;; Development
     "git" "openssh"

     ;; Passwords
     "gnupg" "password-store-wl" "pass-otp"

     ;; DBus services
     "mako"

     ;; Notebook stuff
     "acpi" "xbacklight"
     "brillo"

     ;; Images, Videos
     "mpv" "nsxiv" "zathura"
     "evince"

     ;; Editing
     "emacs" "emacs-vterm"
     "neovim"))))

  ;; Below is the list of Home services.  To search for available
  ;; services, run 'guix home search KEYWORD' in a terminal.
  (services
   (list (service home-bash-service-type
                  (home-bash-configuration
                   (guix-defaults? #t)
                   (aliases '(("grep" . "grep --color=auto")
                              ("ip" . "ip -color=auto")
                              ("ll" . "ls -l")
                              ("ls" . "ls -p --color=auto")))
                   (bashrc (list (local-file "dotfiles/.bashrc" "bashrc")))
                   (bash-profile (list (local-file "dotfiles/.bash_profile"
                                                   "bash_profile")))))

         (service home-gtk-service-type
                  (let ((gtk-theme (make-graphite-gtk-theme #:theme "orange" #:color "dark"))
                        (icon-theme (make-tela-circle-icon-theme #:variant "orange"))
                        (cursor-theme (make-catppuccin-cursors #:flavor "frappe" #:accent "sapphire")))
                    (home-gtk-configuration
                     (gtk-theme
                      (gtk-theme-configuration
                       (package gtk-theme)
                       (name (assoc-ref (package-properties gtk-theme) 'theme-name))))
                     (cursor-theme
                      (gtk-theme-configuration
                       (package cursor-theme)
                       (name (assoc-ref (package-properties cursor-theme) 'cursor-theme-name))
                       (size 16)))
                     (icon-theme
                      (gtk-theme-configuration
                       (package icon-theme)
                       (name (assoc-ref (package-properties icon-theme) 'dark-icon-theme-name))))
                     (font-name "Ubuntu 12"))))

         (service home-zsh-service-type
                  (home-zsh-configuration
                   (zshrc (list
                           (local-file "dotfiles/.zshrc" "zshrc")))))

         (service home-files-service-type
                  `((".config/foot/foot.ini" ,(local-file "dotfiles/foot.ini"))
                    (".config/waybar/config.jsonc" ,(local-file "dotfiles/waybar/config.jsonc"))
                    (".config/waybar/style.css" ,(local-file "dotfiles/waybar/style.css"))
                    (".config/mako/config" ,(local-file "dotfiles/mako"))
                    (".config/mimeapps.list" ,(local-file "dotfiles/mimeapps.list"))

                    ;; Temporary until I figure out how to write those in Guile,
                    ;; and put services into shepherd ones
                    (".sessions" ,(local-file "dotfiles/session-scripts" #:recursive? #t))

                    (".config/dwl/scripts/print.sh" ,(local-file "dotfiles/dwl/print.sh"))

                    (".config/zsh/direnv/direnv" ,direnv)
                    (".config/zsh/plugins" ,#~(string-append #$(directory-union
                                                                "zsh-plugins"
                                                                (list zsh-autosuggestions zsh-syntax-highlighting))
                                                             "/share/zsh/plugins"))

                    (".librewolf/native-messaging-hosts/com.github.browserpass.native.json"
                     ,(file-append
                       (specification->package "browserpass-native")
                       "/lib/browserpass/hosts/firefox/com.github.browserpass.native.json"))))

         (simple-service 'default-fonts
                         home-fontconfig-service-type
                         (list
                          '(alias
                            (family "monospace")
                            (prefer (family "Ubuntu Mono")))
                          '(alias
                            (family "sansSerif")
                            (prefer (family "Ubuntu")))
                          '(alias
                            (family "serif")
                            (prefer (family "Ubuntu")))))

         (service home-gpg-agent-service-type
                  (home-gpg-agent-configuration
                   (pinentry-program
                    (file-append pinentry-gtk2 "/bin/pinentry-gtk-2"))))
         (service home-pipewire-service-type)
         (service home-dbus-service-type))))