about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-08-24 20:18:14 -0500
committerCase Duckworth2021-08-24 20:19:09 -0500
commit8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c (patch)
tree603d33ac356a42c71bebc50f14ca1d9077f32893
parentIDK change stuff (diff)
downloademacs-8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c.tar.gz
emacs-8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c.zip
Disable erc-track-mode when clocked in
-rw-r--r--init.el4
-rw-r--r--lisp/acdw-modeline.el4
2 files changed, 5 insertions, 3 deletions
diff --git a/init.el b/init.el index 693f046..123e8b2 100644 --- a/init.el +++ b/init.el
@@ -328,6 +328,10 @@
328 erc-track-mode 328 erc-track-mode
329 erc-truncate-mode) 329 erc-truncate-mode)
330 330
331 ;; disable ERC tracking when working ... BE PRODUCTIVE!
332 (add-hook 'org-clock-in-hook #'erc-track-disable)
333 (add-hook 'org-clock-out-hook #'erc-track-enable)
334
331 (:bind "C-c C-b" acdw-erc/erc-switch-to-buffer 335 (:bind "C-c C-b" acdw-erc/erc-switch-to-buffer
332 "C-c C-c" nil ; def: `erc-toggle-interpret-controls' 336 "C-c C-c" nil ; def: `erc-toggle-interpret-controls'
333 ) 337 )
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index f1e7d27..6a19428 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -33,9 +33,7 @@
33 33
34(defun acdw-modeline/erc () 34(defun acdw-modeline/erc ()
35 "ERC indicator for the modeline." 35 "ERC indicator for the modeline."
36 (when (and (boundp 'erc-modified-channels-object) 36 (when (and (boundp 'erc-modified-channels-object))
37 (not (bound-and-true-p org-clock-current-task))
38 )
39 (format-mode-line erc-modified-channels-object))) 37 (format-mode-line erc-modified-channels-object)))
40 38
41(defun acdw-modeline/god-mode-indicator () 39(defun acdw-modeline/god-mode-indicator ()