Skip to content

Commit 468deec

Browse files
committed
Add a menu to cider-log-mode
cider-log-mode binds 11 commands but had no easy-menu, so the only way to discover the framework/appender/consumer/event management commands (behind C-c M-l) was reading the source. Add a 'CIDER Log' menu covering inspect/print, navigation, and the setup chords.
1 parent ad8f522 commit 468deec

2 files changed

Lines changed: 17 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-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.
2526
- `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.
2627
- `cider-repl-mode-menu` now lists `cider-repl-history` ("Browse REPL input history", `C-c M-p`) alongside the other Browse entries.
2728
- `cider-test-menu` now lists `cider-test-rerun-test` ("Rerun the last test", `a`/`C-a` in `cider-test-commands-map`) and `cider-test-toggle-fail-fast` (rendered as a `:style toggle` reflecting `cider-test-fail-fast`).

lisp/cider-log.el

Lines changed: 16 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -833,6 +833,22 @@ The KEYS are used to lookup the values and are joined by SEPARATOR."
833833
(define-key map (kbd "RET") 'cider-log-inspect-event)
834834
(define-key map (kbd "n") 'cider-log-event-next-line)
835835
(define-key map (kbd "p") 'cider-log-event-previous-line)
836+
(easy-menu-define cider-log-mode-menu map
837+
"Menu for CIDER's log mode."
838+
'("CIDER Log"
839+
["Inspect event" cider-log-inspect-event]
840+
["Print event" cider-log-print-event]
841+
"--"
842+
["Next event" cider-log-event-next-line]
843+
["Previous event" cider-log-event-previous-line]
844+
"--"
845+
["Show log" cider-log]
846+
["Log info" cider-log-info]
847+
"--"
848+
["Manage framework" cider-log-framework]
849+
["Manage appender" cider-log-appender]
850+
["Manage consumer" cider-log-consumer]
851+
["Manage events" cider-log-event]))
836852
map)
837853
"The Cider log stream mode key map.")
838854

0 commit comments

Comments
 (0)