sqrtminusone/elfeed-summary
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/elfeed-summary.git synced 2025-12-10 17:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: save the database on elfeed-summary quit

Browse source
This commit is contained in:
Pavel Korytov 2022-03-30 14:43:34 +03:00
parent 7b58bb1beb
commit 2f351bed59
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
elfeed-summary.el
View file

@ -628,9 +628,7 @@ The return value is a list of alists of the following elements:
(set-keymap-parent map magit-section-mode-map) (set-keymap-parent map magit-section-mode-map)
(define-key map (kbd "RET") #'elfeed-summary--action) (define-key map (kbd "RET") #'elfeed-summary--action)
(define-key map (kbd "M-RET") #'elfeed-summary--action-show-read) (define-key map (kbd "M-RET") #'elfeed-summary--action-show-read)
(define-key map (kbd "q") (lambda () (define-key map (kbd "q") #'elfeed-summary-quit-window)
(interactive)
(quit-window t)))
(define-key map (kbd "r") #'elfeed-summary--refresh) (define-key map (kbd "r") #'elfeed-summary--refresh)
(define-key map (kbd "R") #'elfeed-summary-update) (define-key map (kbd "R") #'elfeed-summary-update)
(define-key map (kbd "u") #'elfeed-summary-toggle-only-unread) (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 (kbd "RET") #'elfeed-summary--action
"M-RET" #'elfeed-summary--action-show-read "M-RET" #'elfeed-summary--action-show-read
"U" #'elfeed-summary--action-mark-read "U" #'elfeed-summary--action-mark-read
"q" (lambda () "q" #'elfeed-summary-quit-window))
(interactive)
(quit-window t))))
map) map)
"A keymap for `elfeed-summary-mode-map'.") "A keymap for `elfeed-summary-mode-map'.")
@ -1098,6 +1094,12 @@ search buffer."
(elfeed-summary--refresh)) (elfeed-summary--refresh))
(elfeed-db-save))) (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 () (defun elfeed-summary--setup ()
"Setup elfeed summary." "Setup elfeed summary."
(advice-add #'elfeed-search-quit-window :override #'elfeed-summary--elfeed-search-quit)) (advice-add #'elfeed-search-quit-window :override #'elfeed-summary--elfeed-search-quit))