(define-module (systems akashi))

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

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

(define host-name*
  "akashi")

(define (file-systems)
  (use-modules (suweren system))
  (append %suweren-file-systems
	  (list root-partition)))

(define keyboard-layout*
  ((@ (gnu system keyboard) keyboard-layout)
   "pl"))

(define (services)
  (use-modules (suweren system))
  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))

	 (guix-home ((@ (gnu services) service)
		     guix-home-service-type
		     home-environments)))
    (append %suweren-services
	    (list guix-home
		  ((@ (gnu services base) udev-rules-service)
		   'adb-udev
		   (@ (gnu packages android) android-udev-rules))))))

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

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

(define (operating-system*)
  (use-modules (gnu packages linux)
	       (gnu services guix)
	       (machines thinkpad-x200)
	       (nongnu packages linux)
	       (suweren commons sudoers)
	       (suweren system)
	       (users id1000))
  (let* ((patter-placeholder #f)
	 (timezone* "Europe/Warsaw"))
    ((@ (gnu system) operating-system)
     (kernel linux-libre)
     (bootloader (bootloader-configuration* keyboard-layout*))
     (keyboard-layout keyboard-layout*)
     (host-name host-name*)
     (file-systems (file-systems))
     (swap-devices (swap-devices* host-name*))
     (users (users))
     (timezone timezone*)
     (locale polish-locale-string)
     (locale-definitions %suweren-locale-definitions)
     (services (services))
     (sudoers-file %sudoers-specification*))))

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

operating-system*