Set up elfeed

emacs/.emacs.d/config/init-auth.el

@@ -1,5 +1,8 @@
 ;; -*- lexical-binding: t; -*-
 
+;; Transparently encrypt/decrypt gpg files
+(add-hook 'after-init-hook #'epa-file-enable)
+
 ;; Get a nice interface to pass
 (use-package pass
   :commands pass

emacs/.emacs.d/config/init-elfeed.el

@@ -0,0 +1,85 @@
+;; -*- lexical-binding: t; -*-
+
+(use-package elfeed
+  :commands elfeed
+  :config
+  (evil-collection-elfeed-setup)
+  (setq elfeed-search-filter "@6-months-ago +unread -hacker-news")
+  (setq elfeed-feeds
+        (list (list (password-store-get "freshrss-blog-feed-url") 'blog)
+              (list (password-store-get "freshrss-lisp-feed-url") 'lisp)
+              (list (password-store-get "freshrss-computing-feed-url") 'computing)
+              (list (password-store-get "freshrss-emacs-feed-url") 'emacs)
+              (list (password-store-get "freshrss-misc-feed-url") 'misc)
+              (list (password-store-get "freshrss-news-feed-url") 'news)
+              (list (password-store-get "freshrss-web-feed-url") 'web)
+              (list (password-store-get "freshrss-creative-coding-feed-url")
+                    'creative-coding 'computing)
+              (list (password-store-get "freshrss-hacker-news-feed-url") 'hacker-news))
+        shr-use-colors nil)
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "metaredux.com")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "lambdaisland.com")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "emacsredux.com")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "sachachua.com")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "mxb.dev")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "joy.recurse.com")
+             :add 'joy-of-computing))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             ;; Changelog Weekly
+             :entry-link (rx "kill-the-newsletter.com/alternate/cfiasax3ct12r7b9svjq")
+             :add 'open-source))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "jeremydormitzer.com")
+             :add 'my-website))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "fossegr.im")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "joshwcomeau.com")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "murilopereira.com")
+             :add 'blog))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "tedium.co")
+             :add 'tedium))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-link (rx "reddit.com")
+             :add 'reddit))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-title (rx (or "Emacs" "emacs"))
+             :add 'emacs))
+  (add-hook 'elfeed-new-entry-hook
+            (elfeed-make-tagger
+             :entry-title (rx (or "Clojure"
+                                  "Scheme"
+                                  "Lisp"
+                                  "Racket"))
+             :add 'lisp)))
+
+(provide 'init-elfeed)

emacs/.emacs.d/init.el

@@ -12,7 +12,11 @@
                   file-name-handler-alist file-name-handler-alist-backup)))
 
 ;; Start the server after init
-(add-hook 'emacs-startup-hook #'server-start)
+(autoload 'server-running-p "server")
+(defun server-start-if-not-running ()
+  (unless (server-running-p)
+    (server-start)))
+(add-hook 'emacs-startup-hook #'server-start-if-not-running)
 
 ;; Bootstrap the straight.el package manager
 (defvar bootstrap-version)
@@ -92,6 +96,7 @@
 (require 'init-kubernetes)
 (require 'init-epub)
 (require 'init-homebrew)
+(require 'init-elfeed)
 
 (when (file-exists-p custom-file)
   (load custom-file 'noerror 'nomessage))