blob: d28e78d5c52a81338fa83c2d0d579de3c2e3e1d9 (
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
(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."
(let* ((files (dired-get-marked-files))
(stdout (if (y-or-n-p "Output marked files to buffer? ") "-o" "")))
(message "Opening marked files: %s" (string-join files ", "))
(when (string= stdout "-o")
(with-current-buffer (get-buffer-create "*nsxiv*")
(read-only-mode 0)
(erase-buffer)))
;; Corrected apply call:
(let ((process (apply #'start-process
"nsxiv"
"*nsxiv*"
(append (list "nsxiv" "-t" stdout) files))))
(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)))
(let ((files (with-current-buffer "*nsxiv*"
(split-string (buffer-string) "\n" t))))
(bard/open-marked-in-dired files)))))
(pop-to-buffer "*nsxiv*")))))
(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)
|
