(define-module (systems mcdowell)
  #:use-module (gnu services)		; service
  #:use-module (gnu services guix)	; guix-home-service-type
  #:use-module (gnu system keyboard)    ; keyboard-layout
  #:use-module (machines portable-bios)	; bootloader-configuration*
					; file-systems*
					; firmware*
					; hardware-groups
					; 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*
  (let* ((system-groups (list "wheel"))

	 (supplementary-groups* (append hardware-groups
					system-groups))

	 (marekpasnikowski (marekpasnikowski-account supplementary-groups*)))
    (list marekpasnikowski)))

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

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

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

operating-system*