[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dape a0f5664c44 4/9: Improve runInTerminal request, us
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dape a0f5664c44 4/9: Improve runInTerminal request, use correct cwd |
Date: |
Wed, 20 Dec 2023 12:57:44 -0500 (EST) |
branch: externals/dape
commit a0f5664c44c3cb1b77596fb2d1bc2360710ac5fb
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>
Improve runInTerminal request, use correct cwd
---
dape.el | 31 +++++++++++++++++++------------
1 file changed, 19 insertions(+), 12 deletions(-)
diff --git a/dape.el b/dape.el
index 8d8d72fd79..c380cf924c 100644
--- a/dape.el
+++ b/dape.el
@@ -1353,17 +1353,21 @@ Adapter is identified with PROCESS."
command
arguments))
-(cl-defmethod dape-handle-request (process (_command (eql runInTerminal)) _seq
arguments)
+(cl-defmethod dape-handle-request (process (command (eql runInTerminal)) seq
arguments)
"Handle runInTerminal requests.
Starts a new process to run process to be debugged."
- (let* ((cwd (plist-get process :cwd))
- (default-directory (or (and cwd
- (not (string-blank-p cwd))
- cwd)
- default-directory))
- (buffer (get-buffer-create "*dape-shell*"))
- (display-buffer-alist
- '(((major-mode . shell-mode) . (display-buffer-no-window)))))
+ (let ((default-directory (or (plist-get arguments :cwd)
+ default-directory))
+ (process-environment
+ (or (cl-loop for (key value) on (plist-get arguments :env) by 'cddr
+ collect
+ (format "%s=%s"
+ (substring (format "%s" key) 1)
+ value))
+ process-environment))
+ (buffer (get-buffer-create "*dape-shell*"))
+ (display-buffer-alist
+ '(((major-mode . shell-mode) . (display-buffer-no-window)))))
(async-shell-command (string-join
(cl-map 'list
'identity
@@ -1371,9 +1375,12 @@ Starts a new process to run process to be debugged."
" ")
buffer
buffer)
- (dape--display-buffer buffer))
- ;; For debugpy crashes if we send an response...
- )
+ (dape--display-buffer buffer)
+ ;; For debugpy crashes if we send an response... it expects seq
+ ;; in response which makes no sense
+ ;; (dape--response process (symbol-name command) seq t
+ ;; `(:processID ,pid))
+ ))
(cl-defmethod dape-handle-request (process (command (eql startDebugging)) seq
arguments)
"Handle startDebugging requests.
- [elpa] externals/dape updated (432776f347 -> 9a75efe29c), ELPA Syncer, 2023/12/20
- [elpa] externals/dape 8d7a979a56 2/9: Use python instead of default python3 in debugpy #29, ELPA Syncer, 2023/12/20
- [elpa] externals/dape 1fb479d757 6/9: Fix warnings, ELPA Syncer, 2023/12/20
- [elpa] externals/dape f423809b2f 8/9: Remove useless interactive prefix arg, ELPA Syncer, 2023/12/20
- [elpa] externals/dape 0f9b849b77 7/9: Fix goto breakpoint, ELPA Syncer, 2023/12/20
- [elpa] externals/dape e4b0cdbe46 1/9: Fix faulty minibuffer binding, ELPA Syncer, 2023/12/20
- [elpa] externals/dape a0f5664c44 4/9: Improve runInTerminal request, use correct cwd,
ELPA Syncer <=
- [elpa] externals/dape ae39e2e647 3/9: Refactor startDebugRequest, ELPA Syncer, 2023/12/20
- [elpa] externals/dape 8a5c388ba9 5/9: Use integrated terminal as the python default, ELPA Syncer, 2023/12/20
- [elpa] externals/dape 9a75efe29c 9/9: Improve usefulness of dape-evaluate-expression, ELPA Syncer, 2023/12/20