     (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)))))

(require 'ar-vsetq)

(defun ar/open-youtube-url (url)
    "Download and open youtube URL."
    ;; Check for URLs like:
    ;; https://www.youtube.com/watch?v=rzQEIRRJ2T0
    ;; https://youtu.be/rzQEIRRJ2T0
    (assert (string-match-p "^http[s]?://\\(www\\.\\)?\\(\\(youtube.com\\)\\|\\(youtu.be\\)\\|\\(soundcloud.com\\)\\)" url)
            nil "Not a downloadable URL: %s" url)
    (message "Downloading: %s" url)
    (async-start
     `(lambda ()
        (shell-command-to-string
         (format "youtube-dl --newline --exec \"open -a VLC {}\" -o \"~/Downloads/%%(title)s.%%(ext)s\" %s" ,url)))
     `(lambda (output)
        (if (string-match-p "ERROR:" output)
            (message "%s" output)
          (message "Opened: %s" ,url)))))

(defun ar/open-youtube-clipboard-url ()
  "Download youtube video from url in clipboard."

              ("http://feeds.feedburner.com/AffordAnythingFeed" blog money AffordAnything)
              ("http://feeds.feedburner.com/FinancialSamurai" blog money FinancialSamurai)
              ("http://feeds.feedburner.com/japaneseruleof7" blog japan japanese-rule-of-7)
              ("http://feeds2.feedburner.com/Monevatorcom" blog money Monevator)
              ("http://francismurillo.github.io/hacker/feed.xml" blog tech emacs francismurillo)
              ("http://francismurillo.github.io/watcher/feed.xml" blog anime francismurillo)
              ("http://irreal.org/blog/?feed=rss2" blog emacs tech Irreal)
