File tree 3 files changed +9
-16
lines changed
3 files changed +9
-16
lines changed Original file line number Diff line number Diff line change 5
5
## New features
6
6
7
7
* Add new interactive command ` cider-inspire-me ` . It does what you'd expect.
8
- * Add new defcustom ` cider-inspire-on-connect ` , which controls whether to display an inspiration message on connect.
9
8
10
9
### Changes
11
10
Original file line number Diff line number Diff line change @@ -45,14 +45,6 @@ See `cider-format-connection-params' for available format characters."
45
45
:group 'cider
46
46
:package-version '(cider . " 0.18.0" ))
47
47
48
- (defcustom cider-connection-message-fn #'cider-random-words-of-inspiration
49
- " The function to use to generate the message displayed on connect.
50
- When set to nil no additional message will be displayed. A good
51
- alternative to the default is `cider-random-tip' ."
52
- :type 'function
53
- :group 'cider
54
- :package-version '(cider . " 0.11.0" ))
55
-
56
48
(defcustom cider-redirect-server-output-to-repl t
57
49
" Controls whether nREPL server output would be redirected to the REPL.
58
50
When non-nil the output would end up in both the nrepl-server buffer (when
Original file line number Diff line number Diff line change @@ -1637,16 +1637,18 @@ assume the command is available."
1637
1637
(executable-find (concat command " .bat" )))))
1638
1638
(shell-quote-argument command)))
1639
1639
1640
- (defcustom cider-inspire-on-connect t
1641
- " Controls whether to display an inspirational message on connect."
1642
- :type 'boolean
1643
- :package-version '(cider . " 1.4.0" )
1644
- :safe #'booleanp )
1640
+ (defcustom cider-connection-message-fn #'cider-random-words-of-inspiration
1641
+ " The function to use to generate the message displayed on connect.
1642
+ When set to nil no additional message will be displayed. A good
1643
+ alternative to the default is `cider-random-tip' ."
1644
+ :type 'function
1645
+ :group 'cider
1646
+ :package-version '(cider . " 0.11.0" ))
1645
1647
1646
1648
(defun cider--maybe-inspire-on-connect ()
1647
1649
" Display an inspiration connection message."
1648
- (when cider-inspire-on-connect
1649
- (message " Connected! %s " (cider-random-words-of-inspiration ))))
1650
+ (when cider-connection-message-fn
1651
+ (message " Connected! %s " (funcall cider-connection-message-fn ))))
1650
1652
1651
1653
(add-hook 'cider-connected-hook #'cider--maybe-inspire-on-connect )
1652
1654
You can’t perform that action at this time.
0 commit comments