branch: elpa/hyperdrive
commit ab8cd67c8a6dec18b11eace8382955642fb483e6
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Remove: (h//fill) Unused function; move TODO comment
---
hyperdrive-lib.el | 15 +--------------
1 file changed, 1 insertion(+), 14 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 94e691ef41..7379d6d677 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -232,6 +232,7 @@ Updates ENTRY's hyperdrive's disk usage and latest version."
(h/etc hyperdrive) etc))
(when x-drive-version
(setf (h/latest-version hyperdrive) (string-to-number x-drive-version)))
+ ;; TODO: Update buffers like h/describe-hyperdrive after updating drive.
;; TODO: Consider debouncing or something for hyperdrive-persist to
minimize I/O.
(h/persist hyperdrive)))
@@ -765,20 +766,6 @@ entry as a side-effect."
"Synchronously fill the latest version slot in HYPERDRIVE."
(he/api 'head (he/create :hyperdrive hyperdrive :path "/")))
-(defun h//fill (hyperdrive headers)
- "Fill the latest version slot in HYPERDRIVE from HEADERS.
-HEADERS must from a HEAD/GET request to a directory or a
-PUT/DELETE request to a file or directory, as only those requests
-return the correct ETag header. Returns latest version number."
- ;; TODO: Update relevant buffers when hyperdrive latest version
- ;; updates, at the least describe-hyperdrive buffers.
- ;; TODO: Consider updating version range here. First check all the
- ;; places where this function is called. Better yet, update
- ;; `h/version-ranges' (and `h/hyperdrives'?) in a
- ;; lower-level function, perhaps a wrapper for `h/api'?
- (setf (h/latest-version hyperdrive)
- (string-to-number (map-elt headers 'etag))))
-
;; TODO: Consider using symbol-macrolet to simplify place access.
(defun h/update-existent-version-range (entry range-start)
