diff options
| author | Case Duckworth | 2022-04-24 15:00:58 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-24 15:00:58 -0500 |
| commit | 86c2a140a5ef01ff4e781793bf05d90356d323c2 (patch) | |
| tree | 51c38588f29c355621d89e7c0705b20654bc5dc9 | |
| parent | Fix `+org-fix-blank-lines' (diff) | |
| download | emacs-86c2a140a5ef01ff4e781793bf05d90356d323c2.tar.gz emacs-86c2a140a5ef01ff4e781793bf05d90356d323c2.zip | |
Change `+org-before-save@prettify-buffer'
| -rw-r--r-- | lisp/+org.el | 12 |
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. |