Remove experimental dead code
This commit is contained in:
parent
c5979fb175
commit
f569c9f7be
28
README.org
28
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
|
||||
|
Loading…
Reference in New Issue
Block a user