Skip to content

Commit 16aae36

Browse files
committed
Add a menu to cider-repl-history-mode
The mode bound 13 commands but had no menu, so search/filter and delete/undo operations were undiscoverable without reading the source. Add a 'REPL History' menu grouped into insert, navigate, search, modify, and quit sections.
1 parent 468deec commit 16aae36

2 files changed

Lines changed: 19 additions & 0 deletions

File tree

CHANGELOG.md

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,7 @@
2222

2323
### Bugs fixed
2424

25+
- `cider-repl-history-mode` now has an `easy-menu` ("REPL History") covering insert, navigation, search/filter, refresh/delete/undo, and quit.
2526
- `cider-log-mode` now has an `easy-menu` ("CIDER Log") covering event inspect/print, navigation, and the framework/appender/consumer/event management commands previously only reachable via the `C-c M-l` prefix.
2627
- `cider-macroexpansion-mode`, `cider-repl-history-mode`, and `cider--debug-mode` docstrings now include `\\{...-map}`, so `C-h m` (`describe-mode`) lists the active key bindings instead of just a one-line description.
2728
- `cider-repl-mode-menu` now lists `cider-repl-history` ("Browse REPL input history", `C-c M-p`) alongside the other Browse entries.

lisp/cider-repl-history.el

Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -708,6 +708,24 @@ HISTORY-BUF is the history, and optional arg REGEXP is a filter."
708708
(define-key map (kbd "D") #'cider-repl-history-delete-entry-at-point)
709709
(define-key map (kbd "?") #'describe-mode)
710710
(define-key map (kbd "h") #'describe-mode)
711+
(easy-menu-define cider-repl-history-mode-menu map
712+
"Menu for CIDER's REPL history browser."
713+
'("REPL History"
714+
["Insert entry and quit" cider-repl-history-insert-and-quit]
715+
"--"
716+
["Next entry" cider-repl-history-forward]
717+
["Previous entry" cider-repl-history-previous]
718+
"--"
719+
["Filter by regexp" cider-repl-history-occur]
720+
["Search forward" cider-repl-history-search-forward]
721+
["Search backward" cider-repl-history-search-backward]
722+
"--"
723+
["Refresh from REPL" cider-repl-history-update]
724+
["Delete entry at point" cider-repl-history-delete-entry-at-point]
725+
["Undo in other window" cider-repl-history-undo-other-window]
726+
"--"
727+
["Help" describe-mode]
728+
["Quit" cider-repl-history-quit]))
711729
map))
712730

713731
(put 'cider-repl-history-mode 'mode-class 'special)

0 commit comments

Comments
 (0)