(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
  ((@ (machines amd64) bootloader-device-path)
   host-name*))

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

(define grub-mkrescue-bootloader-mcdowell
  (let
      ((grub-bootloader (@ (gnu bootloader grub) grub-bootloader))
       (grub-hybrid (@ (gnu packages bootloaders) grub-hybrid)))
    ((@ (gnu bootloader) bootloader)
     (inherit grub-bootloader)
     (package grub-hybrid))))

(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
  ((@ (gnu bootloader) bootloader-configuration)
   (bootloader grub-mkrescue-bootloader-mcdowell)
   (keyboard-layout keyboard-layout-mcdowell)
   (targets (list bootloader-target-mcdowell))))

(define (label-mcdowell operating-system)
  (let*
      ((operating-system-default-label (@ (gnu system) operating-system-default-label))
       (default-label-string (operating-system-default-label operating-system)))
    (string-append host-name*
                   ": "
                   default-label-string)))

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

(define (users-mcdowell)
  (use-modules (users id1000))
  (list uid1000-account))

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

(define-public operating-system*
  (let
      ((%base-groups (@ (gnu system shadow) %base-groups))
       (%base-packages (@ (gnu system) %base-packages))
       (%base-initrd-modules (@ (gnu system linux-initrd) %base-initrd-modules))
       (%default-issue (@@ (gnu system) %default-issue))
       (%default-kernel-arguments (@ (gnu system) %default-kernel-arguments))
       (%default-locale-libcs (@ (gnu system locale) %default-locale-libcs))
       (%default-nss (@ (gnu system nss) %default-nss))
       (%suweren-locale-definitions (@ (suweren system) %suweren-locale-definitions))
       (base-pam-services ((@ (gnu system pam) base-pam-services)))
       (default-skeletons ((@ (gnu system shadow) default-skeletons)))
       (file-systems* (@ (machines amd64) file-systems*))
       (firmware* (@ (machines amd64) firmware*))
       (initrd* (@ (machines amd64) initrd*))
       (kernel-amd64 (@ (machines amd64) kernel-amd64))
       (operating-system-default-essential-services (@ (gnu system) operating-system-default-essential-services))
       (polish-locale-string (@ (suweren system) polish-locale-string))
       (swap-devices* (@ (machines amd64) swap-devices*)))
    ((@ (gnu system) operating-system)
     (kernel kernel-amd64)
     (kernel-loadable-modules (list))
     (kernel-arguments %default-kernel-arguments)
     (hurd #f)
     (bootloader bootloader-mcdowell)
     (label (label-mcdowell (@ (gnu system) this-operating-system)))
     (keyboard-layout keyboard-layout-mcdowell)
     (initrd initrd*)
     (initrd-modules %base-initrd-modules)
     (firmware firmware*)
     (host-name host-name*)
     (mapped-devices (list))
     (file-systems (file-systems* host-name*))
     (swap-devices (swap-devices* host-name*))
     (users (users-mcdowell))
     (groups %base-groups)
     (skeletons default-skeletons)
     (issue %default-issue)
     (packages %base-packages)
     (timezone "Europe/Warsaw")
     (locale polish-locale-string)
     (locale-definitions %suweren-locale-definitions)
     (locale-libcs %default-locale-libcs)
     (name-service-switch %default-nss)
     (essential-services (operating-system-default-essential-services
                          (@ (gnu system) this-operating-system)))
     (services services-mcdowell)
     (pam-services base-pam-services))))

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

operating-system*