me
/
guix
Archived
1
0
Fork 0
Code

system: Export default xdefaults. 

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

Change-Id: I44018516ec3687a68d32ca5c86c41bc29507a273
master
Efraim Flashner 2023-12-31 10:26:44 +02:00
parent 6a9e4b0639
commit 7292838874
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/system/shadow.scm
View File

@ -66,6 +66,7 @@
#:export (%default-bashrc #:export (%default-bashrc
%default-bash-profile %default-bash-profile
%default-zprofile %default-zprofile
%default-xdefaults
default-skeletons default-skeletons
skeleton-directory skeleton-directory
%base-groups %base-groups
@ -182,6 +183,11 @@ eval \"$(guix package --search-paths \\
export PATH=/run/setuid-programs:$PATH export PATH=/run/setuid-programs:$PATH
")) "))
(define %default-xdefaults
(plain-file "Xdefaults" "\
XTerm*utf8: always
XTerm*metaSendsEscape: true\n"))
(define (default-skeletons) (define (default-skeletons)
"Return the default skeleton files for /etc/skel. These files are copied by "Return the default skeleton files for /etc/skel. These files are copied by
'useradd' in the home directory of newly created user accounts." 'useradd' in the home directory of newly created user accounts."
@ -189,9 +195,7 @@ export PATH=/run/setuid-programs:$PATH
(let ((profile %default-bash-profile) (let ((profile %default-bash-profile)
(bashrc %default-bashrc) (bashrc %default-bashrc)
(zprofile %default-zprofile) (zprofile %default-zprofile)
(xdefaults (plain-file "Xdefaults" "\ (xdefaults %default-xdefaults)
XTerm*utf8: always
XTerm*metaSendsEscape: true\n"))
(gdbinit (plain-file "gdbinit" "\ (gdbinit (plain-file "gdbinit" "\
# Tell GDB where to look for separate debugging files. # Tell GDB where to look for separate debugging files.
guile guile