[nongnu] elpa/hyperdrive 44413406c9 40/49: Change: (-history-fill-version-ranges) Add loading indicator

[ELPA Syncer]

branch: elpa/hyperdrive
commit 44413406c9b6fab528b3f3c9abe7a6c88008039b
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (-history-fill-version-ranges) Add loading indicator
---
 hyperdrive-history.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 6071e344ae..d811d04b59 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -223,12 +223,15 @@ Universal prefix argument \\[universal-argument] forces
   (interactive (list (hyperdrive-history-range-entry-at-point)))
   (pcase-let* ((`(,range . ,entry) range-entry)
                (`(,_range-start . ,(map (:range-end range-end))) range)
-               (range-end-entry (hyperdrive-copy-tree entry)))
+               (range-end-entry (hyperdrive-copy-tree entry))
+               (ov (make-overlay (pos-bol) (+ (pos-bol) (length "Loading")))))
     (setf (hyperdrive-entry-version range-end-entry) range-end)
+    (overlay-put ov 'display "Loading")
     (hyperdrive-fill-version-ranges range-end-entry
       :finally (lambda ()
                  ;; TODO: Should we open the history buffer for entry
                  ;; or range-end-entry or...?
+                 (delete-overlay ov)
                  (hyperdrive-history entry)))))
 
 (declare-function hyperdrive-diff-file-entries "hyperdrive-diff")