From 33a632b790b83a7c03e2692d1029ddf1d9c62911 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 22 Jan 2023 22:27:07 +0100
Subject: Extract common server user accounts

---
 tw/system/lud.scm | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

(limited to 'tw/system/lud.scm')

diff --git a/tw/system/lud.scm b/tw/system/lud.scm
index 775b3f83..fcf86279 100644
--- a/tw/system/lud.scm
+++ b/tw/system/lud.scm
@@ -357,24 +357,12 @@ innodb_io_capacity = 4000
 
   ;; The list of user accounts ('root' is implicit).
   (users
-   (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   ; TODO: merge with "timo"?
+   (cons* (user-account   ; TODO: merge with "timo"?
            (name "timo-phone")
            (comment "Backups of Timo's phone")
            (group "users")
            (home-directory "/var/backups/timo-phone")
            (shell (file-append bash-minimal "/bin/sh")))
-          (user-account
-           (name "robin")
-           (comment "Robin Wilken")
-           (group "users")
-           (home-directory "/home/robin"))
           (user-account
            (name "ira")
            (comment "Ira Wilken")
@@ -386,7 +374,7 @@ innodb_io_capacity = 4000
            (comment "Syncthing service")
            (group "syncthing")
            (home-directory "/var/data/syncthing"))
-          %base-user-accounts))
+          %server-base-user-accounts))
 
   (groups
    (cons* (user-group  ; This is NOT implict from the "syncthing" user.
-- 
cgit v1.2.3