[elpa] externals/dape 310d97174e 3/6: Add binding to read config minibuffer to clear "flags"

[ELPA Syncer]

branch: externals/dape
commit 310d97174efeb3ee0aa4fafa52c242c2cfbe6fa2
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Add binding to read config minibuffer to clear "flags"
---
 dape.el | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/dape.el b/dape.el
index bf9d223c52..75129325a5 100644
--- a/dape.el
+++ b/dape.el
@@ -4034,14 +4034,23 @@ See `dape--config-mode-p' how \"valid\" is defined."
           (dape--minibuffer-hint))
       (pcase-let* ((str
                     (let ((history-add-new-input nil))
-                      (read-from-minibuffer "Run adapter: "
-                                            initial-contents
-                                            (let ((map (make-sparse-keymap)))
-                                              (set-keymap-parent map 
minibuffer-local-map)
-                                              (define-key map (kbd "C-M-i") 
#'completion-at-point)
-                                              (define-key map "\t" 
#'completion-at-point)
-                                              map)
-                                            nil 'dape-history 
initial-contents)))
+                      (read-from-minibuffer
+                       "Run adapter: "
+                       initial-contents
+                       (let ((map (make-sparse-keymap)))
+                         (set-keymap-parent map minibuffer-local-map)
+                         (define-key map (kbd "C-M-i") #'completion-at-point)
+                         (define-key map "\t" #'completion-at-point)
+                         (define-key map (kbd "C-c C-k")
+                                     (lambda ()
+                                       (interactive)
+                                       (pcase-let* ((str (buffer-substring 
(minibuffer-prompt-end)
+                                                                           
(point-max)))
+                                                    (`(,key) 
(dape--config-from-string str t)))
+                                         (delete-region 
(minibuffer-prompt-end) (point-max))
+                                         (insert (format "%s" key) " "))))
+                         map)
+                       nil 'dape-history initial-contents)))
                    (`(,key ,config)
                     (dape--config-from-string (substring-no-properties str) t))
                    (evaled-config (dape--config-eval key config)))