(define-module (jd home services desktop)
  #:use-module (gnu packages)
  #:use-module (gnu packages freedesktop)
  #:use-module (gnu packages networking)
  #:use-module (gnu packages syncthing)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages gnupg)
  #:use-module (gnu services)
  #:use-module (gnu services configuration)
  #:use-module (gnu home services)
  #:use-module (gnu home services shepherd)
  #:use-module (gnu home services desktop)
  #:use-module (gnu home services sound)
  #:use-module (gnu home services xdg)
  #:use-module (gnu home services gnupg)
  #:use-module (guix gexp))

(define (desktop-profile-service config)
  (specifications->packages '(;; sway
			      "swayfx"
			      "swaylock"
			      "swayidle"
			      "waybar"
			      "fuzzel"
			      "foot"
			      "mako"
			      "wl-clipboard"
			      "wlsunset"
			      "grimshot"
			      
			      "udiskie"
			      ;; rest
			      "qutebrowser"
			      "ungoogled-chromium"
			      "firefox"
			      "tor-client"
			      "signal-desktop"

			      "pulsemixer"
			      "pavucontrol"
			      "alsa-utils"

			      "virt-manager"

			      "flatpak"
			      "redshift"
			      "fontmanager"

			      "polybar"

			      "blueman"

			      "xdg-utils"
			      "xdg-dbus-proxy"
			      "xdg-desktop-portal-gtk"
			      "xdg-desktop-portal-wlr"
			      "glib:bin"
			      "gtk+:bin"
			      "gnome-keyring"
			      "shared-mime-info"
			      "libnotify"
			      "dconf"
			      "hicolor-icon-theme"

			      "dunst"

			      "gimp"
			      "inkscape"

			      "mpv"
			      "youtube-dl"

			      "pamixer"
			      "playerctl"
			      "scrot"
			      "brightnessctl"
			      "upower"
			      "tlp"
			      "feh"
			      "alacritty"

			      "curl"
			      "wget"
			      "zip"
			      "unzip"
			      "qrencode"
			      "trash-cli"
			      "pandoc"
			      "password-store"
			      "oath-toolkit"
			      ;; "pinentry"

			      "syncthing"
			      "syncthing-gtk"

			      "xmodmap"
			      "xrandr"
			      "arandr"
			      "xss-lock"
			      "libinput"
			      "xinput"
			      "xprop"
			      "rlwrap"

			      "nheko"
			      "quassel")))

(define (desktop-environment-variables-service config)
  `(("GTK_THEME" . "Adwaita:dark")
    ("VISUAL" . "emacsclient")
    ("EDITOR" . "emacsclient")
    ("PATH" . "$HOME/.bin:$HOME/.npm-global/bin:$PATH")
    ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share")
    ("SBCL_HOME" . "/run/current-system/profile/lib/sbcl/")

    ;; Set Wayland-specific environment variables (taken from RDE)
    ("XDG_CURRENT_DESKTOP" . "sway")
    ("XDG_SESSION_TYPE" . "wayland")
    ("RTC_USE_PIPEWIRE" . "true")
    ("SDL_VIDEODRIVER" . "wayland")
    ("MOZ_ENABLE_WAYLAND" . "1")
    ("CLUTTER_BACKEND" . "wayland")
    ("ELM_ENGINE" . "wayland_egl")
    ("ECORE_EVAS_ENGINE" . "wayland-egl")
    ("QT_QPA_PLATFORM" . "wayland-egl")))

(define (desktop-xdg-mime-applications-service config)
  (home-xdg-mime-applications-configuration
   (default '((inode/directory . emacsclient.desktop)
	      (application/pdf . emacsclient.desktop)
	      (x-scheme-handler/http= . firefox.desktop)
	      (x-scheme-handler/https= . firefox.desktop)))
   ;; (desktop-entries
   ;;  (list (xdg-desktop-entry
   ;; 	     (file "emacs-desktop")
   ;; 	     (name "Emacs")
   ;; 	     (type 'application)
   ;; 	     (config
   ;; 	      '((exec . "emacsclient -a emacs %u"))))))
   ))

(define (desktop-gpg-agent-service config)
  (home-gpg-agent-configuration
   (pinentry-program
    (file-append pinentry-gnome3 "/bin/pinentry-gnome3"))
   (ssh-support? #t)
   (default-cache-ttl 28800)
   (max-cache-ttl 28800)
   (default-cache-ttl-ssh 28800)
   (max-cache-ttl-ssh 28800)))


(define-public home-desktop-service-type
  (service-type (name 'home-desktop)
                (extensions (list (service-extension home-profile-service-type
						     desktop-profile-service)
				  (service-extension home-environment-variables-service-type
          					     desktop-environment-variables-service)
				  (service-extension home-pipewire-service-type
						     (lambda (_) (home-pipewire-configuration)))
				  (service-extension home-xdg-mime-applications-service-type
					 	     desktop-xdg-mime-applications-service)
				  (service-extension home-gpg-agent-service-type
						     desktop-gpg-agent-service)
				  ))
                (default-value #f)
                (description "Runs desktop services.")))