From 98957a40f1de7cc5988c6bd421a8c5e82464d9db Mon Sep 17 00:00:00 2001
From: Daniel Weschke <daniel.weschke@directbox.de>
Date: Sat, 27 Jun 2026 20:16:29 +0200
Subject: [PATCH] add org word count function for file(s)

---
 settings/org-settings.el | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/settings/org-settings.el b/settings/org-settings.el
index c2e91f8c..d8b72b57 100644
--- a/settings/org-settings.el
+++ b/settings/org-settings.el
@@ -742,6 +742,36 @@ Suggest the URL title as a description for resource."
 (use-package org-tempo  ;; expand <s to a src block, ...
   :after (org))
 
+(use-package org-wc
+  :defer t
+  :commands (org-word-count-aux my-org-word-count-file my-org-word-count-files)
+  :config
+  (defun my-org-word-count-file (FILE)
+    "Count words in FILE.
+Example: (my-org-word-count-file \"/opt/emacs-conf/lisp/org-ref/org-ref.org\")"
+    (interactive "fTarget file: ") ; "f" prompts the user for a file path interactively
+    (save-excursion
+      (let ((buf (find-file-noselect FILE)))
+        (with-current-buffer buf
+          (let ((count (org-word-count-aux (point-min) (point-max))))
+            (if (called-interactively-p 'interactive)
+                (message "%i" count)
+              count))))))
+  (defun my-org-word-count-files (FILES)
+    "Count words in FILES.
+
+Example:
+  (my-org-word-count-files
+   (list \"/opt/emacs-conf/lisp/my/my-org-article.org\"
+         \"/opt/emacs-conf/lisp/org-ref/org-ref.org\"))
+
+  (my-org-word-count-files \"/opt/emacs-conf/lisp/org-ref/org-ref.org\")"
+    (unless (listp FILES)
+        (setq FILES (list FILES)))
+    (apply '+ (mapcar (lambda (file)
+                        (my-org-word-count-file file))
+                      FILES))))
+
 (use-package ob-core
   ;; :hook (org-babel-after-execute . org-redisplay-inline-images)
   :commands (by-backend svg-fname)