diff options
author | Case Duckworth | 2021-08-12 14:22:52 -0500 |
---|---|---|
committer | Case Duckworth | 2021-08-12 14:22:52 -0500 |
commit | acf8229674bb1ba6be0f136ca8bbf51f47aeeb52 (patch) | |
tree | 8fc95a3d50c6cc2b2072cc50ff4d408c6b5f9670 | |
parent | Break lambda out into function (diff) | |
download | emacs-acf8229674bb1ba6be0f136ca8bbf51f47aeeb52.tar.gz emacs-acf8229674bb1ba6be0f136ca8bbf51f47aeeb52.zip |
Change my word-count stuff to use wc-mode
More efficient (well, it doesn't block anyway)
-rw-r--r-- | init.el | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/init.el b/init.el index 0883a38..3475aa9 100644 --- a/init.el +++ b/init.el | |||
@@ -1391,7 +1391,8 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
1391 | acdw-modeline/position) | 1391 | acdw-modeline/position) |
1392 | (simple-modeline-segment-misc-info | 1392 | (simple-modeline-segment-misc-info |
1393 | acdw-modeline/erc | 1393 | acdw-modeline/erc |
1394 | acdw-modeline/word-count | 1394 | ;; acdw-modeline/word-count |
1395 | acdw-modeline/wc | ||
1395 | acdw-modeline/text-scale | 1396 | acdw-modeline/text-scale |
1396 | simple-modeline-segment-process | 1397 | simple-modeline-segment-process |
1397 | acdw-modeline/god-mode-indicator | 1398 | acdw-modeline/god-mode-indicator |
@@ -1479,7 +1480,21 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
1479 | cand)) | 1480 | cand)) |
1480 | (advice-add #'vertico--format-candidate :around #'vertico-format@add-arrow)) | 1481 | (advice-add #'vertico--format-candidate :around #'vertico-format@add-arrow)) |
1481 | 1482 | ||
1483 | (setup (:straight wc-mode) ; TODO: move some of this stuff around | ||
1484 | |||
1485 | (:option wc-modeline-format "[%tww]" | ||
1486 | wc-idle-wait 1) | ||
1482 | 1487 | ||
1488 | (:hook-into text-mode) | ||
1489 | |||
1490 | (add-hook 'org-mode-hook | ||
1491 | (defun org-mode@wc-stupid () | ||
1492 | (setq-local wc-count-words-function | ||
1493 | #'acdw-org/count-words-stupidly))) | ||
1494 | |||
1495 | (defun acdw-modeline/wc () | ||
1496 | "Display current `wc-buffer-stats'." | ||
1497 | (or wc-buffer-stats "[w]"))) | ||
1483 | 1498 | ||
1484 | (setup (:straight web-mode) | 1499 | (setup (:straight web-mode) |
1485 | (:option css-level-offset 2 | 1500 | (:option css-level-offset 2 |