summaryrefslogtreecommitdiff
path: root/gnu/system/shadow.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2023-02-13 20:56:54 +0200
committerEfraim Flashner <efraim@flashner.co.il>2023-03-07 16:35:20 +0200
commit723fc5df3e964fcecb09c7c6fd48f00f97e2e806 (patch)
tree2b3812a865c5130d330c320d0e07ef52b95198af /gnu/system/shadow.scm
parent0a37921d851b94aef6900214098dc5bd62b46e26 (diff)
system: Update skeleton gdbinit.
* gnu/system/shadow.scm (default-skeleton): Update gdbinit to search for more debug packages in guix-home and the system profile. (skeleton-directory): Move .gdbinit to .config/gdb/gdbinit.
Diffstat (limited to 'gnu/system/shadow.scm')
-rw-r--r--gnu/system/shadow.scm17
1 files changed, 14 insertions, 3 deletions
diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index 445a72e2f5..2bd72d3e96 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -2,7 +2,7 @@
;;; Copyright © 2013-2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
-;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2020, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
@@ -168,8 +168,16 @@ XTerm*metaSendsEscape: true\n"))
guile
(use-modules (gdb))
(execute (string-append \"set debug-file-directory \"
- (or (getenv \"GDB_DEBUG_FILE_DIRECTORY\")
- \"~/.guix-profile/lib/debug\")))
+ (string-join
+ (filter file-exists?
+ (append
+ (if (getenv \"GDB_DEBUG_FILE_DIRECTORY\")
+ (list (getenv \"GDB_DEBUG_FILE_DIRECTORY\"))
+ '())
+ (list \"~/.guix-home/profile/lib/debug\"
+ \"~/.guix-profile/lib/debug\"
+ \"/run/current-system/profile/lib/debug\")))
+ \":\")))
end
# Authorize extensions found in the store, such as the
@@ -228,6 +236,9 @@ for a colorful Guile experience.\\n\\n\"))))\n"))
(when (file-exists? ".nanorc")
(mkdir-p ".config/nano")
(rename-file ".nanorc" ".config/nano/nanorc"))
+ (when (file-exists? ".gdbinit")
+ (mkdir-p ".config/gdb")
+ (rename-file ".gdbinit" ".config/gdb/gdbinit"))
#t))))
(define (find-duplicates list)