(define-module (systems akashi)
  ;; service
  #:use-module (gnu services)

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

  ;; keyboard-layout
  #:use-module (gnu system keyboard)

  ;; bootloader-configuration*
  ;; file-systems*
  ;; firmware*
  ;; initrd*
  ;; kernel*
  ;; swap-devices*
  #:use-module (machines thinkpad-x200)

  ;; %suweren-operating-system
  #:use-module (suweren system)

  ;; uid1000-account
  ;; uid1000-home-environment
  ;; uid1000-name
  #:use-module (users id1000))

;; string
(define host-name*
  "akashi")

;; (record* user-account)
(define users*
  (list uid1000-account))

;; record* operating-system
(define-public operating-system*
  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))

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

	 (keyboard-layout* (keyboard-layout "pl"))
	 (services* (list guix-home))
	 (timezone* "Europe/Warsaw")
	 ;; (locale* "en_US.utf8")
	 )
    (%suweren-operating-system kernel*
			       (bootloader-configuration* keyboard-layout*)
			       keyboard-layout*
			       initrd*
			       firmware*
			       host-name*
			       (file-systems* host-name*)
			       (swap-devices* host-name*)
			       users*
			       timezone*
			       ;; locale*
			       services*)))

operating-system*