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

;;;???????????????????????????????????????????????????????????????????

(define home-environments
  `((,uid1000-name ,(uid1000-home-environment host-name*))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (desktop-services-mcdowell)
  (use-modules (suweren system))
  %suweren-services)

(define keyboard-layout-mcdowell
  ((@ (gnu system keyboard) keyboard-layout)
   "pl"))

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define services-mcdowell
  (append (desktop-services-mcdowell)
          (list guix-home)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (operating-system*)
  (use-modules (machines portable-bios)
	       (suweren system))
  (let* ((timezone* "Europe/Warsaw"))
    ((@ (gnu system) operating-system)
     (kernel kernel*)
     (keyboard-layout keyboard-layout-mcdowell)
     (bootloader (bootloader-configuration* keyboard-layout-mcdowell))
     (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-mcdowell))))

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

operating-system*