blob: dfb9ca143a3351609ca7660ebbd445f905b03a5e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
;;; org-babel-config.el --- Org Babel/Tempo Config -*- lexical-binding: t; -*-
;;; Commentary:
;; All Org-Babel and Org-Tempo Packages, Settings, and Languages.
;;; Code:
(with-eval-after-load 'org
(require 'ob-core)
;; ------------------- Babel Execution Confirmation Toggle -------------------
;; org-babel verifies before each execution
(defun babel-confirm (flag)
"Report the setting of org-confirm-babel-evaluate.
If invoked with C-u, toggle the setting."
(interactive "P")
(if (equal flag '(4))
(setq org-confirm-babel-evaluate (not org-confirm-babel-evaluate)))
(message "Babel evaluation confirmation is %s"
(if org-confirm-babel-evaluate "on" "off")))
;; ---------------------------- Org Babel Languages ----------------------------
;; create executable code blocks in a language within org-mode
;; (org-babel-do-load-languages
;; 'org-babel-load-languages
;; '((shell . t)))
(use-package ob-python
:ensure nil ;; built-in
:defer .5
:after org-contrib
:commands (org-babel-execute:python))
(use-package ob-emacs-lisp
:ensure nil ;; built-in
:defer .5
:commands
(org-babel-execute:emacs-lisp
org-babel-expand-body:emacs-lisp))
(use-package ob-dot
:ensure nil ;; built-in
:defer .5
:commands
(org-babel-execute:dot
org-babel-expand-body:dot)
:config
;; https://stackoverflow.com/questions/16770868/org-babel-doesnt-load-graphviz-editing-mode-for-dot-sources
(add-to-list 'org-src-lang-modes (quote ("dot" . graphviz-dot))))
;; --------------------------------- Org-Tempo ---------------------------------
;; expands snippets to babel code blocks using templates
(use-package org-tempo
:defer .5
:ensure nil ;; built-in
:after org
:config
(add-to-list 'org-structure-template-alist '("awk" . "src awk"))
(add-to-list 'org-structure-template-alist '("bash" . "src bash"))
(add-to-list 'org-structure-template-alist '("dot" . "src dot :file temp.png :cmdline -Kdot -Tpng"))
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
(add-to-list 'org-structure-template-alist '("json" . "src json"))
(add-to-list 'org-structure-template-alist '("latex" . "src latex"))
(add-to-list 'org-structure-template-alist '("sicp" . "src racket :lang sicp"))
(add-to-list 'org-structure-template-alist '("py" . "src python"))
(add-to-list 'org-structure-template-alist '("sh" . "src sh"))
(add-to-list 'org-structure-template-alist '("yaml" . "src yaml")))
;; ---------------------------- Org Babel Settings ---------------------------
;; general org babel settings
(setq org-src-fontify-natively t) ;; fontify the code in blocks
(setq org-src-tab-acts-natively t) ;; tabs act like in language major mode buffer
(setq org-src-window-setup 'current-window) ;; don't split window when source editing wih C-c '
(setq org-confirm-babel-evaluate nil) ;; just evaluate the source code
(setq org-babel-default-header-args
(cons '(:tangle . "yes")
(assq-delete-all :tangle org-babel-default-header-args))) ;; default header args for babel
(add-hook 'org-babel-after-execute-hook 'org-redisplay-inline-images) ;; for seeing inline dotgraph images
) ;; end with-eval-after-load
(provide 'org-babel-config)
;;; org-babel-config.el ends here.
|
