diff options
| -rw-r--r-- | org-yt.el | 59 |
1 files changed, 58 insertions, 1 deletions
@@ -24,8 +24,20 @@ ;;; Code: + (require 'org-element) + +(defcustom yt-download-audio-format nil + "Select download video as audio FORMAT. +If nil yt-download-videos output will be the default format. + +Example Usage: + (setq yt-download-audio-format \"m4a\")" + :type 'string + :group 'youtube) + + ;; TODO: Make a defcustom for video player (defun yt-play () "Open the link at point in an `'org-mode buffer with `'mpv." @@ -37,13 +49,58 @@ (message "Opening %s with mpv" url)))) +;; TODO: play a video link using a video player from an org-mode read only buffer + + + ;; TODO: Search Youtube videos play them using a video player -;; TODO: Download videos using yt-dlp +;; TODO: let user decide custom name and path +(defun yt-download-video () + "Download using link at point in an `'org-mode buffer with yt-dlp." + (interactive) + (let ((url (org-element-property + :raw-link (org-element-context)))) + (when (string-prefix-p "http" url) + (async-shell-command (format "yt-dlp %s" url)) + (message "Downloading %s " url)))) + +(defun yt-download-videos () + "Download one or multiple videos using yt-dlp. +Usage Example: +Open a Dired buffer and navigate where you want to download your videos, +then run this command interactively." + (interactive) + (let ((links '()) + (names '()) + (url "") + (name "") + (buffer-counter 1) + (name-counter 1)) + ;; Read links and names until "q" is entered + (while (not (string= url "q")) + (setq url (read-string "Enter URL (q to quit): ")) + (unless (string= url "q") + (setq links (cons url links)) + (setq name (read-string (format "Enter name (%d-NAME): " name-counter))) + (while (get-buffer (format "download-video-%d" buffer-counter)) + (setq buffer-counter (1+ buffer-counter))) + (setq names (cons name names)) + (setq buffer-counter (1+ buffer-counter)) + (setq name-counter (1+ name-counter)))) + ;; Process the collected links and names + (setq links (reverse links)) + (setq names (reverse names)) + (dolist (pair (cl-mapcar 'cons links names)) + (let ((url (car pair)) + (name (cdr pair)) + (buffer-name (format "download-video-%d" buffer-counter))) + (async-shell-command (format "yt-dlp %s -o %s" url name) buffer-name) + (setq buffer-counter (1+ buffer-counter)))))) (provide 'org-yt) |