(define-module (users marekpasnikowski)
  #:use-module (gnu home)		  ; home-environment
  #:use-module (gnu home services)	  ; home-profile-service-type
  #:use-module (gnu home services shells) ; home-fish-service-type
  #:use-module (gnu packages emacs)	  ; emacs
  #:use-module (gnu packages emacs-xyz)	  ; emacs-org-roam emacs-paredit
  #:use-module (gnu packages librewolf)	  ; librewolf
  #:use-module (gnu packages shells)      ; fish
  #:use-module (gnu services)		  ; service
			                  ; simple-service
  #:use-module (gnu system shadow)	  ; user-account
  #:use-module (guix gexp)		  ; file-append
  #:use-module (suweren home)		  ; %home-environment %suweren-home-services
  )

;; DEPRECATED
(define marekpasnikowski-services
  (let* ((packages (list emacs
			 emacs-org-roam
			 emacs-paredit
			 librewolf))

	 (profile (list (simple-service 'marekpasnikowski-packages
					home-profile-service-type
					packages))))
    (append %suweren-home-services
	    profile)))

;; string
(define-public marekpasnikowski-username
  "marek")

;; DEPRECATED
(define-public home
  (let ((services (append %suweren-home-services
			  marekpasnikowski-services)))
    (home-environment (inherit %home-environment)
		      (services marekpasnikowski-services))))

;; record user-account
(define-public marekpasnikowski-account
  (let ((fish (file-append fish "/bin/fish")))
    (user-account (name marekpasnikowski-username)
		  (group "users")
		  (shell fish))))

;; record home-environment
(define-public marekpasnikowski-home-environment
  (let* ((fish (service home-fish-service-type))

	 (services* (list fish)))
    (home-environment (services services*))))