branch: externals/listen
commit fc9ece8ce8b445b60d6b8ba673081564c8743f98
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Change: (listen-mpv--update-property) Remove function
---
listen-mpv.el | 22 ++++++++--------------
1 file changed, 8 insertions(+), 14 deletions(-)
diff --git a/listen-mpv.el b/listen-mpv.el
index 049b8dc0b8..1d42ccf976 100755
--- a/listen-mpv.el
+++ b/listen-mpv.el
@@ -151,16 +151,14 @@
(setf (listen-player-playback-started-at player) (current-time)
(listen-player-playback-started-from player) 0)
(listen--update-metadata player)
- (listen-mpv--update-property
- player (lambda (msg)
- (setf (listen-player-duration player)
- (map-elt msg 'data)))
- "duration")
- (listen-mpv--update-property
- player (lambda (msg)
- (setf (listen-player-volume player)
- (map-elt msg 'data)))
- "volume"))
+ (listen-mpv--get-property "duration"
+ (lambda (msg)
+ (setf (listen-player-duration player)
+ (map-elt msg 'data))))
+ (listen-mpv--get-property "volume"
+ (lambda (msg)
+ (setf (listen-player-duration player)
+ (map-elt msg 'data)))))
((or "end-file" "idle") (listen--status-is player 'stopped))
((or 'nil "data")
(if-let ((callback (map-elt (map-elt (listen-player-etc player)
:requests) request_id)))
@@ -302,10 +300,6 @@ VOLUME is an integer percentage."
(setf (listen-player-volume player) new-volume)))
(listen-player-volume player))))
-(cl-defmethod listen-mpv--update-property ((player listen-player-mpv) property
&key then)
- (let ((request-id (listen--send* player "get_property" property)))
- (setf (map-elt (map-elt (listen-player-etc player) :requests) request-id)
callback)))
-
(cl-defmethod listen-mpv--get-property ((player listen-player-mpv) property
&key then)
(listen--send* player `("get_property" ,property) :then then))
