소스 검색

Added support to name the slime-output-buffer (slime-repl) to the name of the respective org-babel session

Signed-off-by: Joel Boehland <joel.boehland@evocomputing.com>
Joel Boehland 15 년 전
부모
커밋
baa98c1f14
1개의 변경된 파일4개의 추가작업 그리고 1개의 파일을 삭제
  1. 4 1
      contrib/babel/lisp/langs/org-babel-clojure.el

+ 4 - 1
contrib/babel/lisp/langs/org-babel-clojure.el

@@ -184,7 +184,10 @@ or nil if \"none\" is specified"
   "Finish setting up the bindings of org-babel session to a slime-clojure repl"
   (let ((pending-session (pop org-babel-clojure-pending-sessions)))
     (when pending-session
-      (org-babel-clojure-bind-session-to-repl-buffer pending-session (slime-output-buffer)))))
+      (save-excursion
+        (switch-to-buffer (slime-output-buffer))
+        (rename-buffer (if (stringp pending-session) pending-session (symbol-name pending-session)))
+        (org-babel-clojure-bind-session-to-repl-buffer pending-session (slime-output-buffer))))))
 
 (add-hook 'slime-connected-hook 'org-babel-clojure-session-connected-hook)