(define-module (systems mcdowell))

(define host-name*
  "mcdowell")

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

(define (home-environments-mcdowell)
  (use-modules (users id1000))
  `((,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-mcdowell)))

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

(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 (users-mcdowell)
  (use-modules (users id1000))
  (list uid1000-account))

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

(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-mcdowell))
   (timezone "Europe/Warsaw")
   ;; locale*
   (services services-mcdowell)))

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

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

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

operating-system*