summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-08-07 15:08:29 -0500
committerCase Duckworth2021-08-07 15:08:29 -0500
commitfbf108217494f9497168b0fe034a2880ec9fe25a (patch)
treec86467285b1b2ef37e94089799e7df3436878739
parentChange acdw-modeline requirement location (diff)
downloademacs-fbf108217494f9497168b0fe034a2880ec9fe25a.tar.gz
emacs-fbf108217494f9497168b0fe034a2880ec9fe25a.zip
Turn off ERC modeline when clocked in
Less distracting.
-rw-r--r--lisp/acdw-modeline.el4
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 ()