               (kbd "D")
               (lambda ()
                 (interactive)
-                (setq elfeed-search-filter "@2-months-ago +unread")
+                (setq elfeed-search-filter "@2-months-ago -nah +unread")
                 (elfeed-search-update :force)))
             (evil-define-key 'normal
               elfeed-search-mode-map
               (kbd "q")
               'elfeed-db-unload)
+            (defun meain/elfeed-filter (entry)
+              "Elfeed hook for `ENTRY' to tag thing I don't really care about."
+              (if (string-match "book review" (downcase (elfeed-entry-title entry)))
+                  (elfeed-tag entry 'nah)))
+            (add-hook 'elfeed-new-entry-hook #'meain/elfeed-filter)
             (defun meain/elfeed-open-all ()
               (interactive)
               (with-current-buffer "*elfeed-search*"

              'meain/elfeed-open-all)
            (defun meain/elfeed-search-filter ()
              (interactive)
              (setq elfeed-search-filter "@2-months-ago +unread")
              (elfeed-search-update :force)
              (let ((tag (completing-read "Apply tag: "
                                          (remove-if (lambda (x)

              (setq elfeed-search-filter (mapconcat 'identity
                                                    (remove-if-not (lambda (x)
                                                                     (or (string-prefix-p "+" x)
                                                                         (string-prefix-p "-" x)
                                                                         (string-prefix-p "@" x)))
                                                                   (split-string elfeed-search-filter))
                                                    " "))
