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

    (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

(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."
