Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun my/elfeed-search-quit-and-kill-buffers ()
- "Save the database, then kill elfeed buffers, asking the user
- for confirmation when needed."
- (interactive)
- (elfeed-db-save)
- (let (buf)
- (dolist (file rmh-elfeed-org-files)
- (setq buf (file-name-nondirectory file))
- (when (and (buffer-modified-p buf)
- file
- (y-or-n-p (format "Save file %s? " file)))
- (with-current-buffer buf (save-buffer)))
- (kill-buffer buf)))
- (kill-buffer "*elfeed-log*")
- (kill-buffer (current-buffer)))
Add Comment
Please, Sign In to add comment