From 8b6264d266a6e77773c769697e965377eb0ff5ac Mon Sep 17 00:00:00 2001
From: BardofSprites <89086143+BardofSprites@users.noreply.github.com>
Date: Tue, 15 Jul 2025 18:19:09 -0400
Subject: keycast config for screenshare

---
 bard-emacs-modules/bard-emacs-ui.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/bard-emacs-modules/bard-emacs-ui.el b/bard-emacs-modules/bard-emacs-ui.el
index c180006..acdddcc 100644
--- a/bard-emacs-modules/bard-emacs-ui.el
+++ b/bard-emacs-modules/bard-emacs-ui.el
@@ -31,6 +31,21 @@
   :config
   (setq hl-todo-highlight-punctuation ":"))
 
+(use-package keycast
+  :ensure t
+  :commands (keycast-mode-line-mode keycast-header-line-mode keycast-tab-bar-mode keycast-log-mode)
+  :init
+  (setq keycast-mode-line-format "%2s%k%c%R")
+  (setq keycast-mode-line-insert-after 'prot-modeline-vc-branch)
+  (setq keycast-mode-line-window-predicate 'mode-line-window-selected-p)
+  (setq keycast-mode-line-remove-tail-elements nil)
+  :config
+  (dolist (input '(self-insert-command org-self-insert-command))
+    (add-to-list 'keycast-substitute-alist `(,input "." "Typing…")))
+
+  (dolist (event '("<mouse-event>" "<mouse-movement>" "<mouse-2>" "<drag-mouse-1>" "<wheel-up>" "<wheel-down>" "<double-wheel-up>" "<double-wheel-down>" "<triple-wheel-up>" "<triple-wheel-down>" "<wheel-left>" "<wheel-right>" handle-select-window mouse-set-point  mouse-drag-region))
+    (add-to-list 'keycast-substitute-alist `(,event nil nil))))
+
 (provide 'bard-emacs-ui)
 
 ;;; bard-emacs-ui.el ends here
-- 
cgit v1.2.3