branch: externals/dape
commit 056125fcf91e28b765a28063bf7b1e27661683c3
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Add usable default value for dape
Suggested config name as default value to ease resetting config
parameters
---
dape.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/dape.el b/dape.el
index 05148dcb2e..71711c8cd1 100644
--- a/dape.el
+++ b/dape.el
@@ -5216,7 +5216,9 @@ See `dape--config-mode-p' how \"valid\" is defined."
dape-history)
;; Take first suggested config if only one exist
(and (length= suggested-configs 1)
- (car suggested-configs)))))
+ (car suggested-configs))))
+ (default-value (when initial-contents
+ (concat (car (string-split initial-contents)) " "))))
(setq dape--minibuffer-last-buffer (current-buffer)
dape--minibuffer-cache nil)
(minibuffer-with-setup-hook
@@ -5248,6 +5250,8 @@ See `dape--config-mode-p' how \"valid\" is defined."
(set-keymap-parent map minibuffer-local-map)
(define-key map (kbd "C-M-i") #'completion-at-point)
(define-key map "\t" #'completion-at-point)
+ ;; This mapping is shadowed by `next-history-element'
+ ;; future history (default-value)
(define-key map (kbd "C-c C-k")
(lambda ()
(interactive)
@@ -5259,7 +5263,7 @@ See `dape--config-mode-p' how \"valid\" is defined."
(point-max))
(insert (format "%s" key) " "))))
map)
- nil 'dape-history initial-contents)))
+ nil 'dape-history default-value)))
(`(,key ,config)
(dape--config-from-string (substring-no-properties str) t))
(evaled-config (dape--config-eval key config)))
