branch: externals/dape
commit 88281632fc9a4756cbc8382017843eb884a1fcf0
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Improve formatting of setBreakpoints
---
dape.el | 53 +++++++++++++++++++++++++++--------------------------
1 file changed, 27 insertions(+), 26 deletions(-)
diff --git a/dape.el b/dape.el
index aaf4d04157..d542a90da7 100644
--- a/dape.el
+++ b/dape.el
@@ -1452,32 +1452,33 @@ See `dape-request' for expected CB signature."
:path (dape--path conn (buffer-file-name buffer)
'remote)))))))
(dape--with-request-bind
((&key breakpoints &allow-other-keys) error)
- (dape-request conn
- "setBreakpoints"
- (list
- :source source
- :breakpoints
- (cl-map 'vector
- (lambda (overlay line)
- (let (plist it)
- (setq plist (list :line line))
- (cond
- ((setq it (overlay-get overlay :log))
- (if (dape--capable-p conn
:supportsLogPoints)
- (setq plist (plist-put plist
:logMessage it))
- (dape--repl-message "* Adapter does not
support log breakpoints *")))
- ((setq it (overlay-get overlay
:expression))
- (if (dape--capable-p conn
:supportsConditionalBreakpoints)
- (setq plist (plist-put plist
:condition it))
- (dape--repl-message "* Adapter does not
support expression breakpoints *")))
- ((setq it (overlay-get overlay :hits))
- (if (dape--capable-p conn
:supportsHitConditionalBreakpoints)
- (setq plist (plist-put plist
:hitCondition it))
- (dape--repl-message "* Adapter does not
support hits breakpoints *"))))
- plist))
- overlays
- lines)
- :lines (apply 'vector lines)))
+ (dape-request
+ conn
+ "setBreakpoints"
+ (list
+ :source source
+ :breakpoints
+ (cl-map 'vector
+ (lambda (overlay line)
+ (let (plist it)
+ (setq plist (list :line line))
+ (cond
+ ((setq it (overlay-get overlay :log))
+ (if (dape--capable-p conn :supportsLogPoints)
+ (setq plist (plist-put plist :logMessage it))
+ (dape--repl-message "* Adapter does not support log
breakpoints *")))
+ ((setq it (overlay-get overlay :expression))
+ (if (dape--capable-p conn
:supportsConditionalBreakpoints)
+ (setq plist (plist-put plist :condition it))
+ (dape--repl-message "* Adapter does not support
expression breakpoints *")))
+ ((setq it (overlay-get overlay :hits))
+ (if (dape--capable-p conn
:supportsHitConditionalBreakpoints)
+ (setq plist (plist-put plist :hitCondition it))
+ (dape--repl-message "* Adapter does not support hits
breakpoints *"))))
+ plist))
+ overlays
+ lines)
+ :lines (apply 'vector lines)))
(cl-loop for breakpoint across breakpoints
for overlay in overlays
do (dape--breakpoint-update conn overlay breakpoint))
