Make the denote-sequence annotation functions align their annotations

This commit is contained in:
Protesilaos Stavrou 2025-01-21 17:47:48 +02:00
parent f822f2c2c9
commit 01ca4eba82
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA

View file

@ -615,7 +615,9 @@ returned by `denote-sequence-get-all-files'."
("parent" "Parent sequence")
("sibling" "Sibling of another sequence")
("child" "Child of another sequence"))))
(format " -- %s" (propertize text 'face 'completions-annotations))))
(format "%s-- %s"
(propertize " " 'display '(space :align-to 10))
(propertize text 'face 'completions-annotations))))
(defun denote-sequence-type-prompt (&optional prompt-text types annotation-fn)
"Prompt for sequence type among `denote-sequence-types'.
@ -762,7 +764,9 @@ If the current file does not have a sequence, then behave exactly like
("siblings" "All siblings")
("all-children" "All children")
("children" "Immediate children"))))
(format " -- %s" (propertize text 'face 'completions-annotations))))
(format "%s-- %s"
(propertize " " 'display '(space :align-to 15))
(propertize text 'face 'completions-annotations))))
;;;###autoload
(defun denote-sequence-find (type)