Enable `eglot` for org babel code editor

org-edit-src-code-before.el

(require 'eglot) ;; avoid `eglot--lookup-mode' being void

(defun sloth/org-babel-edit-prep (info)
  (setq buffer-file-name (or (alist-get :file (caddr info))
                             "org-src-babel.tmp"))
  (eglot-ensure))

(advice-add 'org-edit-src-code
            :before (defun sloth/org-edit-src-code/before (&rest args)
                      (when-let* ((element (org-element-at-point))
	                          (type (org-element-type element))
                                  (lang (org-element-property :language element))
                                  (mode (org-src-get-lang-mode lang))
                                  ((eglot--lookup-mode mode))
                                  (edit-pre (intern
                                             (format "org-babel-edit-prep:%s" lang))))
	                      (if (fboundp edit-pre)
                                  (advice-add edit-pre :after #'sloth/org-babel-edit-prep)
                                (fset edit-pre #'sloth/org-babel-edit-prep)))))