branch: elpa/cider
commit 30fed4414795b94b5c6144c8da1ec8f91d45f844
Author: Bozhidar Batsov <[email protected]>
Commit: Bozhidar Batsov <[email protected]>

    Surface cider-doctor in the menus
    
    Add a "Diagnose your setup" entry next to "Report a bug" in the main
    CIDER menu, the REPL menu, and the pre-connection Clojure menu, so the
    diagnostics are discoverable when something isn't working - which is
    usually before a connection exists.
---
 lisp/cider-mode.el | 4 +++-
 lisp/cider-repl.el | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/cider-mode.el b/lisp/cider-mode.el
index 14645e4382..ea7ed4039d 100644
--- a/lisp/cider-mode.el
+++ b/lisp/cider-mode.el
@@ -334,6 +334,7 @@ If invoked with a prefix ARG eval the expression after 
inserting it."
     ["A sip of CIDER" cider-drink-a-sip]
     ["View user manual" cider-view-manual]
     ["View quick reference card" cider-view-refcard]
+    ["Diagnose your setup" cider-doctor]
     ["Report a bug" cider-report-bug]
     ["Version info" cider-version]
     "--"
@@ -733,7 +734,8 @@ loaded yet, this will be shown in Clojure buffers next to 
the Clojure menu."
                     ["Start a Clojure REPL, and a ClojureScript REPL" 
cider-jack-in-clj&cljs
                      :help "Starts an nREPL server, connects a Clojure REPL to 
it, and then a ClojureScript REPL."]
                     "--"
-                    ["View user manual" cider-view-manual]))
+                    ["View user manual" cider-view-manual]
+                    ["Diagnose your setup" cider-doctor]))
                 :visible (not cider-mode))))
 
 ;;;###autoload
diff --git a/lisp/cider-repl.el b/lisp/cider-repl.el
index 499f692164..bf0e3f4165 100644
--- a/lisp/cider-repl.el
+++ b/lisp/cider-repl.el
@@ -2393,6 +2393,7 @@ in an unexpected place."
         ["A sip of CIDER" cider-drink-a-sip]
         ["View user manual" cider-view-manual]
         ["View quick reference card" cider-view-refcard]
+        ["Diagnose your setup" cider-doctor]
         ["Report a bug" cider-report-bug]
         ["Version info" cider-version]))
     map))

Reply via email to