2021-11-30 11:57:07 +01:00
|
|
|
#!/usr/bin/env sh
|
|
|
|
|
|
|
|
|
|
emacs -Q --batch --eval "
|
|
|
|
|
(progn
|
|
|
|
|
(require 'org)
|
2021-12-23 15:29:03 +01:00
|
|
|
(require 'ob-latex)
|
2021-12-26 11:53:40 +01:00
|
|
|
(defun my-org-eval-blocks-named (infix)
|
2021-11-30 11:57:07 +01:00
|
|
|
(when (eq major-mode 'org-mode)
|
|
|
|
|
(let ((blocks
|
|
|
|
|
(org-element-map
|
|
|
|
|
(org-element-parse-buffer 'greater-element nil) 'src-block
|
|
|
|
|
(lambda (block)
|
2021-12-26 11:53:40 +01:00
|
|
|
(let ((name (org-element-property :name block)))
|
|
|
|
|
(when (and name (string-match-p infix name))
|
|
|
|
|
block))))))
|
2021-11-30 11:57:07 +01:00
|
|
|
(dolist (block blocks)
|
|
|
|
|
(goto-char (org-element-property :begin block))
|
|
|
|
|
(org-babel-execute-src-block)))))
|
|
|
|
|
|
|
|
|
|
(add-to-list 'safe-local-eval-forms
|
|
|
|
|
'(apply 'my-org-eval-blocks-named '(\"emacs-lisp-setup\")))
|
|
|
|
|
|
|
|
|
|
(setq org-confirm-babel-evaluate nil)
|
|
|
|
|
(setq python-indent-guess-indent-offset nil)
|
|
|
|
|
|
|
|
|
|
(org-babel-tangle-file \"$1\"))
|
|
|
|
|
"
|
|
|
|
|
|
|
|
|
|
# Local Variables:
|
|
|
|
|
# mode: shell-script
|
|
|
|
|
# sh-indentation: 2
|
|
|
|
|
# sh-basic-offset: 2
|
|
|
|
|
# End:
|
