diff options
| author | Case Duckworth | 2022-01-21 16:34:55 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-21 16:34:55 -0600 |
| commit | adf815b61bfd850e948e60b743ce48b0ff42d901 (patch) | |
| tree | 124851afc4f05ed898fc5ee2e7c0cfdab25fc06f /lisp/+elfeed.el | |
| parent | Fix mode-line-bell recipe (diff) | |
| download | emacs-adf815b61bfd850e948e60b743ce48b0ff42d901.tar.gz emacs-adf815b61bfd850e948e60b743ce48b0ff42d901.zip | |
Two out of three ain't bad
Diffstat (limited to 'lisp/+elfeed.el')
| -rw-r--r-- | lisp/+elfeed.el | 7 |
1 files changed, 4 insertions, 3 deletions
| diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el index ef93347..47ada47 100644 --- a/lisp/+elfeed.el +++ b/lisp/+elfeed.el | |||
| @@ -40,8 +40,9 @@ | |||
| 40 | 40 | ||
| 41 | (defun +elfeed-update-command () | 41 | (defun +elfeed-update-command () |
| 42 | (interactive) | 42 | (interactive) |
| 43 | (let ((script (expand-file-name "~/.local/bin/elfeed"))) | 43 | (let ((script (expand-file-name "~/.local/bin/elfeed")) |
| 44 | (message "[Elfeed] Updating in the background.") | 44 | (update-message-format "[Elfeed] Updating in the background...%s")) |
| 45 | (message update-message-format "") | ||
| 45 | (setq +elfeed--update-running t) | 46 | (setq +elfeed--update-running t) |
| 46 | (elfeed-db-save) | 47 | (elfeed-db-save) |
| 47 | (advice-add 'elfeed :override #'+elfeed--update-message) | 48 | (advice-add 'elfeed :override #'+elfeed--update-message) |
| @@ -69,7 +70,7 @@ | |||
| 69 | (lambda (a b) | 70 | (lambda (a b) |
| 70 | (advice-remove 'elfeed #'+elfeed--update-message) | 71 | (advice-remove 'elfeed #'+elfeed--update-message) |
| 71 | (setq +elfeed--update-running nil) | 72 | (setq +elfeed--update-running nil) |
| 72 | (message "[Elfeed] Background update %s." | 73 | (message update-message-format |
| 73 | (string-trim b)))))) | 74 | (string-trim b)))))) |
| 74 | 75 | ||
| 75 | (defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.") | 76 | (defvar +elfeed--update-timer nil "Timer for `elfeed-update-command'.") |