branch: elpa/hyperdrive
commit 47f7f80f8bf788953017ab90fa2506cf71cec68b
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@ushin.org>
WIP
---
hyperdrive.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 726331520e..20e2dd69de 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -768,6 +768,15 @@ The return value of this function is the retrieval buffer."
(require 'transient)
+;; TODO: Use something like this later.
+;; (defmacro hyperdrive-transient-lambda (&rest body)
+;; (declare (indent defun))
+;; `(lambda ()
+;; (when hyperdrive-current-entry
+;; (pcase-let (((cl-struct hyperdrive-entry hyperdrive)
+;; hyperdrive-current-entry))
+;; ,@body))))
+
(transient-define-prefix hyperdrive-menu ()
"Show the hyperdrive transient menu."
