diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 09:06:40 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-23 09:06:40 -0700 |
| commit | 4720741ae83292c6b9da1c7f8012914140b43129 (patch) | |
| tree | 837bcabf1cf9f34fec45972f43ea47728161d158 /src/property/user.lisp | |
| parent | 0a9b994f75664424cccd0e1c3bfc3fa6f6adee71 (diff) | |
| download | consfigurator-4720741ae83292c6b9da1c7f8012914140b43129.tar.gz | |
USER-NAME -> USERNAME
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/user.lisp')
| -rw-r--r-- | src/property/user.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
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))) |