jetomit/monguix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

hosts/kirsty: use current-module to get config directory

Browse source
This commit is contained in:
Timotej Lazar 2022-08-12 12:16:47 +02:00
parent 38bec7d853
commit 6c2a4167f2
2 changed files with 4 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

10
hosts/kirsty/system.scm
View file

@ -15,14 +15,12 @@
#:use-module (gnu system setuid) #:use-module (gnu system setuid)
#:use-module (nongnu packages linux) #:use-module (nongnu packages linux)
#:use-module (nongnu system linux-initrd) #:use-module (nongnu system linux-initrd)
#:use-module (packages linux) #:use-module (packages linux))
#:use-module (util))
(define host "kirsty") (define host-dir (dirname (module-filename (current-module))))
(define config (host-dir host))
(operating-system (operating-system
(host-name host) (host-name "kirsty")
(timezone "Europe/Ljubljana") (timezone "Europe/Ljubljana")
(locale-definitions (locale-definitions
@ -31,7 +29,7 @@
%default-locale-definitions)) %default-locale-definitions))
(locale "en_US.utf8") (locale "en_US.utf8")
(kernel (linux/config linux (string-append config "/kernel.config"))) (kernel (linux/config linux (string-append host-dir "/kernel.config")))
(kernel-arguments '("mitigations=auto")) (kernel-arguments '("mitigations=auto"))
(firmware (firmware

6
util.scm
View file

@ -1,6 +0,0 @@
(define-module (util))
(define-public config-dir (or (dirname (current-filename)) (car %load-path)))
(define-public (host-dir host)
(string-append config-dir "/hosts/" host))