branch: externals/listen
commit f9d95497cd8287b8ecde98caa36f7036be9af87b
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Tidy: (listen--send MPV)
---
listen-mpv.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/listen-mpv.el b/listen-mpv.el
index 7562df46c6..0ad1c84f1f 100755
--- a/listen-mpv.el
+++ b/listen-mpv.el
@@ -118,15 +118,12 @@ Stops playing, clears playlist, adds FILE, and plays it."
(pcase-let* (((cl-struct listen-player (etc (map :network-process))) player)
(request-id (cl-incf (map-elt (listen-player-etc player)
:request-id))))
(with-current-buffer (process-buffer network-process)
- (let ((pos (marker-position (process-mark network-process)))
- (json (json-encode
- `(("command" ,command ,@args)
- ("request_id" . ,request-id)))))
+ (let ((json (json-encode `(("command" ,command ,@args)
+ ("request_id" . ,request-id)))))
(process-send-string network-process json)
(process-send-string network-process "\n")
(with-local-quit
(accept-process-output network-process 2))
- ;; TODO: Consider using `json-read', etc.
(goto-char (point-min))
(let ((json-false nil))
(prog1 (cl-loop for result = (json-read)
