Try interaction-log instead of keycast

README.org

@@ -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
        htmlize            ; convert buffer contents to HTML
        iedit              ; simultaneous multi-entity editing
-       keycast            ; show current command with binding
        magit              ; Git Text-based User Interface
        marginalia         ; minibuffer margin notes
        no-littering       ; keep `user-emacs-directory' clean
@@ -699,9 +698,37 @@ users from shooting themselves in the feet.  Listing
             (call-interactively this-command))))
 #+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:
 :CUSTOM_ID: sec:keycast
+:header-args:emacs-lisp: :tangle no
 :END:
 
 Listing [[lst:configure-keycast]] configures =keycast=.
@@ -712,7 +739,8 @@ Listing [[lst:configure-keycast]] configures =keycast=.
 #+begin_src emacs-lisp
   ;; Make `keycast-log-update-buffer' use a buffer similar to the
   ;; 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
      '(keycast-mode-line-window-predicate 'keycast-bottom-right-window-p))