diff options
| author | Case Duckworth | 2021-08-07 15:08:29 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-07 15:08:29 -0500 |
| commit | fbf108217494f9497168b0fe034a2880ec9fe25a (patch) | |
| tree | c86467285b1b2ef37e94089799e7df3436878739 /lisp | |
| parent | Change acdw-modeline requirement location (diff) | |
| download | emacs-fbf108217494f9497168b0fe034a2880ec9fe25a.tar.gz emacs-fbf108217494f9497168b0fe034a2880ec9fe25a.zip | |
Turn off ERC modeline when clocked in
Less distracting.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/acdw-modeline.el | 4 |
1 files changed, 3 insertions, 1 deletions
| diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index ccc07cb..db20b5a 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
| @@ -32,7 +32,9 @@ | |||
| 32 | 32 | ||
| 33 | (defun acdw-modeline/erc () | 33 | (defun acdw-modeline/erc () |
| 34 | "ERC indicator for the modeline." | 34 | "ERC indicator for the modeline." |
| 35 | (when (boundp 'erc-modified-channels-object) | 35 | (when (and (boundp 'erc-modified-channels-object) |
| 36 | (not (bound-and-true-p org-clock-current-task)) | ||
| 37 | ) | ||
| 36 | (format-mode-line erc-modified-channels-object))) | 38 | (format-mode-line erc-modified-channels-object))) |
| 37 | 39 | ||
| 38 | (defun acdw-modeline/god-mode-indicator () | 40 | (defun acdw-modeline/god-mode-indicator () |