               ("http://rubyronin.com/wp-feed.php" blog japan the-ruby-ronin)
               ("http://sachachua.com/blog/feed" blog emacs tech sachachua)
               ("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://feeds.bbci.co.uk/news/uk/rss.xml?edition=uk" news BBCUK bbc)
              ("http://feeds.bbci.co.uk/news/world/rss.xml?edition=uk" news BBCWorld bbc)
              ("http://feeds.feedblitz.com/atomicspin&x=1" blog dev emacs AtomicObject)
              ("http://feeds.feedburner.com/FinancialSamurai" blog money FinancialSamurai)
              ("http://feeds.feedburner.com/japaneseruleof7" blog japan japanese-rule-of-7)
              ("http://francismurillo.github.io/hacker/feed.xml" blog tech emacs francismurillo)

    "Filter the elfeed-search buffer to show news-tagged feeds."
    (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.
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))))
