branch: elpa/hyperdrive
commit 857edd0a9ba94c3c19252f980bd2db3f8b638424
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Comment: (h/handler-streamable) Note limitation regarding disk-usage
---
hyperdrive-lib.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 56d78543a9..7a0704b1fc 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1390,8 +1390,10 @@ If then, then call THEN with no arguments. Default
handler."
(cl-defun h/handler-streamable (entry &key _then)
;; TODO: Is there any reason to not pass THEN through?
"Stream ENTRY."
- (h/message "Streaming %s..." (h//format-entry-url entry))
- (pcase-let ((`(,command . ,args) (split-string h/stream-player-command)))
+ ;; NOTE: Since data is streamed to an external process, disk usage will not
be
+ ;; updated until a later request.
+ (h/message "Streaming %s..." (h//format-entry-url entry))
+ (pcase-let ((`(,command . ,args) (split-string h/stream-player-command)))
(apply #'start-process "hyperdrive-stream-player"
nil command (cl-substitute (h//httpify-url
(he/url entry))
