emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Handle empty input in +debugger-completing-read

Browse source
This commit is contained in:
Henrik Laxhuber 2021-02-28 23:18:19 +01:00
parent 8c33866b21
commit cf3d9eb6e0
No known key found for this signature in database
GPG key ID: 6862099F57DBBFB1
1 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

33
modules/tools/debugger/autoload/debugger.el
View file

@ -50,21 +50,24 @@ infromation."
(+debugger-list-for-dap)
(+debugger-list-for-realgud)))
(result (--map (cons (cadr it) it) configurations))
(completion (completing-read "Start debugger: " (-map 'car result) nil t ))
(configuration (cdr (assoc completion result))))
(if (eq (car configuration) 'dap)
(let* ((debug-args (-> (cdr configuration)
cl-rest
copy-tree
dap-variables-expand-in-launch-configuration))
(launch-args (or (-some-> (plist-get debug-args :type)
(gethash dap--debug-providers)
(funcall debug-args))
(user-error "Have you loaded the `%s' specific dap package?"
(or (plist-get debug-args :type)
(user-error "%s does not specify :type" debug-args))))))
(cons 'dap launch-args))
(cons 'realgud (intern (cadr configuration))))))
(completion (completing-read "Start debugger: " (-map 'car result) nil t)))
(if (eq completion "")
(user-error "No debugging configuration specified.")
(let ((configuration (cdr (assoc completion result))))
(if (eq (car configuration) 'dap)
;; get dap debugging arguments
(let* ((debug-args (-> (cdr configuration)
cl-rest
copy-tree
dap-variables-expand-in-launch-configuration))
(launch-args (or (-some-> (plist-get debug-args :type)
(gethash dap--debug-providers)
(funcall debug-args))
(user-error "Have you loaded the `%s' specific dap package?"
(or (plist-get debug-args :type)
(user-error "%s does not specify :type" debug-args))))))
(cons 'dap launch-args))
(cons 'realgud (intern (cadr configuration))))))))
;;
;;; Interactive commands