     (interactive)
     (ar/elfeed-view-filtered "@6-months-ago +unread +news")))
 
-(require 'cl-macs)
-
 (use-package org-web-tools
-  :ensure t)
-
-(use-package esxml
   :ensure t
-  :config)
-
-(require 'cl-macs)
-
-;; From https://github.com/alphapapa/unpackaged.el#feed-for-url
-(cl-defun ar/feed-for-url-in-clipboard (url &key (prefer 'atom) (all nil))
-  "Return feed URL for web page at URL.
+  :config
+  (use-package esxml
+    :ensure t)
+
+  (require 'cl-macs)
+
+  ;; From https://github.com/alphapapa/unpackaged.el#feed-for-url
+  (cl-defun ar/feed-for-url-in-clipboard (url &key (prefer 'atom) (all nil))
+    "Return feed URL for web page at URL.
 Interactively, insert the URL at point.  PREFER may be
 `atom' (the default) or `rss'.  When ALL is non-nil, return all
 feed URLs of all types; otherwise, return only one feed URL,
 preferring the preferred type."
-  (interactive (list (org-web-tools--get-first-url)))
-  (require 'esxml-query)
-  (require 'org-web-tools)
-  (cl-flet ((feed-p (type)
-                    ;; Return t if TYPE appears to be an RSS/ATOM feed
-                    (string-match-p (rx "application/" (or "rss" "atom") "+xml")
-                                    type)))
-    (let* ((preferred-type (format "application/%s+xml" (symbol-name prefer)))
-           (html (org-web-tools--get-url url))
-           (dom (with-temp-buffer
-                  (insert html)
-                  (libxml-parse-html-region (point-min) (point-max))))
-           (potential-feeds (esxml-query-all "link[rel=alternate]" dom))
-           (return (if all
-                       ;; Return all URLs
-                       (cl-loop for (tag attrs) in potential-feeds
-                                when (feed-p (alist-get 'type attrs))
-                                collect (url-expand-file-name (alist-get 'href attrs) url))
-                     (or
-                      ;; Return the first URL of preferred type
-                      (cl-loop for (tag attrs) in potential-feeds
-                               when (equal preferred-type (alist-get 'type attrs))
-                               return (url-expand-file-name (alist-get 'href attrs) url))
-                      ;; Return the first URL of non-preferred type
-                      (cl-loop for (tag attrs) in potential-feeds
-                               when (feed-p (alist-get 'type attrs))
-                               return (url-expand-file-name (alist-get 'href attrs) url))))))
-      (if (called-interactively-p)
-          (insert (if (listp return)
-                      (s-join " " return)
-                    return))
-        return))))
+    (interactive (list (org-web-tools--get-first-url)))
+    (require 'esxml-query)
+    (require 'org-web-tools)
+    (cl-flet ((feed-p (type)
+                      ;; Return t if TYPE appears to be an RSS/ATOM feed
+                      (string-match-p (rx "application/" (or "rss" "atom") "+xml")
+                                      type)))
+      (let* ((preferred-type (format "application/%s+xml" (symbol-name prefer)))
+             (html (org-web-tools--get-url url))
+             (dom (with-temp-buffer
+                    (insert html)
+                    (libxml-parse-html-region (point-min) (point-max))))
+             (potential-feeds (esxml-query-all "link[rel=alternate]" dom))
+             (return (if all
+                         ;; Return all URLs
+                         (cl-loop for (tag attrs) in potential-feeds
+                                  when (feed-p (alist-get 'type attrs))
+                                  collect (url-expand-file-name (alist-get 'href attrs) url))
+                       (or
+                        ;; Return the first URL of preferred type
+                        (cl-loop for (tag attrs) in potential-feeds
+                                 when (equal preferred-type (alist-get 'type attrs))
+                                 return (url-expand-file-name (alist-get 'href attrs) url))
+                        ;; Return the first URL of non-preferred type
+                        (cl-loop for (tag attrs) in potential-feeds
+                                 when (feed-p (alist-get 'type attrs))
+                                 return (url-expand-file-name (alist-get 'href attrs) url))))))
+        (if (called-interactively-p)
+            (insert (if (listp return)
+                        (s-join " " return)
+                      return))
+          return)))))

              ("http://sdegutis.com/blog/atom.xml" blog tech StevenDegutis)
              ("http://tangent.libsyn.com" blog money  ChristopherRyan)
              ("http://tech.memoryimprintstudio.com/feed" blog emacs tech MemoryImprintStudio)
              ("http://www.arcadianvisions.com/blog/rss.xml" blog tech emacs arcadianvisions)
              ("http://www.badykov.com/feed.xml" blog emacs KrakenOfThought)
              ("http://www.brool.com/index.xml" blog emacs Brool)
              ("http://www.gonsie.com/blorg/feed.xml" blog emacs dev)
              ("http://www.modernemacs.com/index.xml" blog emacs tech ModernEmacs)
              ("http://www.sastibe.de/index.xml" blog emacs SebastianSchweer)
              ("http://www.thisiscolossal.com/feed" blog tech Colossal)
              ("http://zzamboni.org/index.xml" blog hammerspoon tech Diego-Martín-Zamboni)

    (ar/vsetq line-spacing 25))
  (defun ar/elfeed-mark-all-as-read ()
    "Mark all entries in search as read."
    (interactive)
    (mark-whole-buffer)
    (elfeed-search-untag-all-unread))
  (defun ar/mark-visible-as-read ()
    (interactive)
    (ar/with-marked-visible-buffer
