From 353e64abc90dec865e24cf1b693497df3c7dd568 Mon Sep 17 00:00:00 2001
From: bdunahu <bdunahu@operationnull.com>
Date: Mon, 5 Jan 2026 01:18:51 -0700
Subject: guix util functions simply check machine hostname

---
 kolwynia/os/ymir/users.scm | 12 ++++++------
 kolwynia/utils.scm         | 12 +++++++-----
 2 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/kolwynia/os/ymir/users.scm b/kolwynia/os/ymir/users.scm
index a577998..c2fbd70 100644
--- a/kolwynia/os/ymir/users.scm
+++ b/kolwynia/os/ymir/users.scm
@@ -18,11 +18,11 @@
     (group "users")
     (home-directory (string-append "/home/" bdunahu-str))
     (supplementary-groups
-     (cons* "audio"
-            "dialout"
-            "netdev"
-            "video"
-            "wheel"
-            (garmr?* "kvm")))))
+     (list "audio"
+           "dialout"
+           "netdev"
+           "video"
+           "wheel"
+           "kvm"))))
 
 ;;; users.scm ends here
diff --git a/kolwynia/utils.scm b/kolwynia/utils.scm
index 990cef1..6e58181 100644
--- a/kolwynia/utils.scm
+++ b/kolwynia/utils.scm
@@ -1,14 +1,16 @@
 ;;; Copyright © 2025 bdunahu <bdunahu@operationnull.com>
 (define-module (kolwynia utils)
-  #:export (garmr?*))
+  #:export (garmr?
+            hel?))
 
 ;;; Commentary:
 ;;; provides various utility functions
 ;;; Code:
 
-(define (garmr?* . thing)
-  (if (equal? (gethostname) "garmr")
-      thing
-      '()))
+(define garmr?
+  (equal? (gethostname) "garmr"))
+
+(define hel?
+  (equal? (gethostname) "hel"))
 
 ;;; utils.scm ends here
-- 
cgit v1.2.3