awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

app/rss: add +rss-dead-feeds function

Browse Source
This commit is contained in:
Henrik Lissner
2017-04-05 15:05:40 -04:00
parent 42da8ccd82
commit dd8aa48887
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
modules/app/rss/autoload.el
View File

@ -63,3 +63,18 @@
(with-current-buffer (elfeed-search-buffer) (with-current-buffer (elfeed-search-buffer)
(forward-line -1) (forward-line -1)
(call-interactively '+rss/open))) (call-interactively '+rss/open)))
;;;###autoload
(defun +rss-dead-feeds (&optional years)
"Return a list of feeds that haven't posted anything in YEARS."
(let* ((years (or years 1.0))
(living-feeds (make-hash-table :test 'equal))
(seconds (* years 365.0 24 60 60))
(threshold (- (float-time) seconds)))
(with-elfeed-db-visit (entry feed)
(let ((date (elfeed-entry-date entry)))
(when (> date threshold)
(setf (gethash (elfeed-feed-url feed) living-feeds) t))))
(cl-loop for url in (elfeed-feed-list)
unless (gethash url living-feeds)
collect url)))