Try interaction-log instead of keycast

This commit is contained in:
Gerard Vermeulen 2022-05-13 04:00:02 +02:00
parent 87a8628891
commit bd2be8f1bd

View File

@ -215,7 +215,6 @@ The [[info:emacs#Init File][init file (info)]] does not load the ~custom-file~ a
embark ; act on any buffer selection embark ; act on any buffer selection
htmlize ; convert buffer contents to HTML htmlize ; convert buffer contents to HTML
iedit ; simultaneous multi-entity editing iedit ; simultaneous multi-entity editing
keycast ; show current command with binding
magit ; Git Text-based User Interface magit ; Git Text-based User Interface
marginalia ; minibuffer margin notes marginalia ; minibuffer margin notes
no-littering ; keep `user-emacs-directory' clean no-littering ; keep `user-emacs-directory' clean
@ -699,9 +698,37 @@ users from shooting themselves in the feet. Listing
(call-interactively this-command)))) (call-interactively this-command))))
#+end_src #+end_src
** [[https://github.com/tarsius/keycast#readme][Keycast]] ** [[https://github.com/michael-heerdegen/interaction-log.el#readme][Interaction-log]]
:PROPERTIES:
:CUSTOM_ID: sec:interaction-log
:END:
#+caption[Configure =interaction-log=]:
#+caption: Configure =interaction-log=.
#+name: lst:configure-interaction-log
#+begin_src emacs-lisp
(when (and (ensure-package-installation 'interaction-log)
(require 'interaction-log nil 'noerror))
(defun ilog-ensure-ilog-buffer-window ()
(unless (get-buffer-window ilog-buffer-name)
(display-buffer (get-buffer ilog-buffer-name))))
(defun toggle-ilog-timer-function-after ()
"Toggle `ilog-timer-function' advice."
(interactive)
(toggle-advice 'ilog-timer-function :after #'ilog-ensure-ilog-buffer-window))
(toggle-ilog-timer-function-after)
(define-key help-map (kbd "C-l") #'interaction-log-mode))
#+end_src
** [[https://github.com/tarsius/keycast#readme][Keycast]] :noexport:
:PROPERTIES: :PROPERTIES:
:CUSTOM_ID: sec:keycast :CUSTOM_ID: sec:keycast
:header-args:emacs-lisp: :tangle no
:END: :END:
Listing [[lst:configure-keycast]] configures =keycast=. Listing [[lst:configure-keycast]] configures =keycast=.
@ -712,7 +739,8 @@ Listing [[lst:configure-keycast]] configures =keycast=.
#+begin_src emacs-lisp #+begin_src emacs-lisp
;; Make `keycast-log-update-buffer' use a buffer similar to the ;; Make `keycast-log-update-buffer' use a buffer similar to the
;; control buffer `ediff-setup-windows-plain' returns. ;; control buffer `ediff-setup-windows-plain' returns.
(when (require 'keycast nil 'noerror) (when (and (ensure-package-installation 'keycast)
(require 'keycast nil 'noerror))
(custom-set-variables (custom-set-variables
'(keycast-mode-line-window-predicate 'keycast-bottom-right-window-p)) '(keycast-mode-line-window-predicate 'keycast-bottom-right-window-p))