[elpa] externals/dape cd903798dc 3/3: Use relative path to command-cwd for cppdebug

[ELPA Syncer]

branch: externals/dape
commit cd903798dc11480d8bafc0360dad43efe4d610fe
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Use relative path to command-cwd for cppdebug
    
    Fixes #86
---
 dape.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/dape.el b/dape.el
index 5f67acfc30..c181d94a90 100644
--- a/dape.el
+++ b/dape.el
@@ -138,6 +138,14 @@
                                 "debugAdapters"
                                 "bin"
                                 "OpenDebugAD7")
+     fn (lambda (config)
+          ;; For MI=GDB the :program path need to be absolute
+          (let ((program (plist-get config :program)))
+            (if (file-name-absolute-p program)
+                config
+              (thread-last (tramp-file-local-name (dape--guess-root config))
+                           (expand-file-name program)
+                           (plist-put config :program)))))
      :type "cppdbg"
      :request "launch"
      :cwd "."