branch: elpa/hyperdrive commit 24f4c589cc70cdee688e17ddd7209d324bcfe7e6 Author: Joseph Turner <jos...@ushin.org> Commit: Joseph Turner <jos...@ushin.org>
Comment: Add TODOs --- hyperdrive.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/hyperdrive.el b/hyperdrive.el index 1c28187dac..a0e8fef2de 100644 --- a/hyperdrive.el +++ b/hyperdrive.el @@ -143,6 +143,7 @@ hyperdrive, the new hyperdrive's petname will be set to SEED." (setf (h/writablep hyperdrive) t) (unwind-protect (h/set-petname seed hyperdrive) + ;; TODO: Hyperdrive disk usage should be set here. (h/persist hyperdrive) (h/open (h/url-entry url))))) @@ -693,6 +694,7 @@ After successful upload, call THEN. When QUEUE, use it." :body `(file ,filename) :headers `(("Last-Modified" . ,last-modified)) :then then) + ;; TODO: Hyperdrive disk usage should be set here. (unless queue (h/message "Uploading to \"%s\"..." url))))