Move ‘org-mode@wc-stupid’ and try to make it smarterer

1 files changed, 11 insertions, 9 deletions

@@ -1373,6 +1373,17 @@ successive invocations."
   (advice-add 'org-delete-backward-char
               :override #'acdw-org/delete-backward-char)
 
+  (add-hook 'org-mode-hook
+            (defun org-mode@wc-stupid ()
+              (unless (and wc-mode
+                           (> 0 (+ wc-orig-words wc-words-delta))))
+              (setq-local
+               wc-count-words-function
+               (lambda (start end) "Count words stupidly with a limit."
+                 (acdw-org/count-words-stupidly start
+                                                end
+                                                999)))))
+  
   (setup (:straight org-appear)
     (:hook-into org-mode)))
 
@@ -1532,15 +1543,6 @@ successive invocations."
   
   (:hook-into text-mode)
 
-  (add-hook 'org-mode-hook
-            (defun org-mode@wc-stupid ()
-              (setq-local
-               wc-count-words-function
-               (lambda (start end) "Count words stupidly with a limit."
-                 (acdw-org/count-words-stupidly start
-                                                end
-                                                999)))))
-
   (defun acdw-modeline/wc ()
     "Display current `wc-buffer-stats'."
     (when (bound-and-true-p wc-mode)