about summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
authorCase Duckworth2021-08-12 14:22:52 -0500
committerCase Duckworth2021-08-12 14:22:52 -0500
commitacf8229674bb1ba6be0f136ca8bbf51f47aeeb52 (patch)
tree8fc95a3d50c6cc2b2072cc50ff4d408c6b5f9670 /init.el
parentBreak lambda out into function (diff)
downloademacs-acf8229674bb1ba6be0f136ca8bbf51f47aeeb52.tar.gz
emacs-acf8229674bb1ba6be0f136ca8bbf51f47aeeb52.zip
Change my word-count stuff to use wc-mode
More efficient (well, it doesn't block anyway)
Diffstat (limited to 'init.el')
-rw-r--r--init.el17
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