me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Efraim Flashner 2023-02-13 20:56:54 +02:00
parent 0a37921d85
commit 723fc5df3e
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/system/shadow.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2013-2020, 2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013-2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; 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> ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -168,8 +168,16 @@ XTerm*metaSendsEscape: true\n"))
guile guile
(use-modules (gdb)) (use-modules (gdb))
(execute (string-append \"set debug-file-directory \" (execute (string-append \"set debug-file-directory \"
(or (getenv \"GDB_DEBUG_FILE_DIRECTORY\") (string-join
\"~/.guix-profile/lib/debug\"))) (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 end
# Authorize extensions found in the store, such as the # 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") (when (file-exists? ".nanorc")
(mkdir-p ".config/nano") (mkdir-p ".config/nano")
(rename-file ".nanorc" ".config/nano/nanorc")) (rename-file ".nanorc" ".config/nano/nanorc"))
(when (file-exists? ".gdbinit")
(mkdir-p ".config/gdb")
(rename-file ".gdbinit" ".config/gdb/gdbinit"))
#t)))) #t))))
(define (find-duplicates list) (define (find-duplicates list)