diff options
| author | Case Duckworth | 2021-08-24 20:18:14 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-24 20:19:09 -0500 |
| commit | 8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c (patch) | |
| tree | 603d33ac356a42c71bebc50f14ca1d9077f32893 | |
| parent | IDK change stuff (diff) | |
| download | emacs-8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c.tar.gz emacs-8c3cbdd2628c3c92bc44efa3e4627160de2f4f7c.zip | |
Disable erc-track-mode when clocked in
| -rw-r--r-- | init.el | 4 | ||||
| -rw-r--r-- | 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 @@ | |||
| 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 () |