From 8e8b4d683af49b6f2effa70f084c17e6c2fe0658 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Wed, 10 Sep 2025 19:14:52 +0200 Subject: deployment: add users module with an initial password definition --- deployment/users.scm | 8 ++++++++ users/id1000.scm | 17 ++++++++++------- 2 files changed, 18 insertions(+), 7 deletions(-) create mode 100644 deployment/users.scm 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 + +(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 -- cgit v1.2.3