summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2025-11-19 17:40:17 +0000
committerjao <jao@gnu.org>2025-11-19 17:40:17 +0000
commita04d19d6713c2e254b77b66648e99683e0fc54b2 (patch)
tree99d1181e4cd5f53e47cb265bf5dd0a672572fda4
parent0bf664c5a05534bdf12a698c2c18f325f090d0a6 (diff)
downloadelibs-a04d19d6713c2e254b77b66648e99683e0fc54b2.tar.gz
elibs-a04d19d6713c2e254b77b66648e99683e0fc54b2.tar.bz2
org-focus tweaksmain
-rw-r--r--lib/doc/jao-org-focus.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/doc/jao-org-focus.el b/lib/doc/jao-org-focus.el
index e9d6ed2..7a73029 100644
--- a/lib/doc/jao-org-focus.el
+++ b/lib/doc/jao-org-focus.el
@@ -47,7 +47,8 @@ When invoked on an indirect buffer, pops back to its base."
(setq jao-org-focus--parent parent
jao-org-focus--section title)
(org-narrow-to-subtree)
- (show-subtree)))))
+ (show-subtree)
+ (count-words (point-min) (point-max))))))
(defun jao-org-focus-redisplay ()
"Redisplay a focused buffer.
@@ -103,7 +104,8 @@ With arg, offer to switch to all children, regardless of their parent."
:lighter " ◎"
:keymap '(("\C-cl" . jao-org-focus-switch)
("\C-cR" . jao-org-focus-redisplay)
- ("\C-co" . jao-org-focus))
+ ("\C-co" . jao-org-focus)
+ ("\C-cw" . count-words))
(if org-focus-mode
(add-hook 'after-save-hook #'jao-org-focus-redisplay-children nil t)
(remove-hook 'after-save-hook #'jao-org-focus-redisplay-children t)))