github/dotfiles
1
0
Fork 0
mirror of https://github.com/correl/dotfiles.git synced 2024-12-18 11:06:17 +00:00
Code Issues Projects Releases Packages Wiki Activity

[emacs] Fix org-babel aliases

Browse source
This commit is contained in:
Correl Roush 2014-12-10 22:59:41 -05:00
parent 52eefec10c
commit 52fad5b38d
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
.emacs.d/emacs.org
View file

@ -144,14 +144,15 @@
(let ((language-table (cddr '<<org-babel-languages()>>)))
(mapcar (lambda (lang-pair)
(let* ((alias (if (not (string= (cadr lang-pair) "")) (cadr lang-pair)))
(lang (if alias (make-symbol alias) (make-symbol (car lang-pair))))
(lang (make-symbol (car lang-pair)))
(lang-or-alias (if alias (make-symbol alias) lang))
(confirm (not (string= (cl-caddr lang-pair) "No"))))
(if alias
(add-to-list 'my/org-src-lang-modes (cons alias lang)))
(if (not confirm)
(add-to-list 'my/org-babel-no-confirm-languages lang))
(add-to-list 'my/org-babel-evaluated-languages lang)
lang))
(add-to-list 'my/org-babel-no-confirm-languages lang-or-alias))
(add-to-list 'my/org-babel-evaluated-languages lang-or-alias)
lang-or-alias))
language-table))
(mapcar (lambda (alias)