Fix lsp-dart-run when default-directory is not the project root

Fixes #173

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+* Fix `lsp-dart-run` when default-directory is not the project root. #173
+
 ## 1.22.2
 
 * Fix `(wront-type-argument stringp ("daemon"))` on last version. #171

lsp-dart-test-support.el

@@ -180,10 +180,9 @@ NOTIFICATION is the event notification.")
 (defun lsp-dart-test--run-process (command &optional args)
   "Spawn COMMAND with ARGS on a separated buffer."
   (lsp-dart-test--clean-process-buffer)
-  (let ((process-buffer (get-buffer-create lsp-dart-test--process-buffer-name))
-        (project-rt (lsp-dart-get-project-root)))
+  (let ((process-buffer (get-buffer-create lsp-dart-test--process-buffer-name)))
     (with-current-buffer process-buffer
-      (setq-local default-directory (or project-rt default-directory))
+      (setq-local default-directory (or (lsp-dart-get-project-root) default-directory))
       (unless (derived-mode-p 'lsp-dart-test-process-mode)
         (lsp-dart-test-process-mode))
       (apply #'make-comint-in-buffer lsp-dart-test--process-buffer-name process-buffer (car command) nil (append (cdr command) args)))))

lsp-dart-utils.el

@@ -174,9 +174,10 @@ FLUTTER_ROOT environment variable."
 
 (defun lsp-dart-get-project-root ()
   "Return the dart or flutter project root."
-  (-some-> default-directory
-    (locate-dominating-file "pubspec.yaml")
-    file-truename))
+  (or (lsp-workspace-root)
+      (-some-> default-directory
+        (locate-dominating-file "pubspec.yaml")
+        file-truename)))
 
 (defun lsp-dart-get-project-entrypoint ()
   "Return the dart or flutter project entrypoint."