summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--org-yt.el12
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))))