[nongnu] elpa/hyperdrive d4bbc14823 05/20: Change: (h//history--format-range-entry) Faces for download state

[ELPA Syncer]

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

    Change: (h//history--format-range-entry) Faces for download state
---
 hyperdrive-history.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index b6caaeeeff..0cb074ea79 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -61,7 +61,7 @@ value \\+`unknown', and whose cdr is a hyperdrive entry."
   (pcase-let*
       ((`(,range . ,entry) range-entry)
        (`(,range-start . ,(map :range-end :existsp)) range)
-       ((cl-struct hyperdrive-entry size mtime) entry)
+       ((cl-struct hyperdrive-entry size mtime etc) entry)
        (formatted-range (if (eq range-start range-end)
                             (format "%d" range-start)
                           (format "%d-%d" range-start range-end)))
@@ -72,7 +72,8 @@ value \\+`unknown', and whose cdr is a hyperdrive entry."
        (size (and size (file-size-human-readable size)))
        (timestamp (if mtime
                       (format-time-string h/timestamp-format mtime)
-                    (propertize " " 'display '(space :width 
h/timestamp-width)))))
+                    (propertize " " 'display '(space :width 
h/timestamp-width))))
+       ((map block-length block-length-downloaded) etc))
     ;; FIXME: Use dynamic width of range column equal to 2N+1, where N
     ;; is the width of the hyperdrive's latest version
     (format
@@ -91,7 +92,13 @@ value \\+`unknown', and whose cdr is a hyperdrive entry."
                                       ('unknown "Load history at version %s"))
                                     range-start))
      (propertize (or size "")
-                 'face 'h/size)
+                 'face (and block-length-downloaded block-length
+                            (pcase block-length-downloaded
+                              (0 'h/size-not-downloaded)
+                              ((pred (= block-length)) 
'h/size-fully-downloaded)
+                              (_ 'h/size-partially-downloaded)))
+                 'help-echo (format "%s of %s blocks downloaded"
+                                    block-length-downloaded block-length))
      (propertize (or timestamp "")
                  'face 'h/timestamp))))