diff options
Diffstat (limited to 'bard-emacs-modules/bard-emacs-ui.el')
| -rw-r--r-- | bard-emacs-modules/bard-emacs-ui.el | 15 |
1 files changed, 15 insertions, 0 deletions
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 |