diff --git a/modules/lang/org/+babel.el b/modules/lang/org/+babel.el new file mode 100644 index 000000000..98040d77b --- /dev/null +++ b/modules/lang/org/+babel.el @@ -0,0 +1,42 @@ +;;; lang/org/+babel.el + +(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 + org-src-fontify-natively t ; make code pretty + org-src-preserve-indentation t + org-src-tab-acts-natively t + org-src-window-setup 'current-window + org-edit-src-content-indentation 0) + + (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 + ruby + rust + sh + sqlite + sql-mode + translate + ))) + + ;; 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) + ;; 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)) diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el index 373e9f760..68f9360c6 100644 --- a/modules/lang/org/config.el +++ b/modules/lang/org/config.el @@ -38,6 +38,7 @@ (load! +capture) (load! +export) (load! +notebook) +(load! +babel) ;; @@ -136,14 +137,6 @@ (sequence "IDEA(i)" "NEXT(n)" "ACTIVE(a)" "WAITING(w)" "LATER(l)" "|" "CANCELLED(c)")) - ;; Babel - org-confirm-babel-evaluate nil ; you don't need my permission - org-src-fontify-natively t ; make code pretty - org-src-preserve-indentation t - org-src-tab-acts-natively t - org-src-window-setup 'current-window - org-edit-src-content-indentation 0 - ;; Latex org-format-latex-options (plist-put org-format-latex-options :scale 1.5) @@ -164,37 +157,6 @@ ;; ("" "physics" t) TODO Install this) ) - (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 - ruby - ;; rust - sh - sqlite - sql-mode - translate - ))) - - ;; 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) - ;; 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) - (let ((ext-regexp (regexp-opt '("GIF" "JPG" "JPEG" "SVG" "TIF" "TIFF" "BMP" "XPM" "gif" "jpg" "jpeg" "svg" "tif" "tiff" "bmp" "xpm")))) (setq iimage-mode-image-regex-alist