From bde550449375a9f5f6dbc652cce2e017de9df835 Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Wed, 12 Jan 2022 19:23:39 +0800
Subject: Use the package "keycast"

Now I can conveniently display my key-bindings in the mode line.
---
 modeline.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'modeline.el')

diff --git a/modeline.el b/modeline.el
index 683bf3d..b244463 100644
--- a/modeline.el
+++ b/modeline.el
@@ -91,6 +91,8 @@
    (modeline-spc)
    (modeline-format-buffer-size)
    (modeline-spc)
+   (modeline-format-keycast)
+   (modeline-spc)
    (modeline-format-minor-modes)))
 
 ;;;###autoload
@@ -366,6 +368,18 @@ mouse-2: Show help for minor mode
 mouse-3: Toggle minor modes"
    mode-line-minor-mode-keymap))
 
+(defun modeline-format-keycast ()
+  "Format the keycast information."
+  (declare (side-effect-free t))
+  (modeline-propertize
+   (format-mode-line mode-line-keycast)
+   nil
+   "Minor mode
+mouse-1: Display minor mode menu
+mouse-2: Show help for minor mode
+mouse-3: Toggle minor modes"
+   mode-line-minor-mode-keymap))
+
 ;;; NOTE: The minor mode menu does not work with my custom mode line.
 
 ;;;###autoload
-- 
cgit v1.2.3-18-g5258