update comments

1 files changed, 27 insertions, 17 deletions

diff --git a/systems/akashi.scm b/systems/akashi.scm
index fc62273..cacbe5a 100644
--- a/systems/akashi.scm
+++ b/systems/akashi.scm
@@ -1,25 +1,35 @@
 (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
-  )
+  ;; service
+  #:use-module (gnu services)
+
+  ;; guix-home-service-type
+  #:use-module (gnu services guix)
+
+  ;; keyboard-layout
+  #:use-module (gnu system keyboard)
+
+  ;; bootloader-configuration*
+  ;; file-systems*
+  ;; firmware*
+  ;; hardware-groups
+  ;; initrd*
+  ;; kernel*
+  ;; swap-devices*
+  #:use-module (machines thinkpad-x200)
+
+  ;; %suweren-operating-system
+  #:use-module (suweren system)
+
+  ;; uid1000-account
+  ;; uid1000-home-environment
+  ;; uid1000-name
+  #:use-module (users id1000))
 
 ;; string
 (define host-name*
   "akashi")
 
-;; (record user-account)
+;; (record* user-account)
 (define users*
   (let* ((system-groups (list "wheel"))
 
@@ -27,7 +37,7 @@
 					system-groups)))
     (list (uid1000-account supplementary-groups*))))
 
-;; record operating-system
+;; record* operating-system
 (define-public operating-system*
   (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))