Previously, trailing spaces after each saved-search name were included
as part of the widget. This is going to be problematic for a future
change that will extract the widget's value and compare it to the
configured names of saved searches.
Instead, just include the name itself in the widget, and then insert
the spaces for separation afterwards.
nil nil #'notmuch-hello-search-continuation))
(defun notmuch-hello-insert-tags (tag-alist widest)
nil nil #'notmuch-hello-search-continuation))
(defun notmuch-hello-insert-tags (tag-alist widest)
- (let* ((tag-format-string (format "%%-%ds " widest))
- (tags-per-line (max 1
+ (let* ((tags-per-line (max 1
(/ (- (window-width) notmuch-hello-indent)
;; Count is 7 wide, 1 for the space
;; after the name.
(/ (- (window-width) notmuch-hello-indent)
;; Count is 7 wide, 1 for the space
;; after the name.
(widget-create 'push-button
:notify #'notmuch-hello-widget-search
:notmuch-search-terms (cdr elem)
(widget-create 'push-button
:notify #'notmuch-hello-widget-search
:notmuch-search-terms (cdr elem)
- (format tag-format-string (car elem))))
+ (car elem))
+ (insert (make-string (- widest (length (car elem))) ? )))
(setq count (1+ count))
(if (eq (% count tags-per-line) 0)
(widget-insert "\n"))))
(setq count (1+ count))
(if (eq (% count tags-per-line) 0)
(widget-insert "\n"))))