Restore inspirational messages on connect

Those were lost long-ago when the connection logic was reworked.

Author: bbatsov

CHANGELOG.md

@@ -2,12 +2,18 @@
 
 ## master (unreleased)
 
+## New features
+
+* Add new interactive command `cider-inspire-me`. It does what you'd expect.
+* Add new defcustom `cider-inspire-on-connect`, which controls whether to display an inspiration message on connect.
+
 ### Changes
 
 * [#3177](https://github.com/clojure-emacs/cider/pull/3177) Apply ANSI colorization to test assertion output.
 * Use clojure-mode [5.14.0](https://github.com/clojure-emacs/clojure-mode/blob/v5.14.0/CHANGELOG.md#5140-2022-03-07).
 * [#3170](https://github.com/clojure-emacs/cider/issues/3170) Skip ensure repl available on xref functions.
 * [#3173](https://github.com/clojure-emacs/cider/issues/3173) Locally remove `cider-complete-at-point` from `completion-at-point-functions` instead of killing it as a local variable.
+* Restore the long-lost (but critical) inspirational message on connect.
 
 ## 1.3.0 (2021-03-07)
 

cider-util.el

@@ -703,6 +703,11 @@ through a stack of help buffers.  Variables `help-back-label' and
              cider-words-of-inspiration)
         t))
 
+(defun cider-inspire-me ()
+  "Display a random inspiration message."
+  (interactive)
+  (message (cider-random-words-of-inspiration)))
+
 (defvar cider-tips
   '("Press <\\[cider-connect]> to connect to a running nREPL server."
     "Press <\\[cider-quit]> to quit the current connection."

cider.el

@@ -1637,6 +1637,20 @@ assume the command is available."
                            (executable-find (concat command ".bat")))))
     (shell-quote-argument command)))
 
+(defcustom cider-inspire-on-connect t
+  "The version of cider-nrepl injected on jack-in.
+Should be newer than the required version for optimal results."
+  :type 'boolean
+  :package-version '(cider . "1.4.0")
+  :safe #'booleanp)
+
+(defun cider--maybe-inspire-on-connect ()
+  "Display an inspiration connection message."
+  (when cider-inspire-on-connect
+    (message "Connected! %s" (cider-random-words-of-inspiration))))
+
+(add-hook 'cider-connected-hook #'cider--maybe-inspire-on-connect)
+
 ;;;###autoload
 (with-eval-after-load 'clojure-mode
   (define-key clojure-mode-map (kbd "C-c M-x") #'cider)