diff options
| author | Case Duckworth | 2021-08-13 17:06:36 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-13 17:06:36 -0500 |
| commit | a3601ca1d84c4c48bbbdd36f8c293bebfe9edc09 (patch) | |
| tree | 173cf306aa7cd43ba866557a06b4fee157fa2bec /init.el | |
| parent | Provide for when wc-mode isn't bound yet (diff) | |
| download | emacs-a3601ca1d84c4c48bbbdd36f8c293bebfe9edc09.tar.gz emacs-a3601ca1d84c4c48bbbdd36f8c293bebfe9edc09.zip | |
Edit `acdw-org/count-words-stupidly' to be even MOAR stupider
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 10 |
1 files changed, 7 insertions, 3 deletions
| diff --git a/init.el b/init.el index 68683cb..69aafac 100644 --- a/init.el +++ b/init.el | |||
| @@ -1498,14 +1498,18 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
| 1498 | (setup (:straight wc-mode) ; TODO: move some of this stuff around | 1498 | (setup (:straight wc-mode) ; TODO: move some of this stuff around |
| 1499 | 1499 | ||
| 1500 | (:option wc-modeline-format "[%tww]" | 1500 | (:option wc-modeline-format "[%tww]" |
| 1501 | wc-idle-wait 1) | 1501 | wc-idle-wait 0) |
| 1502 | 1502 | ||
| 1503 | (:hook-into text-mode) | 1503 | (:hook-into text-mode) |
| 1504 | 1504 | ||
| 1505 | (add-hook 'org-mode-hook | 1505 | (add-hook 'org-mode-hook |
| 1506 | (defun org-mode@wc-stupid () | 1506 | (defun org-mode@wc-stupid () |
| 1507 | (setq-local wc-count-words-function | 1507 | (setq-local |
| 1508 | #'acdw-org/count-words-stupidly))) | 1508 | wc-count-words-function |
| 1509 | (lambda (start end) "Count words stupidly with a limit." | ||
| 1510 | (acdw-org/count-words-stupidly start | ||
| 1511 | end | ||
| 1512 | 999))))) | ||
| 1509 | 1513 | ||
| 1510 | (defun acdw-modeline/wc () | 1514 | (defun acdw-modeline/wc () |
| 1511 | "Display current `wc-buffer-stats'." | 1515 | "Display current `wc-buffer-stats'." |