(define-module (suweren home)
  #:use-module ((gnu home services shells)
                #:prefix gnu:home:services:shells:)

  ;; easyeffects
  #:use-module (gnu packages audio)

  ;; font-google-noto
  ;; font-google-noto-emoji
  ;; font-google-noto-sans-cjk
  ;; font-google-noto-serif-cjk
  #:use-module (gnu packages fonts)

  ;; kded
  #:use-module (gnu packages kde-frameworks)

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

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

  ;; 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)

  ;; kde-gtk-config
  #:use-module (gnu packages kde-plasma)

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

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

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

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

(define bash-prompt-configuration-core
  "    PS1='\\n\\n\\t $?\\n\\u@\\H \\w\\n\\! ")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define bash-prompt-configuration
  (guix:gexp:mixed-text-file "bash-prompt"
                             "\n"
                             "if [ -n \"$GUIX_ENVIRONMENT\" ] \n"
                             "then\n"
                             bash-prompt-configuration-core
                             "[env] \\$ '\n"
                             "else\n"
                             bash-prompt-configuration-core
                             "\\$ '\n"
                             "fi"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-public (%suweren-home-services host-name*)
  (let* ((packages (list easyeffects
			 font-hack
			 gnupg
			 kde-gtk-config
			 kded
			 librewolf
			 pinentry-qt
			 pinentry-tty))

	 (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 dbus
	  pipewire
	  profile
	  shepherd
	  suweren-home-fontconfig-service-type
	  update-commands*
          (simple-service
           'environment-variables
           home-environment-variables-service-type
           `(("EDITOR" . "kate -s sesja -b")))
          (simple-service
           'bash-aliases
           gnu:home:services:shells:home-bash-service-type
           (gnu:home:services:shells:home-bash-extension
            (aliases
             `(("edit" . "$EDITOR")))))
          (simple-service
           'bash-prompt
           gnu:home:services:shells:home-bash-service-type
           (gnu:home:services:shells:home-bash-extension
            (bash-profile
             (list bash-prompt-configuration))
            (bashrc
             (list bash-prompt-configuration)))))))