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 | |
| parent | a1c681803b3f76483e466af78a6c47b73e429e5c (diff) | |
guix util functions simply check machine hostname
Diffstat (limited to 'kolwynia')
| -rw-r--r-- | kolwynia/os/ymir/users.scm | 12 | ||||
| -rw-r--r-- | 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 |