diff options
| author | Case Duckworth | 2022-02-28 09:40:24 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-02-28 09:40:24 -0600 |
| commit | f65f4387b8f196f63ec78189b69bb337c1c558f3 (patch) | |
| tree | 62db754ddd527cbbdb2df07b32910a341882fbbf /lisp | |
| parent | Add input method to the modeline (diff) | |
| download | emacs-f65f4387b8f196f63ec78189b69bb337c1c558f3.tar.gz emacs-f65f4387b8f196f63ec78189b69bb337c1c558f3.zip | |
Fix elfeed-update-async niceness
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+elfeed.el | 9 |
1 files changed, 8 insertions, 1 deletions
| diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el index 85d9c3b..ac316c4 100644 --- a/lisp/+elfeed.el +++ b/lisp/+elfeed.el | |||
| @@ -40,6 +40,10 @@ | |||
| 40 | 40 | ||
| 41 | (defvar +elfeed--update-running nil "Whether an update is currently running.") | 41 | (defvar +elfeed--update-running nil "Whether an update is currently running.") |
| 42 | (defvar +elfeed--update-count 0 "How many times `+elfeed-update-command' has run.") | 42 | (defvar +elfeed--update-count 0 "How many times `+elfeed-update-command' has run.") |
| 43 | (defcustom +elfeed-update-niceness 15 | ||
| 44 | "How \"nice\" `+elfeed-update-command' should be." | ||
| 45 | :type 'integer | ||
| 46 | :group 'elfeed) | ||
| 43 | 47 | ||
| 44 | (defun +elfeed-update-command () | 48 | (defun +elfeed-update-command () |
| 45 | (interactive) | 49 | (interactive) |
| @@ -104,7 +108,10 @@ | |||
| 104 | (message update-message-format "start") | 108 | (message update-message-format "start") |
| 105 | (set-process-sentinel (start-process-shell-command | 109 | (set-process-sentinel (start-process-shell-command |
| 106 | "Elfeed" "*+elfeed-update-background*" | 110 | "Elfeed" "*+elfeed-update-background*" |
| 107 | (format "nice -%d %s %s" 15 "emacs -Q --script" script)) | 111 | (format "nice -n %d %s %s" |
| 112 | +elfeed-update-niceness | ||
| 113 | "emacs -Q --script" | ||
| 114 | script)) | ||
| 108 | (lambda (proc stat) | 115 | (lambda (proc stat) |
| 109 | (advice-remove 'elfeed #'+elfeed--update-message) | 116 | (advice-remove 'elfeed #'+elfeed--update-message) |
| 110 | (setq +elfeed--update-running nil) | 117 | (setq +elfeed--update-running nil) |