summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarek Paśnikowski <marek@marekpasnikowski.pl>2025-09-10 19:14:52 +0200
committerMarek Paśnikowski <marek@marekpasnikowski.pl>2025-09-10 19:14:52 +0200
commit8e8b4d683af49b6f2effa70f084c17e6c2fe0658 (patch)
tree5e5df0cceb32c3499e41f669e67df1ef17d68290
parentc30359e2a1bc4b4f9461db57b08d65397e883b9b (diff)
deployment: add users module with an initial password definition
-rw-r--r--deployment/users.scm8
-rw-r--r--users/id1000.scm17
2 files changed, 18 insertions, 7 deletions
diff --git a/deployment/users.scm b/deployment/users.scm
new file mode 100644
index 0000000..d227201
--- /dev/null
+++ b/deployment/users.scm
@@ -0,0 +1,8 @@
+;;; SPDX-License-Identifier: GPL-3.0-or-later
+;;; SPDX-FileCopyrightText: 2025 Marek Paśnikowski <marek@marekpasnikowski.pl>
+
+(define-module (deployment users))
+
+
+(define-public initial-password
+ (crypt "tymczasowehaslodonatychmiastowejzmiany" "dluganieskomplikowanasoldohasla"))
diff --git a/users/id1000.scm b/users/id1000.scm
index dc2d0e6..e88fd84 100644
--- a/users/id1000.scm
+++ b/users/id1000.scm
@@ -1,6 +1,8 @@
(define-module (users id1000)
#:use-module (guix gexp)
#:use-module (ice-9 match)
+ #:use-module ( (deployment users)
+ #:prefix deployment:users:)
#:use-module ( (gnu home)
#:prefix gnu:home:)
#:use-module ( (gnu home services)
@@ -541,13 +543,14 @@
"marek")
(define-public uid1000-account
- (gnu:system:accounts:user-account
- (name uid1000-name)
- (group "users")
- (supplementary-groups groups)
- (uid 1000)
- (comment "Marek Paśnikowski")
- (home-directory "/home/marek")))
+ (gnu:system:accounts:user-account
+ (name uid1000-name)
+ (password deployment:users:initial-password)
+ (uid 1000)
+ (group "users")
+ (supplementary-groups groups)
+ (comment "Marek Paśnikowski")
+ (home-directory "/home/marek")))
(define-public uid1000-home-environment
(let