ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* ob-clojure-literate: Get session from global connections list 

* contrib/lisp/ob-clojure-literate.el (ob-clojure-literate-get-session-list):
(org-babel-map): Get session from global connections list.
(ob-clojure-literate-specify-session): Renamed from
`ob-clojure-literate-specify-session-header-argument'.
This commit is contained in:
stardiviner 2018-04-02 11:58:28 +08:00 committed by Nicolas Goaziou
parent d7e12d1df7
commit 46d841d064
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/lisp/ob-clojure-literate.el
View File

@ -63,7 +63,11 @@ If it is a directory, `ob-clojure-literate' will try to create Clojure project a
(defun ob-clojure-literate-get-session-list () (defun ob-clojure-literate-get-session-list ()
"Return a list of available started CIDER REPL sessions list." "Return a list of available started CIDER REPL sessions list."
(-map 'buffer-name cider-connections)) (-map 'buffer-name
;; for multiple connections case.
;; get global value instead of buffer local.
(default-value 'cider-connections)
))
(defun ob-clojure-literate-set-session () (defun ob-clojure-literate-set-session ()
"Set session name for buffer local." "Set session name for buffer local."
@ -82,7 +86,7 @@ If it is a directory, `ob-clojure-literate' will try to create Clojure project a
)) ))
;;;###autoload ;;;###autoload
(defun ob-clojure-literate-specify-session-header-argument () (defun ob-clojure-literate-specify-session ()
"Specify ob-clojure header argument :session with value selected from a list of available sessions." "Specify ob-clojure header argument :session with value selected from a list of available sessions."
(interactive) (interactive)
(let ((lang (nth 0 (org-babel-get-src-block-info)))) (let ((lang (nth 0 (org-babel-get-src-block-info))))
@ -297,7 +301,7 @@ reset `RESULT' to `nil'."
map) map)
"Keymap for `ob-clojure-literate-mode'.") "Keymap for `ob-clojure-literate-mode'.")
(define-key org-babel-map (kbd "M-s") 'ob-clojure-literate-specify-session-header-argument) (define-key org-babel-map (kbd "M-s") 'ob-clojure-literate-specify-session)
(define-key org-babel-map (kbd "M-j") 'ob-clojure-literate-auto-jackin) (define-key org-babel-map (kbd "M-j") 'ob-clojure-literate-auto-jackin)
;; (define-key org-babel-map (kbd "M-e") 'cider-eval-last-sexp) ;; (define-key org-babel-map (kbd "M-e") 'cider-eval-last-sexp)
;; (define-key org-babel-map (kbd "M-d") 'cider-doc) ;; (define-key org-babel-map (kbd "M-d") 'cider-doc)