Use stdout from adapter in repl

Adds output from dlv to console
svaante · Dec 30, 2023 · 9ecd6ba · 9ecd6ba
1 parent 7a1a44b
commit 9ecd6ba
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 4 deletions.
diff --git a/dape-tests.el b/dape-tests.el
@@ -101,6 +101,8 @@ Helper for `dape-test--with-files'."
                           (string-match-p "\\*dape-.+\\*"
                                           (buffer-name buffer)))
                         (buffer-list))))
+        (dape-test--should
+         (not (process-list)))
         (advice-remove 'yes-or-no-p 'always-yes)
         ;; clean up files
         (delete-directory temp-dir t)))))

diff --git a/dape.el b/dape.el
@@ -1691,11 +1691,17 @@ Starts a new process as per request of the debug adapter."
                             :buffer buffer
                             :sentinel 'dape--process-sentinel
                             :filter (lambda (_process string)
-                                      (dape--debug 'std-server
-                                                   "Server stdout:\n%s"
-                                                   string))
+                                      (dape--repl-message string))
                             :noquery t
-                            :file-handler t))
+                            :file-handler t
+                            :stderr
+                            (make-pipe-process
+                             :name "Dape adapter stderr"
+                             :filter (lambda (_process string)
+                                       (dape--debug 'std-server
+                                                    "Server stdout:\n%s"
+                                                    string))
+                             :buffer buffer)))
         (dape--debug 'info "Server process started %S"
                      (process-command dape--server-process))
         ;; FIXME Why do I need this?