branch: elpa/hyperdrive
commit 7b7efbcd32df6ceed63e795d457bc3badd04bac8
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: (h/menu-hyperdrive) Display hyperdrive disk usage
---
hyperdrive-menu.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index cd91e98649..f84264b122 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -279,7 +279,13 @@
:inapt-if-not (lambda () (h/writablep (h/menu--scope))))
( :info (lambda () (h//format (h/menu--scope) "Domain: %D" h/raw-formats))
:if (lambda () (h/domains (h/menu--scope))))
- (:info (lambda () (format "Latest version: %s" (h/latest-version
(h/menu--scope)))))]
+ (:info (lambda () (format "Latest version: %s" (h/latest-version
(h/menu--scope)))))
+ ( :info (lambda ()
+ (format "Disk usage: %s"
+ (propertize (file-size-human-readable
+ (map-elt (h/etc (h/menu--scope))
'disk-usage))
+ 'face 'hyperdrive-size)))
+ :if (lambda () (map-elt (h/etc (h/menu--scope)) 'disk-usage)))]
[["Open"
("f" "Find file" h/menu-open-file)
("v" "View file" h/menu-view-file)
