From c97fe1a0f149028e0228cfbfcbc967027341e75f Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Sun, 24 Jun 2018 10:16:54 +0300 Subject: [#2203] Move the cider-auto-mode stuff to cider-connection.el That's the only place this functionality is used. --- cider-connection.el | 29 +++++++++++++++++++++++++++-- cider-interaction.el | 21 --------------------- cider.el | 6 ------ 3 files changed, 27 insertions(+), 29 deletions(-) diff --git a/cider-connection.el b/cider-connection.el index ed49bbee..87ff5985 100644 --- a/cider-connection.el +++ b/cider-connection.el @@ -50,6 +50,12 @@ available) and the matching REPL buffer." :safe #'booleanp :package-version '(cider . "0.17.0")) +(defcustom cider-auto-mode t + "When non-nil, automatically enable cider mode for all Clojure buffers." + :type 'boolean + :safe #'booleanp + :package-version '(cider . "0.9.0")) + (defconst cider-required-nrepl-version "0.2.12" "The minimum nREPL version that's known to work properly with CIDER.") @@ -188,8 +194,27 @@ message in the REPL area." (cider-nrepl-send-request '("op" "out-subscribe") (cider-interactive-eval-handler (current-buffer)))) -(defvar cider-auto-mode) -(declare-function cider-enable-on-existing-clojure-buffers "cider-interaction") +(defun cider-enable-on-existing-clojure-buffers () + "Enable CIDER's minor mode on existing Clojure buffers. +See command `cider-mode'." + (interactive) + (add-hook 'clojure-mode-hook #'cider-mode) + (dolist (buffer (cider-util--clojure-buffers)) + (with-current-buffer buffer + (cider-mode +1)))) + +(defun cider-disable-on-existing-clojure-buffers () + "Disable command `cider-mode' on existing Clojure buffers." + (interactive) + (dolist (buffer (cider-util--clojure-buffers)) + (with-current-buffer buffer + (cider-mode -1)))) + +(defun cider-possibly-disable-on-existing-clojure-buffers () + "If not connected, disable command `cider-mode' on existing Clojure buffers." + (unless (cider-connected-p) + (cider-disable-on-existing-clojure-buffers))) + (declare-function cider--debug-init-connection "cider-debug") (defun cider--connected-handler () "Handle CIDER initialization after nREPL connection has been established. diff --git a/cider-interaction.el b/cider-interaction.el index 5fdb4e29..3e5e610b 100644 --- a/cider-interaction.el +++ b/cider-interaction.el @@ -1221,27 +1221,6 @@ passing arguments." (define-key map (kbd "C-c") #'cider-eval-last-sexp-in-context) (define-key map (kbd "C-b") #'cider-eval-sexp-at-point-in-context))) -(defun cider-enable-on-existing-clojure-buffers () - "Enable CIDER's minor mode on existing Clojure buffers. -See command `cider-mode'." - (interactive) - (add-hook 'clojure-mode-hook #'cider-mode) - (dolist (buffer (cider-util--clojure-buffers)) - (with-current-buffer buffer - (cider-mode +1)))) - -(defun cider-disable-on-existing-clojure-buffers () - "Disable command `cider-mode' on existing Clojure buffers." - (interactive) - (dolist (buffer (cider-util--clojure-buffers)) - (with-current-buffer buffer - (cider-mode -1)))) - -(defun cider-possibly-disable-on-existing-clojure-buffers () - "If not connected, disable command `cider-mode' on existing Clojure buffers." - (unless (cider-connected-p) - (cider-disable-on-existing-clojure-buffers))) - (defun cider-file-string (file) "Read the contents of a FILE and return as a string." (with-current-buffer (find-file-noselect file) diff --git a/cider.el b/cider.el index 0ab9ce6e..33745b35 100644 --- a/cider.el +++ b/cider.el @@ -276,12 +276,6 @@ This variable is used by `cider-connect'." :group 'cider :package-version '(cider . "0.9.0")) -(defcustom cider-auto-mode t - "When non-nil, automatically enable cider mode for all Clojure buffers." - :type 'boolean - :safe #'booleanp - :package-version '(cider . "0.9.0")) - (defcustom cider-inject-dependencies-at-jack-in t "When nil, do not inject repl dependencies (most likely nREPL middlewares) at `cider-jack-in' time." :type 'boolean -- cgit v1.2.3