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

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

  ;; 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
  (let*
    ( (dbus     (service home-dbus-service-type))
      (pipewire (service home-pipewire-service-type))
      (shepherd (service home-shepherd-service-type)))
    (list dbus
          pipewire
          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)))))))