emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/valign eb22fae 150/198: Add hooks to org-indent-mode


From: Stefan Monnier
Subject: [elpa] externals/valign eb22fae 150/198: Add hooks to org-indent-mode
Date: Tue, 1 Dec 2020 18:19:37 -0500 (EST)

branch: externals/valign
commit eb22fae6c50947e78c008345d4547368ee489306
Author: Yuan Fu <casouri@gmail.com>
Commit: Yuan Fu <casouri@gmail.com>

    Add hooks to org-indent-mode
    
    * valign.el (valign--buffer-advice): Force align.
    (valign-mode): Add hooks to 'org-indent-mode'.
---
 valign.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/valign.el b/valign.el
index c3e4e0c..98005a7 100644
--- a/valign.el
+++ b/valign.el
@@ -589,7 +589,9 @@ Force align if FORCE non-nil."
 (defvar valign-mode)
 (defun valign--buffer-advice (&rest _)
   "Realign whole buffer."
-  (when valign-mode (valign-region)))
+  (when valign-mode
+    (put-text-property (point-min) (point-max) 'valign-init nil)
+    (valign-region)))
 
 ;; When an org link is in an outline fold, it’s full length
 ;; is used, when the subtree is unveiled, org link only shows
@@ -670,10 +672,12 @@ FLAG is the same as in ‘org-flag-region’."
             (advice-add fn :after #'valign--buffer-advice))
           (dolist (fn '(org-flag-region outline-flag-region))
             (advice-add fn :after #'valign--flag-region-advice))
+          (add-hook 'org-indent-mode-hook #'valign--buffer-advice 0 t)
           (if valign-fancy-bar (cursor-sensor-mode))
           (with-silent-modifications
             (put-text-property (point-min) (point-max) 'valign-init nil))
           (jit-lock-refontify))
+      (remove-hook 'org-indent-mode-hook #'valign--buffer-advice t)
       (remove-hook 'jit-lock-functions #'valign-region t)
       (valign-reset-buffer)
       (cursor-sensor-mode -1))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]