blob: b7ebacdf390e261c9ce6b323b420ada01fa0f095 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(require 'cl-lib)
(require 'seq)
(require 'emms)
(require 'image-dired)
(require 'dired-x)
(defun bard/play-youtube-video ()
"Play the YouTube URL at point or prompt for one if none is found."
(interactive)
(let* ((url-at-point (thing-at-point 'url t))
(url (if (and url-at-point
(string-match-p "https?://\\(www\\.\\)?\\(youtube\\.com\\|youtu\\.be\\)" url-at-point))
url-at-point
(read-string "Enter YouTube URL: "))))
(if (and url (string-match-p "https?://\\(www\\.\\)?\\(youtube\\.com\\|youtu\\.be\\)" url))
(async-shell-command (format "mpv '%s'" url))
(message "The URL is not a valid YouTube link: %s" url))))
(defun bard/save-emms-watch-later ()
"Save the current EMMS playlist to `bard/watch-later-file` using `bard/emms-playlist-format`."
(interactive)
(when (and bard/watch-later-file bard/emms-playlist-format)
(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."
(interactive "DSelect directory: ")
(let* ((recursive (if (y-or-n-p "Recursive searching? ") "-r" ""))
(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*")
(read-only-mode 0)
(erase-buffer)))
(message "Running: %s" (string-join args " "))
(let ((process (apply #'start-process "nsxiv" "*nsxiv*" args)))
(when (string= stdout "-o")
(set-process-sentinel
process
(lambda (proc event)
(when (string= event "finished\n")
(with-current-buffer "*nsxiv*"
(read-only-mode nil)
(goto-char (point-min)))
;; Read marked files
(let ((files (with-current-buffer "*nsxiv*"
(split-string (buffer-string) "\n" t))))
(bard/open-marked-in-dired files)))))
(pop-to-buffer "*nsxiv*")))))
(defun bard/open-marked-in-dired (files)
"Open a list of FILES in an interactive Dired buffer."
(if (and files (listp files))
(dired (cons "*nsxiv-marked*" files))
(message "No valid files to show in Dired.")))
(defun bard/image-browser-marked ()
"Open nsxiv on the marked files in Dired.
Assumes that files have already been validated."
(let ((files (dired-get-marked-files)))
(message "Opening marked files: %s" (string-join files ", "))
(apply #'start-process "nsxiv" "*nsxiv*" "nsxiv" "-t" files)))
(defun bard/image-browser ()
"Open nsxiv in a context-sensitive way:
- If in Dired with marked files, open those with nsxiv.
- If in Dired with no marked files, prompt for a directory.
- If not in Dired, prompt for a directory."
(interactive)
(cond
;; In Dired and files are marked
((and (derived-mode-p 'dired-mode)
(< 1 (length (dired-get-marked-files))))
(message "Opening marked files from Dired...")
(bard/image-browser-marked))
;; In Dired but no marked files
((derived-mode-p 'dired-mode)
(message "No files marked in Dired. Prompting for directory...")
(call-interactively #'bard/image-browser-choose))
;; Not in Dired
(t
(message "Not in Dired. Prompting for directory...")
(call-interactively #'bard/image-browser-choose))))
(provide 'bard-media.el)
|
