Add a command to delete history item at point

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 ## master (unreleased)
 
+### New features
+
+- CIDER [History](https://docs.cider.mx/cider/repl/history.html): Add a command to delete history item at point.
+
 ### Changes
 
 - CIDER [History](https://docs.cider.mx/cider/repl/history.html): store history on a per-project basis. `cider-repl-history-file` is not longer customizable.

cider-repl-history.el

@@ -576,6 +576,16 @@ text from the *cider-repl-history* buffer."
  (with-current-buffer cider-repl-history-repl-buffer
  (undo)))
 
+(defun cider-repl-history-delete ()
+ "Delete history item (at point)."
+ (interactive)
+ (let* ((orig (point))
+ (str (cider-repl-history-current-string orig)))
+ (with-current-buffer cider-repl-history-repl-buffer
+ (delete str cider-repl-input-history))
+ (cider-repl-history-update)
+ (goto-char orig)))
+
 (defun cider-repl-history-setup (repl-win repl-buf history-buf &optional regexp)
  "Setup.
 REPL-WIN and REPL-BUF are where to insert commands;
@@ -694,6 +704,7 @@ HISTORY-BUF is the history, and optional arg REGEXP is a filter."
  (define-key map (kbd "g") #'cider-repl-history-update)
  (define-key map (kbd "q") #'cider-repl-history-quit)
  (define-key map (kbd "U") #'cider-repl-history-undo-other-window)
+ (define-key map (kbd "D") #'cider-repl-history-delete)
  (define-key map (kbd "?") #'describe-mode)
  (define-key map (kbd "h") #'describe-mode)
  map))

doc/modules/ROOT/pages/repl/history.adoc

@@ -175,4 +175,7 @@ There are a number of important keybindings in history buffers.
 
 | kbd:[U]
 | Undo in the REPL buffer.
+
+| kbd:[D]
+| Delete history item (at point).
 |===