Add support for keycast

Author: jcs090218

Eask

@@ -17,5 +17,6 @@
 (depends-on "echo-bar")
 (depends-on "indent-control")
 (depends-on "show-eol")
+(depends-on "keycast")
 
 (setq network-security-level 'low)  ; see https://github.com/jcs090218/setup-emacs-windows/issues/156#issuecomment-932956432

jcs-echobar.el

@@ -6,7 +6,7 @@
 ;; Maintainer: Shen, Jen-Chieh <jcs090218@gmail.com>
 ;; URL: https://github.com/jcs-emacs/jcs-echobar
 ;; Version: 0.1.0
-;; Package-Requires: ((emacs "26.1") (echo-bar "1.0.0") (indent-control "0.1.0") (show-eol "0.1.0"))
+;; Package-Requires: ((emacs "26.1") (echo-bar "1.0.0") (indent-control "0.1.0") (show-eol "0.1.0") (keycast "1.2.0"))
 ;; Keywords: faces echo-bar
 
 ;; This file is not part of GNU Emacs.
@@ -34,6 +34,7 @@
 (require 'echo-bar)
 (require 'indent-control)
 (require 'show-eol)
+(require 'keycast)
 
 (defgroup jcs-echobar nil
   "An echo-bar for jcs-emacs."
@@ -42,15 +43,19 @@
   :link '(url-link :tag "Github" "https://github.com/jcs-emacs/jcs-echobar"))
 
 (defcustom jcs-echobar-render
-  `((:eval (jcs-echobar--render-spaces-tabs-size))
+  `((:eval (jcs-echobar--render-keycast))
+    (:eval (jcs-echobar--render-spaces-tabs-size))
     (:eval (jcs-echobar--render-coding-system))
     (:eval (jcs-echobar--render-eol))
     (:eval (jcs-echobar--render-time)))
   "List of item to render in echo-bar."
   :type 'list
   :group 'jcs-echobar)
 
-(defvar jcs-echobar--render nil)
+(defcustom jcs-echobar-keycast-format "%K%C%R   "
+  "The keycast format spec."
+  :type 'string
+  :group 'jcs-echobar)
 
 ;;
 ;; (@* "Externals" )
@@ -68,6 +73,10 @@
 
 (defun jcs-echobar--enable ()
   "Enable function `jcs-echobar-mode'."
+  (progn  ; keycast
+    (add-hook 'post-command-hook #'keycast--update t)
+    (add-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit t)
+    (advice-add 'keycast--update :after #'jcs-echobar--keycast-update))
   (add-hook 'window-size-change-functions #'jcs-echobar--window-resize)
   (jcs-echobar--window-resize)  ; call it manually once
   (setq jcs-echobar--default-function echo-bar-function)
@@ -76,6 +85,10 @@
 
 (defun jcs-echobar--disable ()
   "Disable function `jcs-echobar-mode'."
+  (progn  ; keycast
+    (remove-hook 'post-command-hook #'keycast--update)
+    (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit)
+    (advice-remove 'keycast--update #'jcs-echobar--keycast-update))
   (remove-hook 'window-size-change-functions #'jcs-echobar--window-resize)
   (setq echo-bar-function jcs-echobar--default-function)
   (echo-bar-mode -1))
@@ -116,6 +129,8 @@
 ;; (@* "Core" )
 ;;
 
+(defvar jcs-echobar--render nil)
+
 (defun jcs-echobar--window-resize (&rest _)
   "Window resize hook."
   (setq jcs-echobar--render nil)  ; reset
@@ -133,6 +148,11 @@
   "Render the echo-bar."
   (mapconcat #'format-mode-line jcs-echobar--render ""))
 
+(defun jcs-echobar--keycast-update (&rest _)
+  "Exection after `keycast-update' function."
+  (when (bound-and-true-p jcs-echobar-mode)
+    (echo-bar-update)))
+
 ;;
 ;; (@* "Plugins" )
 ;;
@@ -155,5 +175,10 @@
   "Render time."
   (format-time-string "%b %d, %Y %H:%M:%S"))
 
+(defun jcs-echobar--render-keycast ()
+  "Render `keycast'."
+  (when (featurep 'keycast)
+    (keycast--format jcs-echobar-keycast-format)))
+
 (provide 'jcs-echobar)
 ;;; jcs-echobar.el ends here