From 8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 24 Aug 2021 20:18:14 -0500
Subject: Disable erc-track-mode when clocked in

---
 init.el               | 4 ++++
 lisp/acdw-modeline.el | 4 +---
 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 @@
          erc-track-mode
          erc-truncate-mode)
 
+  ;; disable ERC tracking when working ... BE PRODUCTIVE!
+  (add-hook 'org-clock-in-hook #'erc-track-disable)
+  (add-hook 'org-clock-out-hook #'erc-track-enable)
+
   (:bind "C-c C-b" acdw-erc/erc-switch-to-buffer
          "C-c C-c" nil                  ; def: `erc-toggle-interpret-controls'
          )
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 @@
 
 (defun acdw-modeline/erc ()
   "ERC indicator for the modeline."
-  (when (and (boundp 'erc-modified-channels-object)
-             (not (bound-and-true-p org-clock-current-task))
-             )
+  (when (and (boundp 'erc-modified-channels-object))
     (format-mode-line erc-modified-channels-object)))
 
 (defun acdw-modeline/god-mode-indicator ()
-- 
cgit 1.4.1-21-gabe81