diff options
| author | Efraim Flashner <efraim@flashner.co.il> | 2023-12-31 10:28:08 +0200 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2024-01-17 11:11:09 +0200 |
| commit | eef3babfdb3fecbca80d8e25bbeb9e43cc5cc097 (patch) | |
| tree | b8703bf8f77423349f05f56ed06d4272ff215ff9 /gnu | |
| parent | 72928388746e05fa698b62fd7a6c78965f374aef (diff) | |
system: Export default gdbinit.
* gnu/system/shadow.scm (%default-gdbinit): Extract from
default-skeletons, export.
(default-skeletons): Use %default-gdbinit.
Change-Id: Ia5188f8083a83ad4cdb96e234dbd730b1bfe0072
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/system/shadow.scm | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm index be7c4370a2..e1dd31262a 100644 --- a/gnu/system/shadow.scm +++ b/gnu/system/shadow.scm @@ -67,6 +67,7 @@ %default-bash-profile %default-zprofile %default-xdefaults + %default-gdbinit default-skeletons skeleton-directory %base-groups @@ -188,16 +189,9 @@ export PATH=/run/setuid-programs:$PATH 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." - - (let ((profile %default-bash-profile) - (bashrc %default-bashrc) - (zprofile %default-zprofile) - (xdefaults %default-xdefaults) - (gdbinit (plain-file "gdbinit" "\ -# Tell GDB where to look for separate debugging files. +(define %default-gdbinit + (plain-file "gdbinit" + "# Tell GDB where to look for separate debugging files. guile (use-modules (gdb)) (execute (string-append \"set debug-file-directory \" @@ -215,7 +209,17 @@ end # Authorize extensions found in the store, such as the # pretty-printers of libstdc++. -set auto-load safe-path /gnu/store/*/lib\n"))) +set auto-load safe-path /gnu/store/*/lib\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 %default-bash-profile) + (bashrc %default-bashrc) + (zprofile %default-zprofile) + (xdefaults %default-xdefaults) + (gdbinit %default-gdbinit)) `((".bash_profile" ,profile) (".bashrc" ,bashrc) ;; Zsh sources ~/.zprofile before ~/.zshrc, and it sources ~/.zlogin |