awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: fix newline-and-indent behavior in src blocks

Browse Source
This commit is contained in:
Henrik Lissner
2018-05-08 15:36:42 +02:00
parent f3d54af5dc
commit 9e141cd01b
2 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/lang/org/autoload/org.el
View File

@ -348,3 +348,15 @@ with `org-cycle')."
;;;###autoload ;;;###autoload
(defalias #'+org/toggle-fold #'+org|toggle-only-current-fold) (defalias #'+org/toggle-fold #'+org|toggle-only-current-fold)
;;
;; Advice
;;
;;;###autoload
(defun +org*return-indent-in-src-blocks ()
"Try to mimic `newline-and-indent' with correct indentation in src blocks."
(when (org-in-src-block-p t)
(org-babel-do-in-edit-buffer
(call-interactively #'indent-for-tab-command))))

3
modules/lang/org/config.el
View File

@ -258,6 +258,9 @@ between the two."
(add-hook 'org-tab-first-hook #'+org|toggle-only-current-fold t) (add-hook 'org-tab-first-hook #'+org|toggle-only-current-fold t)
;; Fix newline-and-indent behavior in src blocks
(advice-add #'org-return-indent :after #'+org*return-indent-in-src-blocks)
(map! :map outline-mode-map (map! :map outline-mode-map
:n "^" nil :n "^" nil
:n [backtab] nil :n [backtab] nil