summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-04-24 15:00:58 -0500
committerCase Duckworth2022-04-24 15:00:58 -0500
commit86c2a140a5ef01ff4e781793bf05d90356d323c2 (patch)
tree51c38588f29c355621d89e7c0705b20654bc5dc9
parentFix `+org-fix-blank-lines' (diff)
downloademacs-86c2a140a5ef01ff4e781793bf05d90356d323c2.tar.gz
emacs-86c2a140a5ef01ff4e781793bf05d90356d323c2.zip
Change `+org-before-save@prettify-buffer'
-rw-r--r--lisp/+org.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/+org.el b/lisp/+org.el index 9af2dda..0324cd5 100644 --- a/lisp/+org.el +++ b/lisp/+org.el
@@ -339,11 +339,13 @@ Return as a list."
339(defun +org-before-save@prettify-buffer () 339(defun +org-before-save@prettify-buffer ()
340 (when +org-before-save-prettify-buffer 340 (when +org-before-save-prettify-buffer
341 (save-mark-and-excursion 341 (save-mark-and-excursion
342 (mark-whole-buffer) 342 (+org-unsmartify)
343 ;;(org-fill-paragraph nil t) 343 (+org-fix-blank-lines t)
344 (+org-unsmartify) 344 (org-align-tags t)
345 (+org-fix-blank-lines t) 345 (when (buffer-narrowed-p)
346 (org-align-tags t)))) 346 (goto-char (point-min))
347 (forward-line 1)
348 (org-narrow-to-subtree)))))
347 349
348(defun +org-delete-backward-char (N) 350(defun +org-delete-backward-char (N)
349 "Keep tables aligned while deleting N characters backward. 351 "Keep tables aligned while deleting N characters backward.