.emacs.d

commit 72159f6dbe7bec22e9f5e1257554204b089d083e
parent a10945921874c77791742b05356ebe3799819ba8
Author: andsy10 <andsy1016@gmail.com>
Date:   Sun,  9 Aug 2026 04:43:32 +0800

Add custom commands to show elfeed entries in another window

Diffstat:
M
lisp/init-kbd-func.el
 | 
17
+++++++++++++++++
M
lisp/init-kbd.el
 | 
6
++++++
M
lisp/init-package.el
 | 
3
++-

3 files changed, 25 insertions(+), 1 deletion(-)
diff --git a/lisp/init-kbd-func.el b/lisp/init-kbd-func.el
@@ -31,6 +31,23 @@
   (interactive)
   (message (format-time-string "%Y-%m-%d %H:%M UTC" nil t)))
 
+(defun my-elfeed-search-show-entry-other-window ()
+  "Like `elfeed-search-show-entry' but show the elfeed entry buffer in another window."
+  (interactive)
+  (let ((display-buffer-alist '(("\\*elfeed-entry\\*"
+                                 (display-buffer-reuse-window
+                                  display-buffer-pop-up-window)))))
+    (call-interactively #'elfeed-search-show-entry)))
+
+(defun my-elfeed-search-preview-other-window ()
+  "Preview currently selected elfeed entry in another window."
+  (interactive)
+  (let ((display-buffer-alist '(("\\*elfeed-entry\\*"
+                                 (display-buffer-reuse-window
+                                  display-buffer-pop-up-window))))
+        (current-prefix-arg t))
+    (call-interactively #'elfeed-search-show-entry)))
+
 (defun my-jinx-smart-toggle ()
   "Toggle jinx-mode smartly.
 Disable jinx-mode if it's enable and global-jinx-mode is disable ,
diff --git a/lisp/init-kbd.el b/lisp/init-kbd.el
@@ -35,6 +35,12 @@
               pi-coding-agent-chat-mode-map)
   "C-c C-q" #'pi-coding-agent-quit)
 
+;; elfeed
+(general-def elfeed-search-mode-map
+  "RET" #'my-elfeed-search-show-entry-other-window
+  "v" #'my-elfeed-search-preview-other-window
+  "TAB" #'my-elfeed-search-preview-other-window)
+
 ;; u for ui
 (general-def
   :prefix "C-c u"
diff --git a/lisp/init-package.el b/lisp/init-package.el
@@ -266,7 +266,8 @@ _a_ : all dwim
 ;; elfeed
 (use-package elfeed
   :config
-  (setq elfeed-curl-timeout 600))
+  (setq elfeed-curl-timeout 600)
+  (setq-default elfeed-search-filter ""))
 
 ;; translator
 (use-package gt