(define-module (suweren home)
  ;; home-profile-service-type
  #:use-module (gnu home services)

  ;; home-dbus-service-type
  #:use-module (gnu home services desktop)

  ;; home-bash-service-type
  #:use-module (gnu home services shells)

  ;; home-shepherd-service-type
  #:use-module (gnu home services shepherd)

  ;; home-pipewire-service-type
  #:use-module (gnu home services sound)

  ;; gnupg
  ;; pinentry-qt
  ;; pinentry-tty
  #:use-module (gnu packages gnupg)

  ;; librewolf
  #:use-module (gnu packages librewolf)

  ;; service
  ;; simple-service
  #:use-module (gnu services)

  ;; suweren-home-bash-configuration
  ;; suweren-home-xdg-configuration-files-extension
  #:use-module (suweren home services)

  ;; suweren-home-fontconfig-service-type
  #:use-module (suweren home services fontutils)

  ;; update-commands
  #:use-module (suweren update))

;; string ->
;; (record service)
(define-public (%suweren-home-services host-name*)
  (let* ((packages (list gnupg
			 librewolf
			 pinentry-qt
			 pinentry-tty))

	 (bash (service home-bash-service-type
			suweren-home-bash-configuration))
	 (dbus (service home-dbus-service-type))
	 (pipewire (service home-pipewire-service-type))
	 (profile (simple-service 'default-home-packages
				  home-profile-service-type
				  packages))
	 (shepherd (service home-shepherd-service-type))
	 (update-commands* (update-commands host-name*)))
    (list bash
	  dbus
	  pipewire
	  profile
	  shepherd
	  suweren-home-fontconfig-service-type
	  suweren-home-xdg-configuration-files-extension
	  update-commands*)))