summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2024-06-19 16:57:13 +0200
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2024-06-19 16:57:13 +0200
commit2584733707c606b0e9cf8d6ac9c3ebe106bc56db (patch)
tree9fbd46d8c3e9d422fc7aa5620271387b08df3e02
parent40877b4566490e64c1aac8a279489b5fb2a98046 (diff)
improve names in ayase system-configuration
-rw-r--r--systems/ayase/system-configuration.scm31
1 files changed, 16 insertions, 15 deletions
diff --git a/systems/ayase/system-configuration.scm b/systems/ayase/system-configuration.scm
index e9fedb1..e08dc93 100644
--- a/systems/ayase/system-configuration.scm
+++ b/systems/ayase/system-configuration.scm
@@ -11,33 +11,34 @@
(define-public ayase
(let* ((bootloader-targets (list "/boot/efi"))
- (marek-groups (list "wheel"
- "netdev"
- "audio"
- "video"))
- (root-filesystem-device (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c"))
+ (efi-filesystem-id (uuid "B4FB-CBD9" 'fat32))
+ (marekpasnikowski-groups (list "wheel"
+ "netdev"
+ "audio"
+ "video"))
+ (root-filesystem-id (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c"))
(package-specifications (list "emacs"
"emacs-exwm"
"emacs-desktop-environment"))
(efi-partition (file-system (mount-point "/boot/efi")
- (device (uuid "B4FB-CBD9" 'fat32))
+ (device efi-filesystem-id)
(type "vfat")))
- (marek-account (user-account (name "marekpasnikowski")
- (comment "Marek Paśnikowski")
- (group "users")
- (home-directory "/home/marek")
- (supplementary-groups marek-groups)))
+ (marekpasnikowski-account (user-account (name "marekpasnikowski")
+ (comment "Marek Paśnikowski")
+ (group "users")
+ (home-directory "/home/marek")
+ (supplementary-groups marekpasnikowski-groups)))
(root-partition (file-system (mount-point "/")
- (device root-filesystem-device)
+ (device root-filesystem-id)
(type "ext4")))
- (swap-space-target (uuid "f1c1b2ab-5c11-4708-80c2-d5ac99ff35cf"))
+ (swap-space-id (uuid "f1c1b2ab-5c11-4708-80c2-d5ac99ff35cf"))
(ayase-file-systems (list root-partition
efi-partition))
- (ayase-user-accounts (list marek-account))
+ (ayase-user-accounts (list marekpasnikowski-account))
(keyboard-layout (keyboard-layout "pl"))
- (main-swap (swap-space (target swap-space-target)))
+ (main-swap (swap-space (target swap-space-id)))
(system-packages (map specification->package
package-specifications))
(system-services (list (service openssh-service-type)