[nongnu] elpa/hyperdrive 1120cb6e29 16/31: Change: (hyperdrive-mirror) Show uploadable/non-uploadable separately

[ELPA Syncer]

branch: elpa/hyperdrive
commit 1120cb6e29193c3fe2f357ac9141ecc654758777
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (hyperdrive-mirror) Show uploadable/non-uploadable separately
---
 hyperdrive-mirror.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 2e1634977d..5eab86d4b4 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -259,7 +259,13 @@ Callback for queue finalizer in `hyperdrive-mirror'."
       (let ((pos (point))
             (section-ident (when (magit-current-section)
                              (magit-section-ident (magit-current-section))))
-            (window-start 0) (window-point 0))
+            (window-start 0) (window-point 0)
+            (uploadable (cl-remove-if-not (lambda (status)
+                                            (member status '(new newer)))
+                                          :key 
#'hyperdrive-mirror-item-status))
+            (non-uploadable (cl-remove-if-not (lambda (status)
+                                                (member status '(older same)))
+                                              :key 
#'hyperdrive-mirror-item-status)))
         (setq-local hyperdrive-mirror-files-and-urls files-and-urls)
         (when-let ((window (get-buffer-window (current-buffer))))
           (setf window-point (window-point window)
@@ -269,7 +275,8 @@ Callback for queue finalizer in `hyperdrive-mirror'."
         (add-hook 'kill-buffer-hook #'hyperdrive-mirror--cache-visibility nil 
'local)
         (delete-all-overlays)
         (erase-buffer)
-        (hyperdrive-mirror--insert-taxy :items files-and-urls)
+        (hyperdrive-mirror--insert-taxy :items uploadable)
+        (hyperdrive-mirror--insert-taxy :items non-uploadable)
         (if-let ((section-ident)
                  (section (magit-get-section section-ident)))
             (goto-char (oref section start))