Next: Play current page's video with mpv

.config/next/init.lisp

@@ -52,3 +52,9 @@
                        "(ambrevar/youtube-dl-at-point \"~a\")")
                    url)))))
 (define-key *global-map* (key "C-M-c d") 'youtube-dl-current-page)
+
+(define-command play-video-in-current-page ()
+  "Play video in the currently open buffer."
+  (with-result (url (buffer-get-url))
+    (uiop:run-program (list "mpv" url))))
+(define-key *global-map* (key "C-M-c v") 'play-video-in-current-page)