diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2023-12-31 10:26:44 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2024-01-17 11:11:09 +0200 |
| commit | 72928388746e05fa698b62fd7a6c78965f374aef (patch) | |
| tree | 51208a560183678a2117328313ad88265f8e6609 | |
| parent | 6a9e4b063917240c8c4bf412db47f7e07df39732 (diff) | |
system: Export default xdefaults.
* gnu/system/shadow.scm (%default-xdefaults): Extract from
default-skeletons, export.
(default-skeletons): Use %default-xdefaults.
Change-Id: I44018516ec3687a68d32ca5c86c41bc29507a273
| -rw-r--r-- | gnu/system/shadow.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm index 9b1678c54d..be7c4370a2 100644 --- a/gnu/system/shadow.scm +++ b/gnu/system/shadow.scm @@ -66,6 +66,7 @@ #:export (%default-bashrc %default-bash-profile %default-zprofile + %default-xdefaults default-skeletons skeleton-directory %base-groups @@ -182,6 +183,11 @@ eval \"$(guix package --search-paths \\ export PATH=/run/setuid-programs:$PATH ")) +(define %default-xdefaults + (plain-file "Xdefaults" "\ +XTerm*utf8: always +XTerm*metaSendsEscape: true\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." @@ -189,9 +195,7 @@ export PATH=/run/setuid-programs:$PATH (let ((profile %default-bash-profile) (bashrc %default-bashrc) (zprofile %default-zprofile) - (xdefaults (plain-file "Xdefaults" "\ -XTerm*utf8: always -XTerm*metaSendsEscape: true\n")) + (xdefaults %default-xdefaults) (gdbinit (plain-file "gdbinit" "\ # Tell GDB where to look for separate debugging files. guile |