mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: Export default zprofile.

Browse source 
* gnu/system/shadow.scm (%default-zprofile): Extract from
default-skeletons, export.
(default-skeletons): Use %default-zprofile.

Change-Id: I6c6e158bca2e462a2eae709fbc2c25a2c7f3f8b4
This commit is contained in:
Efraim Flashner 2023-12-31 10:25:17 +02:00
parent cdcb2e78d2
commit 6a9e4b0639
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/system/shadow.scm
View file

@ -65,6 +65,7 @@ (define-module (gnu system shadow)
#:export (%default-bashrc #:export (%default-bashrc
%default-bash-profile %default-bash-profile
%default-zprofile
default-skeletons default-skeletons
skeleton-directory skeleton-directory
%base-groups %base-groups
@ -166,13 +167,8 @@ (define %default-bash-profile
export PATH=/run/setuid-programs:$PATH export PATH=/run/setuid-programs:$PATH
")) "))
(define (default-skeletons) (define %default-zprofile
"Return the default skeleton files for /etc/skel. These files are copied by (plain-file "zprofile" "\
'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 # Honor system-wide environment variables
source /etc/profile source /etc/profile
@ -185,6 +181,14 @@ (define (default-skeletons)
# Prepend setuid programs. # Prepend setuid programs.
export PATH=/run/setuid-programs:$PATH 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" "\ (xdefaults (plain-file "Xdefaults" "\
XTerm*utf8: always XTerm*utf8: always
XTerm*metaSendsEscape: true\n")) XTerm*metaSendsEscape: true\n"))