separate data from logic in ayase root-partition

1 files changed, 12 insertions, 3 deletions

diff --git a/systems/ayase/system-configuration.scm b/systems/ayase/system-configuration.scm
index 30df017..a0fad16 100644
--- a/systems/ayase/system-configuration.scm
+++ b/systems/ayase/system-configuration.scm
@@ -22,6 +22,15 @@
 	"emacs-exwm"
 	"emacs-desktop-environment"))
 
+(define root-mount-point
+  "/")
+
+(define root-filesystem
+  "ext4")
+
+(define root-uuid
+  "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c")
+
 (define swap-uuid
   "cc6bbf7c-e42a-4ac3-a9ae-3b14d3b4b841")
 
@@ -49,9 +58,9 @@
                                             "video"))))
 
 (define root-partition
-  (file-system (mount-point "/")
-               (device (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c" 'ext4))
-               (type "ext4")))
+  (file-system (mount-point root-mount-point)
+               (device (uuid root-uuid 'ext4))
+               (type root-filesystem)))
 
 ;; ABSTRACTION 1