debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-25 12:28:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: notmuch-hello: Don't include extra spaces in widget values.

Browse source 
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.
This commit is contained in:
Carl Worth 2010-04-26 17:55:55 -07:00
parent 8a6a00bf4c
commit c9ba61bebe
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-hello.el
View file

@ -148,8 +148,7 @@ diagonal."
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.
@ -169,7 +168,8 @@ diagonal."
(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"))))