(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*
                                        ; swap-devices*
  #:use-module (suweren system)		; %suweren-operating-system
  #:use-module (users id1000)		; uid1000-account
					; uid1000-home-environment
					; uid1000-name
  )

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

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

;; record operating-system
(define (operating-system*)
  (use-modules (machines portable-bios)
	       (suweren system))
  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))

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

	 (keyboard-layout* (keyboard-layout "pl"))
	 (services* (list guix-home))
	 (timezone* "Europe/Warsaw")
	 ;; (locale* "en_US.utf8")
	 )
    ((@ (gnu system) operating-system)
     (inherit %suweren-operating-system)
     (kernel kernel*)
     (bootloader (bootloader-configuration* keyboard-layout*))
     (keyboard-layout keyboard-layout*)
     (initrd initrd*)
     (firmware firmware*)
     (host-name host-name*)
     (file-systems (file-systems* host-name*))
     (swap-devices (swap-devices* host-name*))
     (users users*)
     (timezone timezone*)
     ;; locale*
     (services services*))))

(define-public operating-system*
  (operating-system*))

operating-system*