emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

org/org-babel: minor refactor

Browse source
This commit is contained in:
Henrik Lissner 2017-11-06 00:51:37 +01:00
parent 9d7d14fd04
commit 30c98a300d
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 28 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

36
modules/org/org-babel/config.el
View file

@ -2,16 +2,7 @@
(add-hook 'org-load-hook #'+org-babel|init t) (add-hook 'org-load-hook #'+org-babel|init t)
(defun +org-babel|init () (defvar +org-babel-languages
(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 '(calc
css css
emacs-lisp emacs-lisp
@ -30,8 +21,23 @@
shell shell
sqlite sqlite
sql-mode ; ob-sql-mode sql-mode ; ob-sql-mode
translate ; ob-translate translate) ; ob-translate
))) "A list of org-babel languages to load.")
(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
(cl-loop for sym in +org-babel-languages
collect (cons sym t)))
;; 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)
;; In a recent update, `org-babel-get-header' was removed from org-mode, which ;; 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 ;; is something a fair number of babel plugins use. So until those plugins
@ -42,11 +48,7 @@
if (funcall fn (eq (car p) key)) if (funcall fn (eq (car p) key))
collect p)) 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 () (defun +org|src-mode-remove-header ()
"Remove header-line with keybinding help; I know the keybinds." "Remove header-line with keybinding help; I know the keybinds."
(when header-line-format (setq header-line-format nil))
(setq header-line-format nil)))
(add-hook 'org-src-mode-hook #'+org|src-mode-remove-header)) (add-hook 'org-src-mode-hook #'+org|src-mode-remove-header))