awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-30 17:01:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: cleanup & refactor

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-19 03:29:00 +02:00
parent 1f8c4ed383
commit 5add3c3805
8 changed files with 105 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/lang/org/+babel.el
View File

@@ -1,6 +1,6 @@
;;; lang/org/+babel.el
(add-hook '+org-init-hook '+org|init-babel t)
(add-hook '+org-init-hook #'+org|init-babel t)
(defun +org|init-babel ()
(setq org-confirm-babel-evaluate nil ; you don't need my permission
@@ -35,11 +35,12 @@
)))
;; 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...
;; is something a fair number of babel plugins use. So until those plugins
;; update...
(defun org-babel-get-header (params key &optional others)
(delq nil
(mapcar
(lambda (p) (when (funcall (if others #'not #'identity) (eq (car p) key)) p))
(lambda (p) (if (funcall (if others #'not #'identity) (eq (car p) key)) p))
params)))
;; I prefer C-c C-c for confirming over the default C-c '
@@ -48,4 +49,4 @@
;; I know the keybindings, no need for the header line
(defun +org|src-mode-remove-header ()
(when header-line-format (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))