1 files changed, 104 insertions, 0 deletions
diff --git a/systems/ayase.scm b/systems/ayase.scm
new file mode 100644
index 0000000..838a88c
--- /dev/null
+++ b/systems/ayase.scm
@@ -0,0 +1,104 @@
+(define-module (systems ayase)
+  ;; uuid
+  #:use-module (gnu)
+
+  ;; 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)
+
+  ;;#:use-module (gnu services xorg)
+
+  ;; uid1000-account
+  ;; uid1000-home-environment
+  ;; uid1000-name
+  #:use-module (users id1000)
+
+  ;; 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))
+
+;; string
+(define host-name*
+  "ayase")
+
+;; (record user-account)
+(define users*
+  (let* ((system-groups (list "wheel"))
+
+	 (supplementary-groups* (append system-groups)))
+    (list (uid1000-account supplementary-groups*))))
+
+;; record operating-system
+(define-public ayase
+  (let* ((bootloader-targets (list "/boot/efi"))
+	 (efi-filesystem-id (uuid "B4FB-CBD9" 'fat32))
+	 (home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))
+	 (root-filesystem-id (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c"))
+
+	 (efi-partition (file-system (mount-point "/boot/efi")
+				     (device efi-filesystem-id)
+				     (type "vfat")))
+	 (home-services (service guix-home-service-type
+				 home-environments))
+	 (root-partition (file-system (mount-point "/")
+				      (device root-filesystem-id)
+				      (type "ext4")))
+	 (swap-space-id (uuid "f1c1b2ab-5c11-4708-80c2-d5ac99ff35cf"))
+
+	 (ayase-file-systems (list root-partition
+				   efi-partition))
+	 (home-services (list home-services))
+	 (keyboard-layout (keyboard-layout "pl"))
+	 (main-swap (swap-space (target swap-space-id)))
+	 (system-services (list (service openssh-service-type)
+				(service tor-service-type)))
+
+	 (bootloader (bootloader-configuration (bootloader grub-efi-bootloader)
+					       (targets bootloader-targets)
+					       (keyboard-layout keyboard-layout)))
+	 (file-systems (append %base-file-systems
+			       ;; %distribution-file-systems
+			       ayase-file-systems))
+	 (firmware (list linux-firmware))
+	 (packages (append %base-packages
+			   ;; %distribution-packages
+			   ;; system-packages
+			   ))
+	 (services (append %distribution-services
+			   home-services
+			   system-services))
+	 (swap-devices (list main-swap))
+	 (users (append %base-user-accounts
+			users*)))
+    (operating-system (kernel linux)
+		      (bootloader bootloader)
+                      (keyboard-layout keyboard-layout)
+		      (initrd microcode-initrd)
+		      (firmware firmware)
+                      (host-name host-name*)
+                      (file-systems file-systems)
+                      (swap-devices swap-devices)
+                      (users users)
+                      (timezone "Europe/Warsaw")
+                      (locale "pl_PL.utf8")
+                      (services services)
+		      (sudoers-file %sudoers-specification*))))
+
+ayase