78b40fb427
sh was renamed to shell in Org 8.2 [1] and this may result in some undesired behavior as it will fall back to the bundled ob-sh.el [1] http://orgmode.org/cgit.cgi/org-mode.git/plain/etc/ORG-NEWS
53 lines
1.7 KiB
EmacsLisp
53 lines
1.7 KiB
EmacsLisp
;;; org/org-babel/config.el -*- lexical-binding: t; -*-
|
|
|
|
(add-hook 'org-load-hook #'+org-babel|init t)
|
|
|
|
(defun +org-babel|init ()
|
|
(setq org-src-fontify-natively t ; make code pretty
|
|
org-src-preserve-indentation t ; use native major-mode indentation
|
|
org-src-tab-acts-natively t
|
|
org-src-window-setup 'current-window
|
|
org-confirm-babel-evaluate nil) ; you don't need my permission
|
|
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
(mapcar (lambda (sym) (cons sym t))
|
|
'(calc
|
|
css
|
|
emacs-lisp
|
|
haskell
|
|
js
|
|
latex
|
|
ledger
|
|
lilypond
|
|
lisp
|
|
matlab
|
|
plantuml
|
|
python
|
|
restclient ; ob-restclient
|
|
ruby
|
|
rust ; ob-rust
|
|
shell
|
|
sqlite
|
|
sql-mode ; ob-sql-mode
|
|
translate ; ob-translate
|
|
)))
|
|
|
|
;; In a recent update, `org-babel-get-header' was removed from org-mode, which
|
|
;; is something a fair number of babel plugins use. So until those plugins
|
|
;; update, this polyfill will do:
|
|
(defun org-babel-get-header (params key &optional others)
|
|
(cl-loop with fn = (if others #'not #'identity)
|
|
for p in params
|
|
if (funcall fn (eq (car p) key))
|
|
collect p))
|
|
|
|
;; I prefer C-c C-c for confirming over the default C-c '
|
|
(map! :map org-src-mode-map "C-c C-c" #'org-edit-src-exit)
|
|
|
|
(defun +org|src-mode-remove-header ()
|
|
"Remove header-line with keybinding help; I know the keybinds."
|
|
(when header-line-format
|
|
(setq header-line-format nil)))
|
|
(add-hook 'org-src-mode-hook #'+org|src-mode-remove-header))
|