From de3de823fcf95285ea96d3bd7415e3ca393cb2bd Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 26 Jul 2024 16:25:25 +0200
Subject: feat!(system): implement default supplementary groups

---
 users/marekpasnikowski.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'users')

diff --git a/users/marekpasnikowski.scm b/users/marekpasnikowski.scm
index 5974dd6..7c2d4ac 100644
--- a/users/marekpasnikowski.scm
+++ b/users/marekpasnikowski.scm
@@ -37,11 +37,13 @@
     (home-environment (inherit %home-environment)
 		      (services marekpasnikowski-services))))
 
+;; (string) ->
 ;; record user-account
-(define-public marekpasnikowski-account
+(define-public (marekpasnikowski-account supplementary-groups*)
   (let ((fish (file-append fish "/bin/fish")))
     (user-account (name marekpasnikowski-username)
 		  (group "users")
+		  (supplementary-groups supplementary-groups*)
 		  (shell fish))))
 
 ;; record home-environment
-- 
cgit v1.2.3