Try `keycast' again

This commit is contained in:
Gerard Vermeulen 2023-12-05 12:01:40 +01:00
parent 5d1dbc21f0
commit 14b66c9b67

View File

@ -301,6 +301,7 @@ recommendation of [[info:emacs#Saving Customizations][saving customizations (inf
(f . "melpa-stable")
(git-commit . "nongnu")
(hyperbole . "gnu-devel")
(keycast . "nongnu")
(magit . "nongnu")
(magit-section . "nongnu")
(marginalia . "gnu-devel")
@ -1138,10 +1139,9 @@ Enable it and re-execute it."
#+end_src
** [[https://github.com/tarsius/keycast#readme][Keycast]] :noexport:
** [[https://github.com/tarsius/keycast#readme][Keycast]]
:PROPERTIES:
:CUSTOM_ID: sec:keycast
:header-args:emacs-lisp: :tangle no :eval never-export
:END:
Listing [[lst:configure-keycast]] configures =keycast=.
@ -1152,9 +1152,9 @@ Listing [[lst:configure-keycast]] configures =keycast=.
#+begin_src emacs-lisp -n :results silent
;; Make `keycast-log-update-buffer' use a buffer similar to the
;; control buffer `ediff-setup-windows-plain' returns.
(when (and (ensure-package-installation 'keycast)
(require 'keycast nil 'noerror))
(setopt keycast-mode-line-window-predicate 'keycast-bottom-right-window-p)
(when (ensure-package-installation 'keycast)
(setopt keycast-log-newest-first t
keycast-mode-line-window-predicate #'keycast-bottom-right-window-p)
(defun keycast-log-update-buffer-plain ()
(let ((buffer (get-buffer keycast-log-buffer-name)))