Updating Doom Emacs.

.emacs.d/modules/app/rss/autoload.el

@@ -70,7 +70,7 @@
   (let ((search-buffers (doom-buffers-in-mode 'elfeed-search-mode))
         (show-buffers (doom-buffers-in-mode 'elfeed-show-mode))
         kill-buffer-query-functions)
-    (dolist (file +rss-elfeed-files)
+    (dolist (file (bound-and-true-p rmh-elfeed-org-files))
       (when-let (buf (get-file-buffer (expand-file-name file org-directory)))
         (kill-buffer buf)))
     (dolist (b search-buffers)
@@ -101,10 +101,9 @@
 ;;;###autoload
 (defun +rss-put-sliced-image-fn (spec alt &optional flags)
   "TODO"
-  (cl-letf (((symbol-function #'insert-image)
-             (lambda (image &optional alt _area _slice)
-               (let ((height (cdr (image-size image t))))
-                 (insert-sliced-image image alt nil (max 1 (/ height 20.0)) 1)))))
+  (letf! (defun insert-image (image &optional alt _area _slice)
+           (let ((height (cdr (image-size image t))))
+             (insert-sliced-image image alt nil (max 1 (/ height 20.0)) 1)))
     (shr-put-image spec alt flags)))
 
 ;;;###autoload

.emacs.d/modules/app/rss/config.el

@@ -4,10 +4,6 @@
 ;; by apps Reeder and Readkit. It can be invoked via `=rss'. Otherwise, if you
 ;; don't care for the UI you can invoke elfeed directly with `elfeed'.
 
-(defvar +rss-elfeed-files (list "elfeed.org")
-  "Where to look for elfeed.org files, relative to `org-directory'. Can be
-absolute paths.")
-
 (defvar +rss-split-direction 'below
   "What direction to pop up the entry buffer in elfeed.")
 
@@ -21,10 +17,11 @@ easier to scroll through.")
 
 (use-package! elfeed
   :commands elfeed
+  :init
+  (setq elfeed-db-directory (concat doom-local-dir "elfeed/db/")
+        elfeed-enclosure-default-dir (concat doom-local-dir "elfeed/enclosures/"))
   :config
   (setq elfeed-search-filter "@2-week-ago "
-        elfeed-db-directory (concat doom-local-dir "elfeed/db/")
-        elfeed-enclosure-default-dir (concat doom-local-dir "elfeed/enclosures/")
         elfeed-show-entry-switch #'pop-to-buffer
         elfeed-show-entry-delete #'+rss/delete-pane
         shr-max-image-proportion 0.8)
@@ -67,8 +64,11 @@ easier to scroll through.")
 (use-package! elfeed-org
   :when (featurep! +org)
   :after elfeed
+  :preface
+  (setq rmh-elfeed-org-files (list "elfeed.org"))
   :config
-  (let ((default-directory org-directory))
-    (setq rmh-elfeed-org-files
-          (mapcar #'expand-file-name +rss-elfeed-files)))
-  (elfeed-org))
+  (and (let ((default-directory org-directory))
+         (setq rmh-elfeed-org-files
+               (cl-remove-if-not
+                #'file-exists-p (mapcar #'expand-file-name rmh-elfeed-org-files))))
+       (elfeed-org)))

.emacs.d/modules/app/rss/packages.el

@@ -1,5 +1,5 @@
 ;; -*- no-byte-compile: t; -*-
 ;;; app/rss/packages.el
 
-(package! elfeed)
-(package! elfeed-org)
+(package! elfeed :pin "d0405e63863e54a01200740a6717ac875eceabc1")
+(package! elfeed-org :pin "77b6bbf222487809813de260447d31c4c59902c9")