From 4720741ae83292c6b9da1c7f8012914140b43129 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 23 Mar 2021 09:06:40 -0700 Subject: USER-NAME -> USERNAME Signed-off-by: Sean Whitton --- src/property/user.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/property/user.lisp') diff --git a/src/property/user.lisp b/src/property/user.lisp index 3a5e918..a5598f6 100644 --- a/src/property/user.lisp +++ b/src/property/user.lisp @@ -18,14 +18,14 @@ (in-package :consfigurator.property.user) (named-readtables:in-readtable :consfigurator) -(defprop has-account :posix (user-name) - "Ensure there is an account for USER-NAME." - (:desc #?"Account for ${user-name}") +(defprop has-account :posix (username) + "Ensure there is an account for USERNAME." + (:desc #?"Account for ${username}") (:check - (user-exists user-name)) + (user-exists username)) (:apply (assert-euid-root) - (run "useradd" "-m" user-name))) + (run "useradd" "-m" username))) -(defun user-exists (user-name) - (zerop (run :for-exit "getent" "passwd" user-name))) +(defun user-exists (username) + (zerop (run :for-exit "getent" "passwd" username))) -- cgit v1.2.3