debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Fix `notmuch-hello-insert-tags' to correctly draw the tags.

Browse source 
The fix in 1e18711543 broke end-of-row
wrapping when drawing the table of tags/saved searches. Fix that and
improve the readability of the matrix reflection code to hasten future
debugging.
This commit is contained in:
David Edmondson 2010-04-27 11:04:37 +01:00 committed by Carl Worth
parent 18d41192d2
commit 08561d8ae1
1 changed files with 19 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
emacs/notmuch-hello.el
View file

@ -118,23 +118,24 @@
(+ (/ dividend divisor)
(if (> (% dividend divisor) 0) 1 0)))
(defun notmuch-hello-reflect (list width)
"Reflect a `width' wide matrix represented by `list' along the
diagonal."
;; Not very lispy...
(let* ((len (length list))
(nrows (notmuch-hello-roundup len width)))
(loop for row from 0 to (- nrows 1)
append (loop for col from 0 to (- width 1)
;; How could we calculate the offset just once
;; per inner-loop?
if (< (+ (* nrows col) row) len)
collect (nth (+ (* nrows col) row) list)
else
(defun notmuch-hello-reflect-generate-row (ncols nrows row list)
(let ((len (length list)))
(loop for col from 0 to (- ncols 1)
collect (let ((offset (+ (* nrows col) row)))
(if (< offset len)
(nth offset list)
;; Don't forget to insert an empty slot in the
;; output matrix if there is no corresponding
;; value in the input matrix.
collect nil))))
nil)))))
(defun notmuch-hello-reflect (list ncols)
"Reflect a `ncols' wide matrix represented by `list' along the
diagonal."
;; Not very lispy...
(let ((nrows (notmuch-hello-roundup (length list) ncols)))
(loop for row from 0 to (- nrows 1)
append (notmuch-hello-reflect-generate-row ncols nrows row list))))
(defun notmuch-hello-widget-search (widget &rest ignore)
(notmuch-search (widget-get widget
@ -179,10 +180,10 @@ diagonal."
;; can just insert `(- widest (length name))' spaces -
;; the column separator is included in the button if
;; `(equal widest (length name)'.
(widget-insert (make-string (- widest (length name)) ? )))
(widget-insert (make-string (- widest (length name)) ? ))))
(setq count (1+ count))
(if (eq (% count tags-per-line) 0)
(widget-insert "\n"))))
(widget-insert "\n")))
reordered-list)
;; If the last line was not full (and hence did not include a