On Mon, 16 Jan 2012 17:03:44 +0000, David Edmondson <dme@dme.org> wrote: > On Mon, 16 Jan 2012 17:46:55 +0100, Pieter Praet <pieter@praet.org> wrote: > > Make `notmuch-cycle-notmuch-buffers' more Lispy and merge into `notmuch', > > eliminating the need to hog yet another keybind. > ... > > diff --git a/emacs/notmuch.el b/emacs/notmuch.el > > index ef4dcc7..539b3a0 100644 > > --- a/emacs/notmuch.el > > +++ b/emacs/notmuch.el > > @@ -1067,7 +1067,20 @@ current search results AND that are tagged with the given tag." > > (defun notmuch () > > "Run notmuch and display saved searches, known tags, etc." > > (interactive) > > - (notmuch-hello)) > > + (let* ((old-buffer (current-buffer)) > > + (interesting-buffers > > + (delq nil (mapcar (lambda (b) > > + (if (notmuch-interesting-buffer b) b)) > > + (buffer-list)))) > > + (next-buffer (first > > + (delq nil (mapcar (lambda (b) > > + (unless (eq old-buffer b) b)) > > + interesting-buffers))))) > > This feels _less_ lispy. [...] True. I simply re-implemented `delete-if-not' in order to prevent having to require the `cl' package at runtime. (why on Earth isn't there an equivalent function in plain Elisp ?!?) $ sed -e "s/C\?Lisp\(y\|'ier\)/Elispy/" $COMMIT_MSG > [...] Any occurrences of '(delq nil ...)' strike me > as odd. [...] How so? Lacking a flexible way to conditionally remove elements from a list (that doesn't require the `cl' package in some way or another), a combination of `mapcar' and `delq' seemed like the easiest approach. (AFAIK; Please correct me if (when) I'm wrong!) > [...] What's wrong with '(loop ... collect ...)'? > Nothing at all. I was fixing my own patch [1] without resorting to requiring the `cl' package at runtime :) Would be nice if we could get rid of the compile-time dependency as well, though. Fresh patch to that effect follows. Feel free to disregard it, just bikesheddin'... > > + (if next-buffer > > + (progn > > + (switch-to-buffer next-buffer) > > + (bury-buffer old-buffer)) > > + (notmuch-hello)))) > > Integrating with `notmuch' is fine with me. Peace -- Pieter [1] id:"1326710551-23122-1-git-send-email-pieter@praet.org"