From d64aa15e527563c9ac4130cc4a9f462e53c2439d Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Wed, 22 May 2024 16:07:07 +0200
Subject: ayase: initial operating-system: rewritten from installation config

---
 systems/ayase/guix-ayase.org           | 84 ++++++++++++++++++++++++++++++++++
 systems/ayase/system-configuration.scm | 73 +++++++++++++++++++++++++++++
 2 files changed, 157 insertions(+)
 create mode 100644 systems/ayase/guix-ayase.org
 create mode 100644 systems/ayase/system-configuration.scm

diff --git a/systems/ayase/guix-ayase.org b/systems/ayase/guix-ayase.org
new file mode 100644
index 0000000..e771db8
--- /dev/null
+++ b/systems/ayase/guix-ayase.org
@@ -0,0 +1,84 @@
+* System Configuration
+
+[[https://guix.gnu.org/manual/devel/en/html_node/System-Configuration.html]]
+
+** operating-system Reference
+
+[[https://guix.gnu.org/manual/devel/en/html_node/operating_002dsystem-Reference.html]]
+
+#+NAME: OPERATING-SYSTEM
+#+BEGIN_SRC scheme :tangle system-configuration.scm
+  (define-module (systems ayase system-configuration)
+    #:use-module (gnu)
+    #:use-module (gnu services cups)
+    #:use-module (gnu services desktop)
+    #:use-module (gnu services networking)
+    #:use-module (gnu services ssh)
+    #:use-module (gnu services xorg))
+
+  (define main-memory
+    (target (uuid "cc6bbf7c-e42a-4ac3-a9ae-3b14d3b4b841")))
+
+  (define marek-account
+    (user-account (name "marek")
+                  (comment "Marek Paśnikowski")
+                  (group "users")
+                  (home-directory "/home/marek")
+                  (supplementary-groups (list "wheel"
+                                              "netdev"
+                                              "audio"
+                                              "video"))))
+
+  (define xorg-configuration
+    (xorg-configuration (keyboard-layout keyboard-layout)))
+
+  (define ayase-user-accounts
+    (list marek-account))
+
+  (define bootloader
+    (bootloader-configuration (bootloader grub-efi-bootloader)
+                              (targets (list "/boot/efi"))
+                              (keyboard-layout keyboard-layout)))
+
+  (define efi-partition
+    (file-system (mount-point "/boot/efi")
+                 (device (uuid "B4FB-CBD9" 'fat32))
+                 (type "vfat")))
+
+  (define root-partition
+    (file-system (mount-point "/")
+                 (device (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c" 'ext4))
+                 (type "ext4")))
+
+  (define swap-devices
+    (list (swap-space main-memory)))
+
+  (define system-packages
+    (list (specification->package "emacs")
+          (specification->package "emacs-exwm")
+          (specification->package "emacs-desktop-enfironment")))
+
+  (define system-services
+    (list (service openssh-service-type)
+          (service tor-service-type)
+          (service cups-service-type)
+          (set-xorg-configuration xorg-configuration)))
+
+  (operating-system (bootloader bootloader)
+                    (keyboard-layout (keyboard-layout "pl"))
+                    (host-name "ayase")
+                    (file-systems (append %base-file-systems
+                                          efi-partition
+                                          root-partition))
+                    (swap-devices swap-devices)
+                    (users (append %base-user-accounts
+                                   ayase-user-accounts))
+                    (packages (append %base-packages
+                                      ;; %distribution-packages
+                                      system-packages))
+                    (timezone "Europe/Warsaw")
+                    (locale "pl_PL.utf8")
+                    (services (append %desktop-services
+                                      ;; %distribution-services
+                                      system-services)))
+#+END_SRC
diff --git a/systems/ayase/system-configuration.scm b/systems/ayase/system-configuration.scm
new file mode 100644
index 0000000..b2b4dac
--- /dev/null
+++ b/systems/ayase/system-configuration.scm
@@ -0,0 +1,73 @@
+(define-module (systems ayase system-configuration)
+  #:use-module (gnu)
+  #:use-module (gnu services cups)
+  #:use-module (gnu services desktop)
+  #:use-module (gnu services networking)
+  #:use-module (gnu services ssh)
+  #:use-module (gnu services xorg))
+
+(define main-memory
+  (target (uuid "cc6bbf7c-e42a-4ac3-a9ae-3b14d3b4b841")))
+
+(define marek-account
+  (user-account (name "marek")
+                (comment "Marek Paśnikowski")
+                (group "users")
+                (home-directory "/home/marek")
+                (supplementary-groups (list "wheel"
+                                            "netdev"
+                                            "audio"
+                                            "video"))))
+
+(define xorg-configuration
+  (xorg-configuration (keyboard-layout keyboard-layout)))
+
+(define ayase-user-accounts
+  (list marek-account))
+
+(define bootloader
+  (bootloader-configuration (bootloader grub-efi-bootloader)
+                            (targets (list "/boot/efi"))
+                            (keyboard-layout keyboard-layout)))
+
+(define efi-partition
+  (file-system (mount-point "/boot/efi")
+               (device (uuid "B4FB-CBD9" 'fat32))
+               (type "vfat")))
+
+(define root-partition
+  (file-system (mount-point "/")
+               (device (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c" 'ext4))
+               (type "ext4")))
+
+(define swap-devices
+  (list (swap-space main-memory)))
+
+(define system-packages
+  (list (specification->package "emacs")
+        (specification->package "emacs-exwm")
+        (specification->package "emacs-desktop-enfironment")))
+
+(define system-services
+  (list (service openssh-service-type)
+        (service tor-service-type)
+        (service cups-service-type)
+        (set-xorg-configuration xorg-configuration)))
+
+(operating-system (bootloader bootloader)
+                  (keyboard-layout (keyboard-layout "pl"))
+                  (host-name "ayase")
+                  (file-systems (append %base-file-systems
+                                        efi-partition
+                                        root-partition))
+                  (swap-devices swap-devices)
+                  (users (append %base-user-accounts
+                                 ayase-user-accounts))
+                  (packages (append %base-packages
+                                    ;; %distribution-packages
+                                    system-packages))
+                  (timezone "Europe/Warsaw")
+                  (locale "pl_PL.utf8")
+                  (services (append %desktop-services
+                                    ;; %distribution-services
+                                    system-services)))
-- 
cgit v1.2.3