Commit 805ac787 authored by Victor A. Stoichiţă's avatar Victor A. Stoichiţă
Browse files

defun to debug from elisp babel blocks

parent 9019adb1
......@@ -254,6 +254,21 @@
(defun vic/org-src-debug ()
"Put a call to this function at the beginning of the org source block to debug it.
If there is a sequence of calls, temporarily wrap them by progn
(let ((pt (let ((case-fold-search t)) (org-babel-where-is-src-block-head))))
(unless pt (error "Not at source block"))
(goto-char pt)
(let ((parse-sexp-ignore-comments t))
(goto-char (point-min))
(forward-sexp 2)
(setq org-confirm-babel-evaluate 'vic/org-babel-noconfirm-p)
;; For lilypond mostly
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment