From 14cad029e92b1e35b1255e4b7faa3f0442bce334 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Thu, 3 May 2018 10:20:41 +0800 Subject: [PATCH] ob-clojure-literate.el: Don't enable ob-clojure-literate-mode by default. * contrib/lisp/ob-clojure-literate.el (ob-clojure-literate-auto-jackin): Handle the case that detect cider-jack-in is executed but not connected, and ob-clojure-literate-mode is enabled already. * contrib/lisp/ob-clojure-literate.el (ob-clojure-literate-mode): Don't enable ob-clojure-literate-mode by default. --- contrib/lisp/ob-clojure-literate.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/ob-clojure-literate.el b/contrib/lisp/ob-clojure-literate.el index e702582d9..19eceba52 100644 --- a/contrib/lisp/ob-clojure-literate.el +++ b/contrib/lisp/ob-clojure-literate.el @@ -67,6 +67,7 @@ If it is a directory, `ob-clojure-literate' will try to create Clojure project a ;; get global value instead of buffer local. (default-value 'cider-connections))) +;;; allow not "ob-clojure" project session name. (defun ob-clojure-literate-set-session () "Set session name for buffer local." ;; if default session is the only one in connections list. @@ -124,7 +125,8 @@ If it is a directory, `ob-clojure-literate' will try to create Clojure project a (if (not (null ob-clojure-literate-session)) (seq-contains cider-connections (get-buffer ob-clojure-literate-session)))) cider-connections - (not (null ob-clojure-literate-session))) + (ob-clojure-literate-any-connection-p) + ) ;; return back to original file. (if (not (and (= (length (ob-clojure-literate-get-session-list)) 1) (member ob-clojure-literate-default-session (ob-clojure-literate-get-session-list)))) @@ -334,7 +336,7 @@ reset `RESULT' to `nil'." (define-minor-mode ob-clojure-literate-mode "A minor mode to toggle `ob-clojure-literate'." :require 'ob-clojure-literate - :init-value t + :init-value nil :lighter " clj-lp" :group 'ob-clojure-literate :keymap ob-clojure-literate-mode-map -- 2.17.0