[elpa] externals/valign 4abb733 065/198: Workaround Emacs’s inability to use multiple derived-mode specializers

[Stefan Monnier]

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

    Workaround Emacs’s inability to use multiple derived-mode specializers
    
    * valign.el (valign--cell-alignment, valign--align-separator-row):
    New implementations.
---
 valign.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/valign.el b/valign.el
index 48afab9..2d7288a 100644
--- a/valign.el
+++ b/valign.el
@@ -64,6 +64,12 @@ TYPE must be 'org-mode.  HINT is not used."
             'right
           (signal 'valign-werid-alignment nil))))))
 
+;; Currently multiple derived-mode specializers are not supported.
+;; See cl-generic.el:1203.
+(cl-defmethod valign--cell-alignment
+  ((type (derived-mode org-agenda-mode)) hint)
+  (valign--cell-alignment 'org-mode hint))
+
 (cl-defmethod valign--cell-alignment
   ((type (derived-mode markdown-mode)) hint)
   "Return how is current cell aligned.
@@ -448,7 +454,7 @@ Assumes point is on the right bar or plus sign."
     (overlay-put ov 'valign t)))
 
 (cl-defmethod valign--align-separator-row
-  ((type (derived-mode org-mode org-agenda-mode))
+  ((type (derived-mode org-mode))
    (style (eql multi-column)) pos-list)
   "Align the separator row in multi column style.
 TYPE must be 'org-mode, STYLE is 'multi-column.
@@ -470,6 +476,10 @@ POS-LIST is a list of positions for each column’s right 
bar."
        (or (nth col-idx pos-list) 0)))))
 
 (cl-defmethod valign--align-separator-row
+  ((type (derived-mode org-agenda-mode)) style pos-list)
+  (valign--align-separator-row 'org-mode style pos-list))
+
+(cl-defmethod valign--align-separator-row
   ((type (derived-mode markdown-mode))
    (style (eql multi-column)) pos-list)
   "Align the separator row in multi column style.