diff options
| author | Case Duckworth | 2021-08-07 15:14:27 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-07 15:14:27 -0500 |
| commit | 6619e7067eb40e15e501f84c03f205c4634ee0a2 (patch) | |
| tree | c08c91564061f7647dc0b2ea458ca3af0bb67ecf /lisp/acdw-modeline.el | |
| parent | Add C-g to quit re-builder (diff) | |
| parent | Merge branch 'main' of tildegit.org:acdw/emacs (diff) | |
| download | emacs-6619e7067eb40e15e501f84c03f205c4634ee0a2.tar.gz emacs-6619e7067eb40e15e501f84c03f205c4634ee0a2.zip | |
Merge branch 'main' of https://tildegit.org/acdw/emacs
Diffstat (limited to 'lisp/acdw-modeline.el')
| -rw-r--r-- | lisp/acdw-modeline.el | 6 |
1 files changed, 4 insertions, 2 deletions
| diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index ccc07cb..6131484 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 () |
| @@ -116,6 +118,6 @@ Uses `acdw-modeline/word-count-modes' to determine which function to use." | |||
| 116 | #'count-words)) | 118 | #'count-words)) |
| 117 | (min (if (region-active-p) (region-beginning) (point-min))) | 119 | (min (if (region-active-p) (region-beginning) (point-min))) |
| 118 | (max (if (region-active-p) (region-end) (point-max)))) | 120 | (max (if (region-active-p) (region-end) (point-max)))) |
| 119 | (format "%dW" (funcall fn min max))))) | 121 | (format " %dW" (funcall fn min max))))) |
| 120 | 122 | ||
| 121 | (provide 'acdw-modeline) | 123 | (provide 'acdw-modeline) |