This commit is contained in:
Daniel Ziltener 2023-12-12 10:26:28 +01:00
parent 4ebcbe3171
commit 691891cf08
Signed by: zilti
GPG key ID: B38976E82C9DAE42
2 changed files with 4 additions and 4 deletions

View file

@ -105,7 +105,7 @@ The variable ~%local-filesystem~ extracts the file system definitions from the i
As a sibling to the former, the variable ~%local-swap~ does the same with the swap partition. As a sibling to the former, the variable ~%local-swap~ does the same with the swap partition.
#+begin_src scheme :tangle config.scm #+begin_src scheme :tangle config.scm
#;(define %local-swap (define %local-swap
(call-with-input-file "/etc/config.scm" (call-with-input-file "/etc/config.scm"
(lambda (port) (lambda (port)
(read port) (read port)
@ -283,7 +283,7 @@ This is the full operating system specification.
'("/boot/efi")) '("/boot/efi"))
(keyboard-layout keyboard-layout))) (keyboard-layout keyboard-layout)))
(file-systems %local-filesystem) (file-systems %local-filesystem)
#;(swap-devices %local-swap) (swap-devices %local-swap)
(users (users
(cons* (cons*
(user-account (user-account

View file

@ -73,7 +73,7 @@ nil
;; [[file:config.org::*File System][File System:2]] ;; [[file:config.org::*File System][File System:2]]
#;(define %local-swap (define %local-swap
(call-with-input-file "/etc/config.scm" (call-with-input-file "/etc/config.scm"
(lambda (port) (lambda (port)
(read port) (read port)
@ -109,7 +109,7 @@ nil
'("/boot/efi")) '("/boot/efi"))
(keyboard-layout keyboard-layout))) (keyboard-layout keyboard-layout)))
(file-systems %local-filesystem) (file-systems %local-filesystem)
#;(swap-devices %local-swap) (swap-devices %local-swap)
(users (users
(cons* (cons*
(user-account (user-account