From fbf108217494f9497168b0fe034a2880ec9fe25a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 7 Aug 2021 15:08:29 -0500
Subject: Turn off ERC modeline when clocked in

Less distracting.
---
 lisp/acdw-modeline.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lisp/acdw-modeline.el')

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 @@
 
 (defun acdw-modeline/erc ()
   "ERC indicator for the modeline."
-  (when (boundp 'erc-modified-channels-object)
+  (when (and (boundp 'erc-modified-channels-object)
+             (not (bound-and-true-p org-clock-current-task))
+             )
     (format-mode-line erc-modified-channels-object)))
 
 (defun acdw-modeline/god-mode-indicator ()
-- 
cgit 1.4.1-21-gabe81


From 3c7f8650359ce129ab6019f7db7d9d7723428ff7 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 7 Aug 2021 15:08:53 -0500
Subject: Add space to word-count modeline

Honestly I should make the format a customizable variable.
---
 lisp/acdw-modeline.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/acdw-modeline.el')

diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el
index db20b5a..6131484 100644
--- a/lisp/acdw-modeline.el
+++ b/lisp/acdw-modeline.el
@@ -118,6 +118,6 @@ Uses `acdw-modeline/word-count-modes' to determine which function to use."
                   #'count-words))
           (min (if (region-active-p) (region-beginning) (point-min)))
           (max (if (region-active-p) (region-end) (point-max))))
-      (format "%dW" (funcall fn min max)))))
+      (format " %dW" (funcall fn min max)))))
 
 (provide 'acdw-modeline)
-- 
cgit 1.4.1-21-gabe81