From 01ca4eba829760298eaf42a0a67893dbbfea4298 Mon Sep 17 00:00:00 2001 From: Protesilaos Stavrou Date: Tue, 21 Jan 2025 17:47:48 +0200 Subject: [PATCH] Make the denote-sequence annotation functions align their annotations --- denote-sequence.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/denote-sequence.el b/denote-sequence.el index 37cc7c0..40073a7 100644 --- a/denote-sequence.el +++ b/denote-sequence.el @@ -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)