renderer enhancement

media-renderer.rkt

@@ -23,6 +23,7 @@
          get-media-renderer
          media-renderer-dlna?
          media-renderer-play-uri!
+         media-renderer-play!
          media-renderer-next-uri-supported?
          media-renderer-set-next-uri!
          media-renderer-pause!
@@ -155,6 +156,10 @@
   (av-transport-pause!
    (required-service 'media-renderer-pause! renderer 'av-transport)))
 
+(define (media-renderer-play! renderer)
+  (av-transport-play!
+   (required-service 'media-renderer-play! renderer 'av-transport)))
+
 (define (media-renderer-stop! renderer)
   (av-transport-stop!
    (required-service 'media-renderer-stop! renderer 'av-transport)))

scribblings/media-renderer.scrbl

@@ -86,6 +86,11 @@ open and buffer the next resource while the current resource is playing,
 allowing a gapless or near-gapless transition.
 }
 
+@defproc[(media-renderer-play! [renderer media-renderer?]) any]{
+
+Resumes playback after it has been paused.
+}
+
 @defproc[(media-renderer-next-uri-supported?
           [renderer media-renderer?])
          boolean?]{