[elpa] externals/dape 8b8de16473 2/6: Fix dape-buffer-default relativness to project root

[ELPA Syncer]

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

    Fix dape-buffer-default relativness to project root
---
 dape.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/dape.el b/dape.el
index 805528817c..d10fe80e5b 100644
--- a/dape.el
+++ b/dape.el
@@ -263,9 +263,7 @@
      ;; bundle exec rake test
      -c ,(defun dape--rdbg-c ()
            (format "ruby %s"
-                   (thread-first (or (dape-buffer-default) "")
-                                 (file-relative-name (dape-cwd))
-                                 (tramp-file-local-name)))))
+                   (or (dape-buffer-default) ""))))
     (jdtls
      modes (java-mode java-ts-mode)
      ensure (lambda (config)
@@ -309,7 +307,7 @@
          `(:filePath
            ,(defun dape--jdtls-file-path ()
               (or (resolve-main-class :filePath)
-                  (expand-file-name (dape-buffer-default))))
+                  (expand-file-name (dape-buffer-default) (dape-cwd))))
            :mainClass
            ,(defun dape--jdtls-main-class ()
               (or (resolve-main-class :mainClass) ""))
@@ -767,7 +765,8 @@ If PULSE pulse on after opening file."
 
 (defun dape-buffer-default ()
   "Return current buffers file name."
-  (file-name-nondirectory (tramp-file-local-name (buffer-file-name))))
+  (tramp-file-local-name
+   (file-relative-name (buffer-file-name) (dape-command-cwd))))
 
 (defun dape--guess-root (config)
   "Guess adapter path root from CONFIG."