branch: elpa/hyperdrive
commit 965b39f5d9e5c9e56ffbaa51210bea751b18a352
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (h/menu-bar-menu) Add binding for h/clear-cache
---
hyperdrive.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index b401e54da7..b8a8bc5194 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1233,7 +1233,12 @@ The return value of this function is the retrieval
buffer."
;; TODO: Add `hyperdrive--parent-entry-p'
(not (string= ".." (alist-get 'display-name
(he/etc selected-entry))))))
- :help "Delete file/directory at point"])
+ :help "Delete file/directory at point"]
+ ["Clear Cache" (lambda ()
+ (interactive)
+ (call-interactively #'h/clear-cache))
+ :help "Clear local cache for file/directory at point"]
+ )
("Version"
:label (let* ((version (he/version h/current-entry))
(existsp (he/exists-p h/current-entry))
