1 files changed, 54 insertions, 0 deletions
diff --git a/systems/akashi.scm b/systems/akashi.scm
new file mode 100644
index 0000000..fc62273
--- /dev/null
+++ b/systems/akashi.scm
@@ -0,0 +1,54 @@
+(define-module (systems akashi)
+  #:use-module (gnu services)		; service
+  #:use-module (gnu services guix)	; guix-home-service-type
+  #:use-module (gnu system keyboard)    ; keyboard-layout
+  #:use-module (machines thinkpad-x200)	; bootloader-configuration*
+					; file-systems*
+					; firmware*
+					; hardware-groups
+					; initrd*
+					; kernel*
+                                        ; swap-devices*
+  #:use-module (suweren system)		; %suweren-operating-system
+  #:use-module (users id1000)		; uid1000-account
+					; uid1000-home-environment
+					; uid1000-name
+  )
+
+;; string
+(define host-name*
+  "akashi")
+
+;; (record user-account)
+(define users*
+  (let* ((system-groups (list "wheel"))
+
+	 (supplementary-groups* (append hardware-groups
+					system-groups)))
+    (list (uid1000-account supplementary-groups*))))
+
+;; 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* "pl_PL.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*