summaryrefslogtreecommitdiff
path: root/gnu/system/shadow.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system/shadow.scm')
-rw-r--r--gnu/system/shadow.scm14
1 files changed, 9 insertions, 5 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index 47f19551b6..cd4e1a9156 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -64,6 +64,7 @@
user-group-system?)
#:export (%default-bashrc
+ %default-bash-profile
default-skeletons
skeleton-directory
%base-groups
@@ -147,11 +148,8 @@ alias ll='ls -l'
alias grep='grep --color=auto'
alias ip='ip -color=auto'\n"))
-(define (default-skeletons)
- "Return the default skeleton files for /etc/skel. These files are copied by
-'useradd' in the home directory of newly created user accounts."
-
- (let ((profile (plain-file "bash_profile" "\
+(define %default-bash-profile
+ (plain-file "bash_profile" "\
# Set up Guix Home profile
if [ -f ~/.profile ]; then . ~/.profile; fi
@@ -167,6 +165,12 @@ eval \"$(guix package --search-paths \\
# Prepend setuid programs.
export PATH=/run/setuid-programs:$PATH
"))
+
+(define (default-skeletons)
+ "Return the default skeleton files for /etc/skel. These files are copied by
+'useradd' in the home directory of newly created user accounts."
+
+ (let ((profile %default-bash-profile)
(bashrc %default-bashrc)
(zprofile (plain-file "zprofile" "\
# Honor system-wide environment variables