From eef3babfdb3fecbca80d8e25bbeb9e43cc5cc097 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Sun, 31 Dec 2023 10:28:08 +0200 Subject: system: Export default gdbinit. * gnu/system/shadow.scm (%default-gdbinit): Extract from default-skeletons, export. (default-skeletons): Use %default-gdbinit. Change-Id: Ia5188f8083a83ad4cdb96e234dbd730b1bfe0072 --- gnu/system/shadow.scm | 26 +++++++++++++++----------- 1 file changed, 15 insertions(+), 11 deletions(-) (limited to 'gnu') 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 -- cgit 1.4.1