Skip to content

Instantly share code, notes, and snippets.

@mpontus
Created August 12, 2020 03:27
Show Gist options
  • Save mpontus/a1fbdda41c24c22100b6a3db504bd1f9 to your computer and use it in GitHub Desktop.
Save mpontus/a1fbdda41c24c22100b6a3db504bd1f9 to your computer and use it in GitHub Desktop.
Emacs evaluate source block in external buffer
(define-minor-mode literate-emacs-mode
"Enable features helpful for literate init file"
nil
nil
(easy-mmode-define-keymap
`(,(cons (kbd "C-c C-c") #'literate-emacs-evaluate-externally))))
(defun org-babel-execute:emacs-lisp-external (body params)
""
(start-process "" nil "emacs" "-q" (format "--eval=(progn %s)" body)))
(defun literate-emacs-evaluate-externally (&optional arg)
(interactive)
(let ((info (org-babel-get-src-block-info)))
(setf (car info) "emacs-lisp-external")
(org-babel-execute-src-block arg info)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment