lang/org: add +babel.el

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))