(define-module (systems mcdowell)
  #:use-module (gnu services)		; service
  #:use-module (gnu services guix)	; guix-home-service-type
  #:use-module (machines portable-bios)	; bootloader-configuration*
					; file-systems*
					; firmware*
					; initrd*
					; kernel*
  #:use-module (suweren system)		; %suweren-operating-system
  #:use-module (users marekpasnikowski) ; marekpasnikowski-account
					; marekpasnikowski-home-environment
					; marekpasnikowski-username
  )

;; string
(define host-name*
  "mcdowell")

;; (record user-account)
(define users*
  (list marekpasnikowski-account))

;; record operating-system
(define operating-system*
  (let* ((home-environments `((,marekpasnikowski-username ,marekpasnikowski-home-environment)))

	 (guix-home (service guix-home-service-type
			     home-environments))

	 (services* (list guix-home)))
    (%suweren-operating-system kernel*
			       bootloader-configuration*
			       initrd*
			       firmware*
			       host-name*
			       (file-systems* host-name*)
			       users*
			       services*)))

operating-system*