branch: elpa/hyperdrive
commit 2d6906e2030a949ce707b975b407d822aa66cf17
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Comment: Add TODO, FIXME
---
hyperdrive-dir.el | 3 +++
hyperdrive-lib.el | 1 +
hyperdrive.el | 2 ++
3 files changed, 6 insertions(+)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 518ab3fe1f..d8cc2da1ad 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -62,6 +62,9 @@ If THEN, call it in the directory buffer with no arguments."
(header
(progn
;; Fill metadata first to get the current nickname.
+ ;; TODO: Consider filling metadata earlier, outside
+ ;; of this function (e.g. so it will be available if
+ ;; the user loads a non-directory file directly).
(hyperdrive-fill-metadata hyperdrive)
(hyperdrive-dir-column-headers (hyperdrive-entry-description
directory-entry))))
(num-entries (length entries)) (num-filled 0)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 0a84a484d0..c4e4ee1eba 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -222,6 +222,7 @@ PLZ-ERR should be a `plz-error' struct."
;;;###autoload
(defun hyperdrive-status ()
"Return non-nil if `hyper-gateway' is running and accessible."
+ ;; FIXME: Ensure a very short timeout for this request.
(condition-case nil
(plz 'get (concat "http://localhost:"; (number-to-string
hyperdrive-hyper-gateway-port) "/"))
(error nil)))
diff --git a/hyperdrive.el b/hyperdrive.el
index 4fcc37fc4e..c13b6a71da 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -827,6 +827,8 @@ The return value of this function is the retrieval buffer."
;;;;; `easy-menu' integration
+;; TODO: Separate writable/unwritable hyperdrives in sub-menu.
+
(defvar hyperdrive-menu-bar-menu
'("Hyperdrive"
("Gateway"
