(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*