diff options
| author | bdunahu <bdunahu@operationnull.com> | 2026-01-05 01:18:51 -0700 |
|---|---|---|
| committer | bdunahu <bdunahu@operationnull.com> | 2026-01-05 01:18:51 -0700 |
| commit | 353e64abc90dec865e24cf1b693497df3c7dd568 (patch) | |
| tree | 50e11e2e73988daf37f09fd8314a73d5d4a4850c /kolwynia/utils.scm | |
| parent | a1c681803b3f76483e466af78a6c47b73e429e5c (diff) | |
guix util functions simply check machine hostname
Diffstat (limited to 'kolwynia/utils.scm')
| -rw-r--r-- | kolwynia/utils.scm | 12 |
1 files changed, 7 insertions, 5 deletions
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 |