[elpa] externals/valign a8d93c5 145/198: Fix markdown table alignment

[Stefan Monnier]

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

    Fix markdown table alignment
    
    * valign.el (valign--calculate-alignment): Never return nil.
    (valign-remove-advice, valign-mode): Change 'markdown-table-align' to
    'markdown-cycle'.
---
 valign.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/valign.el b/valign.el
index c68f056..d526b9e 100644
--- a/valign.el
+++ b/valign.el
@@ -250,10 +250,15 @@ TYPE must be 'markdown.  Start at point, stop at LIMIT."
     (ignore row-idx)
     (save-excursion
       (valign--do-row row-idx limit
-        (valign--do-column column-idx
-          (when (valign--separator-p)
+        (when (valign--separator-p)
+          (valign--do-column column-idx
             (setf (alist-get column-idx column-alignment-alist)
-                  (valign--alignment-from-seperator)))))
+                  (valign--alignment-from-seperator))))))
+    (if (not column-alignment-alist)
+        (save-excursion
+          (valign--do-column column-idx
+            (push 'left column-alignment-alist))
+          column-alignment-alist)
       (valign--alist-to-list column-alignment-alist))))
 
 (cl-defmethod valign--calculate-alignment ((type (eql org)) limit)
@@ -638,7 +643,7 @@ FLAG is the same as in ‘org-flag-region’."
   (interactive)
   (dolist (fn '(org-cycle
                 org-table-blank-field
-                markdown-table-align))
+                markdown-cycle))
     (advice-remove fn #'valign--tab-advice))
   (dolist (fn '(text-scale-increase
                 text-scale-decrease
@@ -670,7 +675,7 @@ FLAG is the same as in ‘org-flag-region’."
                         ;; invisible.  So we have to fix the overlay
                         ;; after this function.
                         org-table-blank-field
-                        markdown-table-align))
+                        markdown-cycle))
             (advice-add fn :after #'valign--tab-advice))
           (dolist (fn '(text-scale-increase
                         text-scale-decrease