[elpa] externals/indent-bars cf411a485c 181/431: Use timer to rate-limit current depth highlight

[ELPA Syncer]

branch: externals/indent-bars
commit cf411a485c1c91a64dd12c058418ed37450fd72f
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    Use timer to rate-limit current depth highlight
---
 indent-bars.el | 27 +++++++++++++++++----------
 1 file changed, 17 insertions(+), 10 deletions(-)

diff --git a/indent-bars.el b/indent-bars.el
index 33b4897549..9ab3a87b58 100644
--- a/indent-bars.el
+++ b/indent-bars.el
@@ -1014,7 +1014,6 @@ ROT are as in `indent-bars--stipple', and have similar 
default values."
        (setq indent-bars--current-depth-stipple
              (indent-bars--stipple w h rot width pad pattern zigzag))))))
 
-(defvar-local indent-bars--highlight-last-time (current-time))
 (defvar-local indent-bars--highlight-timer nil)
 (defun indent-bars--update-current-depth-highlight (depth)
   "Update highlight for the current DEPTH.
@@ -1035,15 +1034,23 @@ DEPTH should be greater than zero."
                         `(:stipple ,indent-bars--current-depth-stipple))))))))
 
 (defun indent-bars--highlight-current-depth ()
-  "Refresh current indentation depth highlight."
-  (when (or (zerop indent-bars-depth-update-delay)
-           (> (float-time (time-since indent-bars--highlight-last-time))
-              indent-bars-depth-update-delay))
-    (setq indent-bars--highlight-last-time (current-time))  
-    (let* ((depth (indent-bars--current-indentation-depth 'on-bar)))
-      (when (and depth (not (= depth indent-bars--current-depth)) (> depth 0))
-       (setq indent-bars--current-depth depth)
-       (indent-bars--update-current-depth-highlight depth)))))
+  "Refresh current indentation depth highlight.
+Rate limit set by `indent-bars-depth-update-delay'."
+  (let* ((depth (indent-bars--current-indentation-depth 'on-bar)))
+    (when (and depth (not (= depth indent-bars--current-depth)) (> depth 0))
+      (setq indent-bars--current-depth depth)
+      (if (zerop indent-bars-depth-update-delay)
+         (indent-bars--update-current-depth-highlight depth)
+       (if-let ((tmr indent-bars--highlight-timer))
+           (progn
+             (timer-set-function
+              tmr #'indent-bars--update-current-depth-highlight (list depth))
+             (timer-set-time
+              tmr (time-add (current-time) indent-bars-depth-update-delay))
+             (unless (memq tmr timer-list) (timer-activate tmr)))
+         (setq indent-bars--highlight-timer
+               (run-at-time indent-bars-depth-update-delay nil
+                            #'indent-bars--update-current-depth-highlight 
(list depth))))))))
 
 ;;;; Text scaling and window hooks
 (defvar-local indent-bars--remap-stipple nil)