[nongnu] elpa/hyperdrive 2d6906e203 1/2: Comment: Add TODO, FIXME

[ELPA Syncer]

branch: elpa/hyperdrive
commit 2d6906e2030a949ce707b975b407d822aa66cf17
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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"