diff options
Diffstat (limited to 'bard-elisp/bard-media.el')
| -rw-r--r-- | bard-elisp/bard-media.el | 53 |
1 files changed, 26 insertions, 27 deletions
diff --git a/bard-elisp/bard-media.el b/bard-elisp/bard-media.el index b5d1707..b7ebacd 100644 --- a/bard-elisp/bard-media.el +++ b/bard-elisp/bard-media.el @@ -23,6 +23,32 @@ (emms-playlist-save bard/emms-playlist-format bard/watch-later-file) (message "Playlist saved to %s" bard/watch-later-file))) +(defun bard/emms-download-current-video (destination) + "Download the currently playing EMMS video and move it to DESTINATION." + (interactive "DSelect destination directory: ") + (require 'emms) + (let* ((track (emms-playlist-current-selected-track)) + (url (emms-track-get track 'name)) + (default-directory (file-name-as-directory temporary-file-directory)) + (downloader (executable-find "yt-dlp")) + (output-template "%(title)s.%(ext)s")) + (unless downloader + (error "yt-dlp or youtube-dl is not installed or not in PATH")) + (unless (string-match-p "^https?://" url) + (error "Current track is not a valid video URL")) + + (let ((cmd (format "%s -o \"%s\" \"%s\"" + downloader output-template url))) + (message "Downloading video from: %s" url) + (let ((exit-code (shell-command cmd))) + (if (not (eq exit-code 0)) + (error "Download failed, see *Messages* for details") + ;; Move the downloaded file + (let* ((downloaded-file (car (directory-files default-directory t ".*\\(mp4\\|mkv\\|webm\\)$" 'time))) + (target-path (expand-file-name (file-name-nondirectory downloaded-file) destination))) + (rename-file downloaded-file target-path t) + (message "Video saved to: %s" target-path))))))) + (defun bard/image-browser-choose (directory) "Open nsxiv in thumbnail mode on DIRECTORY. Asks the user whether to enable recursive mode and whether to output marked files to a buffer." @@ -31,7 +57,6 @@ Asks the user whether to enable recursive mode and whether to output marked file (stdout (if (y-or-n-p "Output marked files to buffer? ") "-o" "")) (full-dir (expand-file-name directory)) (args (remove "" (list "nsxiv" "-t" stdout recursive full-dir)))) - ;; Pre-clear the output buffer if needed (when (string= stdout "-o") (with-current-buffer (get-buffer-create "*nsxiv*") @@ -91,30 +116,4 @@ Assumes that files have already been validated." (message "Not in Dired. Prompting for directory...") (call-interactively #'bard/image-browser-choose)))) -(defun bard/emms-download-current-video (destination) - "Download the currently playing EMMS video and move it to DESTINATION." - (interactive "DSelect destination directory: ") - (require 'emms) - (let* ((track (emms-playlist-current-selected-track)) - (url (emms-track-get track 'name)) - (default-directory (file-name-as-directory temporary-file-directory)) - (downloader (executable-find "yt-dlp")) - (output-template "%(title)s.%(ext)s")) - (unless downloader - (error "yt-dlp or youtube-dl is not installed or not in PATH")) - (unless (string-match-p "^https?://" url) - (error "Current track is not a valid video URL")) - - (let ((cmd (format "%s -o \"%s\" \"%s\"" - downloader output-template url))) - (message "Downloading video from: %s" url) - (let ((exit-code (shell-command cmd))) - (if (not (eq exit-code 0)) - (error "Download failed, see *Messages* for details") - ;; Move the downloaded file - (let* ((downloaded-file (car (directory-files default-directory t ".*\\(mp4\\|mkv\\|webm\\)$" 'time))) - (target-path (expand-file-name (file-name-nondirectory downloaded-file) destination))) - (rename-file downloaded-file target-path t) - (message "Video saved to: %s" target-path))))))) - (provide 'bard-media.el) |