     (interactive)
     (let ((categories (-filter
                        (lambda (item)
-                         (> (ar/elfeed-filter-count (cdr item))
+                         (> (ar/elfeed-filter-results-count (cdr item))
                             0))
-                       (list
-                        (cons "All" "@6-months-ago +unread")
-                        (cons "BBC" "@6-months-ago +unread +bbc")
-                        (cons "Dev" "@6-months-ago +unread +dev")
-                        (cons "Emacs" "@6-months-ago +unread +emacs")
-                        (cons "Health" "@6-months-ago +unread +health")
-                        (cons "Hacker News" "@6-months-ago +unread +hackernews")
-                        (cons "iOS" "@6-months-ago +unread +ios")
-                        (cons "Money" "@6-months-ago +unread +money")))))
+                       '(("[All]" . "@6-months-ago +unread")
+                         ("Art" . "@6-months-ago +unread +art")
+                         ("BBC" . "@6-months-ago +unread +bbc")
+                         ("Dev" . "@6-months-ago +unread +dev")
+                         ("Emacs" . "@6-months-ago +unread +emacs")
+                         ("Health" . "@6-months-ago +unread +health")
+                         ("Hacker News" . "@6-months-ago +unread +hackernews")
+                         ("iOS" . "@6-months-ago +unread +ios")
+                         ("Money" . "@6-months-ago +unread +money")
+                         ("Travel" . "@6-months-ago +unread +travel")))))
       (if (> (length categories) 0)
-          (ar/elfeed-view-filtered (cdr (assoc (completing-read "Categories" categories) categories)))
+          (progn
+           (ar/elfeed-view-filtered (cdr (assoc (completing-read "Categories: " categories)
+                                                categories)))
+           (goto-char (window-start)))
         (message "All caught up \\o/"))))
+
   :config
   (defun ar/elfeed-mark-visible-as-read ()
     (interactive)

              ("http://200ok.ch/atom.xml" blog emacs 200ok)
              ("http://akkartik.name/feeds.xml" blog dev)
              ("https://www.with-emacs.com/rss.xml" blog emacs WithEmacs)
              ("http://ben-evans.com/benedictevans?format=RSS" blog dev Ben-Evans)
              ("http://blog.abhixec.com/index.xml" blog emacs RandomMusings)
              ("http://blog.davep.org/feed.xml" blog emacs davep)

    (activate-mark)
    (elfeed-search-untag-all-unread)
    (elfeed-search-update--force)
    (deactivate-mark)
    (goto-char (window-start)))

  ;; Going back to defaults for a little while.
  ;; (use-package elfeed-goodies :ensure t
  ;;   :after elfeed
  ;;   :config
  ;;   (ar/vsetq elfeed-goodies/entry-pane-position 'bottom)
  ;;   (ar/vsetq elfeed-goodies/feed-source-column-width 30)
  ;;   (ar/vsetq elfeed-goodies/tag-column-width 35)
  ;;   (elfeed-goodies/setup))

  (defun ar/elfeed-open-youtube-video ()
    (interactive)
