Extract common server user accounts

1 files changed, 18 insertions, 0 deletions

diff --git a/tw/system/common.scm b/tw/system/common.scm
index 37dfe2dd..fb8c50f9 100644
--- a/tw/system/common.scm
+++ b/tw/system/common.scm
@@ -6,6 +6,7 @@
   #:use-module (gnu)
   #:use-module (gnu services)
   #:use-module (gnu services vpn)
+  #:use-module (gnu system)
   #:use-module (gnu system keyboard)
   #:use-module (guix gexp))
 
@@ -26,6 +27,23 @@
                     "keypad:oss"
                     "kpdl:kposs")))
 
+(define-public %server-base-user-accounts
+  (cons* (user-account
+          (name "timo")
+          (comment "Timo Wilken")
+          (group "users")
+          (home-directory "/home/timo")
+          (supplementary-groups '("wheel" "netdev" "audio" "video"))
+          (shell (file-append zsh "/bin/zsh")))
+         (user-account   ; needs a matching sudoers entry
+          (system? #t)
+          (name "guixdeploy")
+          (comment "Guix-deploy access")
+          (group "root")
+          (home-directory "/var/empty")
+          (create-home-directory? #f))
+         %base-user-accounts))
+
 (define %wireguard-peers
   `((lap . ,(wireguard-peer
              (name "lap.wg")