branch: externals/valign
commit a8d93c5a0a0ee711b92caa1e2f29cc03acb25155
Author: Yuan Fu <[email protected]>
Commit: Yuan Fu <[email protected]>
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
