branch: elpa/hyperdrive
commit 44413406c9b6fab528b3f3c9abe7a6c88008039b
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@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")
