jao-org-focus improvements, jao-words

1 files changed, 14 insertions, 2 deletions

diff --git a/custom/jao-custom-org.el b/custom/jao-custom-org.el
index 5a8306e..d971346 100644
--- a/custom/jao-custom-org.el
+++ b/custom/jao-custom-org.el
@@ -354,14 +354,26 @@
       (org-show-subtree))))
 (add-hook 'org-mode-hook 'jao-org--show-if-hidden t)
 
-;;; jao-org-focus
+;;; jao-org-focus and words
 (use-package jao-org-focus
   :commands (jao-org-focus org-focus-mode)
   :after org
   :config
   (with-eval-after-load "jao-custom-completion"
+    (defvar jao-org-focus-consult-buffer-source
+      `(:name "Focus buffers"
+              :category jao-org-focus-buffers
+              :action switch-to-buffer
+              :hidden t
+              :narrow ,(cons ?o "focus")
+              :history jao-org-focus--focused-history
+              :items ,(lambda () (mapcar 'buffer-name (jao-org-focus-list t)))))
     (jao-consult-add-buffer-source 'jao-org-focus-consult-buffer-source))
-  :bind ((:map org-mode-map (("C-M-o" . jao-org-focus)))))
+  :bind ((:map org-mode-map (("C-M-o" . jao-org-focus)))
+         (:map org-focus-mode-map (("\C-cW" . jao-words-show-stats)))))
+
+(use-package jao-words
+  :commands (jao-words-show-stats))
 
 ;;; Keybindings
 (define-key mode-specific-map [?a] 'org-agenda)