Add variable +org-before-save-prettify-buffer
This commit is contained in:
parent
2d5cee697e
commit
dbc6934ae6
16
lisp/+org.el
16
lisp/+org.el
|
@ -314,12 +314,18 @@ instead of the true count."
|
||||||
|
|
||||||
;;; Hooks & Advice
|
;;; Hooks & Advice
|
||||||
|
|
||||||
|
(defvar +org-before-save-prettify-buffer t
|
||||||
|
"Prettify org buffers before saving.")
|
||||||
|
|
||||||
|
(put '+org-before-save-prettify-buffer 'safe-local-variable #'booleanp)
|
||||||
|
|
||||||
(defun +org-before-save@prettify-buffer ()
|
(defun +org-before-save@prettify-buffer ()
|
||||||
(save-mark-and-excursion
|
(when +org-before-save-prettify-buffer
|
||||||
(mark-whole-buffer)
|
(save-mark-and-excursion
|
||||||
;;(org-fill-paragraph nil t)
|
(mark-whole-buffer)
|
||||||
(+org-fix-blank-lines t)
|
;;(org-fill-paragraph nil t)
|
||||||
(org-align-tags t)))
|
(+org-fix-blank-lines t)
|
||||||
|
(org-align-tags t))))
|
||||||
|
|
||||||
(defun +org-delete-backward-char (N)
|
(defun +org-delete-backward-char (N)
|
||||||
"Keep tables aligned while deleting N characters backward.
|
"Keep tables aligned while deleting N characters backward.
|
||||||
|
|
Loading…
Reference in New Issue