(define-module (systems mcdowell)
  #: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 bootloader-target-mcdowell
  "/mnt/boot")

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

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

(define (guix-home-service-mcdowell)
  (use-modules (gnu services guix))
  ((@ (gnu services) service)
   guix-home-service-type
   home-environments))

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

(define (bootloader-mcdowell)
  (use-modules (gnu bootloader grub))
  ((@ (gnu bootloader) bootloader-configuration)
   (bootloader grub-efi-removable-bootloader)
   (keyboard-layout keyboard-layout-mcdowell)
   (targets (list bootloader-target-mcdowell))))

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

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

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

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

operating-system*