diff options
| author | Case Duckworth | 2022-05-09 20:36:32 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-09 20:36:32 -0500 |
| commit | 3cb2f98be42b53aeea5edb65c9c1bde08a8496b1 (patch) | |
| tree | de71c6862970519cc34e5cc38119b4d25d5c0362 /lisp/+elfeed.el | |
| parent | Don't query to install pdf-tools (diff) | |
| download | emacs-3cb2f98be42b53aeea5edb65c9c1bde08a8496b1.tar.gz emacs-3cb2f98be42b53aeea5edb65c9c1bde08a8496b1.zip | |
meh
Diffstat (limited to 'lisp/+elfeed.el')
| -rw-r--r-- | lisp/+elfeed.el | 12 |
1 files changed, 8 insertions, 4 deletions
| diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el index c0b74f0..9257c8d 100644 --- a/lisp/+elfeed.el +++ b/lisp/+elfeed.el | |||
| @@ -105,10 +105,14 @@ If multiple items are selected, don't advance." | |||
| 105 | (elfeed-db-load) | 105 | (elfeed-db-load) |
| 106 | (elfeed-update) | 106 | (elfeed-update) |
| 107 | ;; Wait for `elfeed-update' to finish | 107 | ;; Wait for `elfeed-update' to finish |
| 108 | (while (> (elfeed-queue-count-total) 0) | 108 | (let ((q<5-count 0)) |
| 109 | (sleep-for 5) | 109 | (while (and (> (elfeed-queue-count-total) 0) |
| 110 | (message "%s" (elfeed-queue-count-total)) | 110 | (< q<5-count 5)) |
| 111 | (accept-process-output)) | 111 | (sleep-for 5) |
| 112 | (message "Elfeed queue count total: %s" (elfeed-queue-count-total)) | ||
| 113 | (when (< (elfeed-queue-count-total) 5) | ||
| 114 | (cl-incf q<5-count)) | ||
| 115 | (accept-process-output))) | ||
| 112 | ;; Garbage collect and save the database | 116 | ;; Garbage collect and save the database |
| 113 | (elfeed-db-gc) | 117 | (elfeed-db-gc) |
| 114 | (elfeed-db-save) | 118 | (elfeed-db-save) |