Merge branch '#play-videos' into dev

1 files changed, 11 insertions, 1 deletions

diff --git a/org-yt.el b/org-yt.el
index b5b5d9c..0cdb94d 100644
--- a/org-yt.el
+++ b/org-yt.el
@@ -24,7 +24,17 @@
 
 ;;; Code:
 
-;; TODO: play a video link using a video player from an org-mode read only buffer
+(require 'org-element)
+
+;; TODO: Make a defcustom for video player
+(defun yt-play ()
+  "Open the link at point in an `'org-mode buffer with `'mpv."
+  (interactive)
+  (let ((url (org-element-property
+	      :raw-link (org-element-context))))
+    (when (string-prefix-p "http" url)
+      (async-shell-command (format "mpv %s" url))
+      (message "Opening %s with mpv" url))))