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

hosts/kirsty/system.scm

@@ -15,14 +15,12 @@
   #:use-module (gnu system setuid)
   #:use-module (nongnu packages linux)
   #:use-module (nongnu system linux-initrd)
-  #:use-module (packages linux)
-  #:use-module (util))
+  #:use-module (packages linux))
 
-(define host "kirsty")
-(define config (host-dir host))
+(define host-dir (dirname (module-filename (current-module))))
 
 (operating-system
-  (host-name host)
+  (host-name "kirsty")
   (timezone "Europe/Ljubljana")
 
   (locale-definitions
@@ -31,7 +29,7 @@
     %default-locale-definitions))
   (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"))
 
   (firmware

util.scm

@@ -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))