summaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2023-12-31 10:25:17 +0200
committerEfraim Flashner <efraim@flashner.co.il>2024-01-17 11:11:09 +0200
commit6a9e4b063917240c8c4bf412db47f7e07df39732 (patch)
treeef182c46c7d61a803d0f6c40c2203714261dd1fe /gnu/system
parentcdcb2e78d26297215ae9382b57ca3832d16b4824 (diff)
system: Export default zprofile.
* gnu/system/shadow.scm (%default-zprofile): Extract from default-skeletons, export. (default-skeletons): Use %default-zprofile. Change-Id: I6c6e158bca2e462a2eae709fbc2c25a2c7f3f8b4
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/shadow.scm18
1 files changed, 11 insertions, 7 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index cd4e1a9156..9b1678c54d 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -65,6 +65,7 @@
#:export (%default-bashrc
%default-bash-profile
+ %default-zprofile
default-skeletons
skeleton-directory
%base-groups
@@ -166,13 +167,8 @@ eval \"$(guix package --search-paths \\
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" "\
+(define %default-zprofile
+ (plain-file "zprofile" "\
# Honor system-wide environment variables
source /etc/profile
@@ -185,6 +181,14 @@ 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 %default-zprofile)
(xdefaults (plain-file "Xdefaults" "\
XTerm*utf8: always
XTerm*metaSendsEscape: true\n"))