(define-module (systems akashi))

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

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

;; record* operating-system
(define (operating-system*)
  (use-modules (gnu services guix)
	       (machines thinkpad-x200)
	       (users id1000))
  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))

	 (guix-home ((@ (gnu services) service)
		     guix-home-service-type
		     home-environments))

	 (keyboard-layout ((@ (gnu system keyboard) keyboard-layout)
			   "pl"))
	 (services* (list guix-home
			  ((@ (gnu services base) udev-rules-service)
			   'adb-udev
			   (@ (gnu packages android) android-udev-rules))))
	 (timezone* "Europe/Warsaw")
	 ;; (locale* "en_US.utf8")
	 )
    ((@ (suweren system) %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*)))

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

operating-system*