From 2f351bed59e251b53b884f8c59f828a352d56269 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Wed, 30 Mar 2022 14:43:34 +0300 Subject: [PATCH] feat: save the database on elfeed-summary quit --- elfeed-summary.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/elfeed-summary.el b/elfeed-summary.el index 5167d1c..952d2dd 100644 --- a/elfeed-summary.el +++ b/elfeed-summary.el @@ -628,9 +628,7 @@ The return value is a list of alists of the following elements: (set-keymap-parent map magit-section-mode-map) (define-key map (kbd "RET") #'elfeed-summary--action) (define-key map (kbd "M-RET") #'elfeed-summary--action-show-read) - (define-key map (kbd "q") (lambda () - (interactive) - (quit-window t))) + (define-key map (kbd "q") #'elfeed-summary-quit-window) (define-key map (kbd "r") #'elfeed-summary--refresh) (define-key map (kbd "R") #'elfeed-summary-update) (define-key map (kbd "u") #'elfeed-summary-toggle-only-unread) @@ -644,9 +642,7 @@ The return value is a list of alists of the following elements: (kbd "RET") #'elfeed-summary--action "M-RET" #'elfeed-summary--action-show-read "U" #'elfeed-summary--action-mark-read - "q" (lambda () - (interactive) - (quit-window t)))) + "q" #'elfeed-summary-quit-window)) map) "A keymap for `elfeed-summary-mode-map'.") @@ -1098,6 +1094,12 @@ search buffer." (elfeed-summary--refresh)) (elfeed-db-save))) +(defun elfeed-summary-quit-window () + "Save the database, then `quit-window'." + (interactive) + (elfeed-db-save) + (quit-window t)) + (defun elfeed-summary--setup () "Setup elfeed summary." (advice-add #'elfeed-search-quit-window :override #'elfeed-summary--elfeed-search-quit))