From bd2be8f1bd0d3cc79d81c1b511d1103cf18365de Mon Sep 17 00:00:00 2001 From: Gerard Vermeulen Date: Fri, 13 May 2022 04:00:02 +0200 Subject: [PATCH] Try interaction-log instead of keycast --- README.org | 34 +++++++++++++++++++++++++++++++--- 1 file changed, 31 insertions(+), 3 deletions(-) diff --git a/README.org b/README.org index e98906d..2a8f835 100644 --- a/README.org +++ b/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))