diff --git a/README.org b/README.org index 6c4bfcc..7f313d2 100644 --- a/README.org +++ b/README.org @@ -4818,34 +4818,6 @@ the Org-mode source block code before calling `eglot-ensure'." (eglot-org-babel-edit-prep info))) #+end_src -#+caption[Make sessions for "eval-buffer" in "org-src-mode" buffers.]: -#+caption: Make sessions for ~eval-buffer~ in ~org-src-mode~ buffers. -#+caption: *Experimental: do not tangle*. -#+begin_src emacs-lisp -n :results silent :tangle no -(with-eval-after-load 'emacs - (defun org-babel-edit-prep:python (info) - (message "`%S'" info) - (let* ((session (cdr (assq :session (nth 2 info)))) - (muffed (if (member session '("none" ":default")) ;; nil - "*Python*" - (org-babel-python-with-earmuffs session))) - (key (car (rassoc muffed org-babel-python-buffers)))) - ;; (message "obpb is `%S'" org-babel-python-buffers) - ;; (message "session is `%S', muffed is `%S', key is `%S'" - ;; session muffed key) - (unless (and (get-buffer muffed) - (buffer-match-p '(major-mode . inferior-python-mode) muffed) - (get-process (org-babel-python-without-earmuffs muffed))) - (when (y-or-n-p "Start Python session?") - (org-babel-python-initiate-session - (if (eq key :default) nil (org-babel-python-without-earmuffs muffed)))) - ;; (message "obpb is `%S'" org-babel-python-buffers) - ) - (setq-local python-shell-buffer-name - (org-babel-python-without-earmuffs muffed))) - (eglot-org-babel-edit-prep info))) -#+end_src - #+caption[Setup Python =org-src-mode= buffers for =eglot=]: #+caption: Setup Python =org-src-mode= buffers for =eglot=. #+name: lst:setup-python-org-src-mode-for-eglot