.
This commit is contained in:
parent
07e6fc2b29
commit
b060aba9b0
1 changed files with 8 additions and 5 deletions
13
config.scm
13
config.scm
|
@ -27,6 +27,13 @@
|
||||||
wm
|
wm
|
||||||
xorg)
|
xorg)
|
||||||
|
|
||||||
|
(define %local-filesystem
|
||||||
|
(call-with-input-file "/etc/config.scm"
|
||||||
|
(lambda (port)
|
||||||
|
(read port)
|
||||||
|
(read port)
|
||||||
|
(cdr (last-pair (read port))))))
|
||||||
|
|
||||||
(operating-system
|
(operating-system
|
||||||
(host-name "ziltis-machine")
|
(host-name "ziltis-machine")
|
||||||
(timezone "Europe/Berlin")
|
(timezone "Europe/Berlin")
|
||||||
|
@ -40,11 +47,7 @@
|
||||||
(targets
|
(targets
|
||||||
'("/boot/efi"))
|
'("/boot/efi"))
|
||||||
(keyboard-layout keyboard-layout)))
|
(keyboard-layout keyboard-layout)))
|
||||||
#~(file-systems #$(call-with-input-file "/etc/config.scm"
|
(file-systems %local-filesystem)
|
||||||
(lambda (port)
|
|
||||||
(read port)
|
|
||||||
(read port)
|
|
||||||
(cdr (last-pair (read port))))))
|
|
||||||
#;(file-systems
|
#;(file-systems
|
||||||
(cons*
|
(cons*
|
||||||
(file-system
|
(file-system
|
||||||
|
|
Loading…
Reference in a new issue