1 files changed, 22 insertions, 1 deletions

@@ -296,7 +296,7 @@ See `line-number-mode', `column-number-mode', `file-percentage-mode'"
                                                 (interactive "e")
                                                 (with-selected-window
                                                     (posn-window
-                                                     (event-start ev))
+                                                     (event-start e))
                                                   (god-local-mode -1)
                                                   (force-mode-line-update)))))
                         'mouse-face 'mode-line-highlight))))
@@ -326,5 +326,26 @@ See `line-number-mode', `column-number-mode', `file-percentage-mode'"
                                       map))
                         'mouse-face 'mode-line-highlight))))
 
+(defface +modeline-kmacro-indicator '((t :foreground "Firebrick"))
+  "Face for the kmacro indicator in the modeline.")
+
+(defun +modeline-kmacro-indicator (&optional spacer)
+  "Display an indicator when recording a kmacro."
+  (when defining-kbd-macro
+    (concat (or spacer +modeline-default-spacer)
+            (propertize "●"
+                        'face '+modeline-kmacro-indicator
+                        'help-echo (format (concat "Defining a macro\n"
+                                                   "Current step: %d\n"
+                                                   "mouse-1: Stop recording")
+                                           kmacro-counter)
+                        'local-map (purecopy (simple-modeline-make-mouse-map
+                                              'mouse-1 (lambda (e)
+                                                         (interactive "e")
+                                                         (with-selected-window
+                                                             (posn-window (event-start e))
+                                                           (kmacro-end-macro nil)))))
+                        'mouse-face 'mode-line-highlight))))
+
 (provide '+modeline)
 ;;; +modeline.el ends here