[elpa] externals/valign 4005231 165/198: Fix inconsistency after enabling org-indent

[Stefan Monnier]

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

    Fix inconsistency after enabling org-indent
    
    Org-indent adds properties in an async manner, we have to wait until
    it's done before aligning tables.
    
    * valign.el (valign--org-indent-advice): New advice.
    (valign-mode): Change hook to advice.
---
 valign.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/valign.el b/valign.el
index fe01dcf..a60252e 100644
--- a/valign.el
+++ b/valign.el
@@ -676,6 +676,13 @@ Force align if FORCE non-nil."
   (when valign-mode
     (valign-region)))
 
+(defvar org-indent-agentized-buffers)
+(defun valign--org-indent-advice (&rest _)
+  "Re-align after org-indent is done."
+  ;; See ‘org-indent-initialize-agent’.
+  (when (not org-indent-agentized-buffers)
+    (valign--buffer-advice)))
+
 ;; When an org link is in an outline fold, it’s full length
 ;; is used, when the subtree is unveiled, org link only shows
 ;; part of it’s text, so we need to re-align.  This function
@@ -746,10 +753,15 @@ 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))
+          (with-eval-after-load 'org-indent
+            (advice-add 'org-indent-initialize-agent
+                        :after #'valign--org-indent-advice))
           (add-hook 'org-indent-mode-hook #'valign--buffer-advice 0 t)
           (if valign-fancy-bar (cursor-sensor-mode))
           (jit-lock-refontify))
-      (remove-hook 'org-indent-mode-hook #'valign--buffer-advice t)
+      (with-eval-after-load 'org-indent
+        (advice-remove 'org-indent-initialize-agent
+                       #'valign--org-indent-advice))
       (remove-hook 'jit-lock-functions #'valign-region t)
       (valign-reset-buffer)
       (cursor-sensor-mode -1))))