TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

system: Export default bash-profile.

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

Change-Id: I45641b1091daee3495a5f92bdc1a63050e0cc59e
This commit is contained in:
Efraim Flashner 2023-12-31 10:16:02 +02:00
parent 2f3d6ff968
commit cdcb2e78d2
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/system/shadow.scm
View file

@ -64,6 +64,7 @@ (define-module (gnu system shadow)
user-group-system?)
#:export (%default-bashrc
%default-bash-profile
default-skeletons
skeleton-directory
%base-groups
@ -147,11 +148,8 @@ (define %default-bashrc
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 @@ (define (default-skeletons)
# 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