(define-module (systems ayase)
  ;; uuid
  #:use-module (gnu)

  ;; grub
  #:use-module (gnu packages bootloaders)

  ;; gnome-boxes
  #:use-module (gnu packages gnome)

  ;; pinentry-qt
  ;; pinentry-tty
  #:use-module (gnu packages gnupg)

  ;; kgpg
  #:use-module (gnu packages kde-pim)

  ;; python-pip
  #:use-module (gnu packages python-build)

  ;; ruby
  #:use-module (gnu packages ruby)

  ;; profile-service-type
  ;; service
  ;; simple-service
  #:use-module (gnu services)

  ;; guix-home-service-type
  #:use-module (gnu services guix)

  ;; tor-service-type
  #:use-module (gnu services networking)

  ;; openssh-service-type
  #:use-module (gnu services ssh)

  ;; libvirt-service-type
  #:use-module (gnu services virtualization)

  ;; linux
  ;; linux-firmware
  #:use-module (nongnu packages linux)

  ;; microcode-initrd
  #:use-module (nongnu system linux-initrd)

  ;; %sudoers-specification*
  #:use-module (suweren commons sudoers)

  ;; %distribution-services
  #:use-module (suweren services))

(define host-name
  "ayase")

(define efi-filesystem-uuid
  (uuid "B4FB-CBD9" 'fat32))

(define root-filesystem-uuid
  (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c"))

;;;

(define (home-environments)
  (use-modules (users id1000))
  `((,uid1000-name ,(uid1000-home-environment host-name))))

(define (swap-label number)
  (file-system-label (string-append host-name
				    "-swap"
				    number)))

(define efi-partition
  ((@ (gnu system file-systems) file-system)
   (mount-point "/boot/efi")
   (device efi-filesystem-uuid)
   (type "vfat")))

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

(define root-partition
  ((@ (gnu system file-systems) file-system)
   (mount-point "/")
   (device root-filesystem-uuid)
   (type "ext4")))

;; #<swap-space>
(define swap-1
  (swap-space (target (swap-label "-1"))))

;; #<swap-space>
(define swap-2
  (swap-space (target (swap-label "-2"))))

(define system-services
  (list (service libvirt-service-type)
	(service openssh-service-type)
	(service tor-service-type)
	(simple-service 'gc-workaround
			profile-service-type
			(list grub
			      python-pip
			      ruby))
	(simple-service 'system-packages
			profile-service-type
			(list gnome-boxes
			      kgpg
			      pinentry-qt
			      pinentry-tty))))

;;;

(define (file-systems)
  (use-modules (gnu system file-systems))
  (append %base-file-systems
	  (list root-partition
		efi-partition)))

(define polish-locale
  ((@ (gnu system locale) locale-definition)
   (name "pl_PL.utf8")
   (source "pl_PL")))

(define services
  (append %distribution-services
	  (list home-services)
	  system-services))

;; (list #<swap-space>)
(define swap-devices
  (list swap-1
	swap-2))

;; (list #<user-account>)
(define (users)
  (use-modules (users id1000))
  (append %base-user-accounts
	  (list uid1000-account)))

(define (locale-definitions)
  (use-modules (gnu system locale))
  (append %default-locale-definitions
	  (list polish-locale)))

;;;

;; #<operating-system>
(define-public operating-system*
  (let* ((bootloader-targets (list "/boot/efi"))

	 (keyboard-layout (keyboard-layout "pl"))
	 (bootloader (bootloader-configuration (bootloader grub-efi-bootloader)
					       (targets bootloader-targets)
					       (keyboard-layout keyboard-layout))))
    (operating-system (kernel linux)
		      (bootloader bootloader)
                      (keyboard-layout keyboard-layout)
		      (initrd microcode-initrd)
		      (firmware (list linux-firmware))
                      (host-name host-name)
                      (file-systems (file-systems))
                      (swap-devices swap-devices)
                      (users (users))
                      (timezone "Europe/Warsaw")
                      (locale "pl_PL.utf8")
		      (locale-definitions (locale-definitions))
                      (services services)
		      (sudoers-file %sudoers-specification*))))

operating-system*