From 353e64abc90dec865e24cf1b693497df3c7dd568 Mon Sep 17 00:00:00 2001 From: bdunahu Date: Mon, 5 Jan 2026 01:18:51 -0700 Subject: guix util functions simply check machine hostname --- kolwynia/utils.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'kolwynia/utils.scm') 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 (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