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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
;;; quick-video-capture.el --- Video Capturing with Org Capture -*- coding: utf-8; lexical-binding: t; -*-
;;; Commentary:
;;
;; Layer: 4 (Optional).
;; Category: O/D/S.
;; Load shape: eager.
;; Eager reason: none; runs via org-protocol/command, a protocol/command-loaded
;; deferral candidate. (Startup timers were already removed.)
;; Top-level side effects: org-protocol handler registration.
;; Runtime requires: system-lib.
;; Direct test load: yes.
;;
;; This package provides a seamless "fire-and-forget" workflow for downloading
;; videos from the browser to your local system using yt-dlp and task-spooler.
;;
;; Features:
;; - Browser bookmarklet integration via org-protocol
;; - Automatic queueing of downloads through task-spooler
;; - Works with any yt-dlp supported site
;; - Can be triggered manually via org-capture with URL prompt
;;
;; Setup:
;; 1. Load this file - it will auto-initialize after Emacs startup
;; 2. Add the bookmarklet from `cj/video-download-bookmarklet' to your browser
;; 3. Click the bookmarklet on any video page to queue a download
;;
;; Alternatively, trigger manually with C-c c v and enter a URL
;;; Code:
(require 'system-lib)
;; Declare external functions to avoid warnings
(declare-function org-capture "org-capture" (&optional goto keys))
(declare-function org-protocol-check-filename-for-protocol "org-protocol" (fname restoffiles client))
(declare-function cj/yt-dl-it "media-utils" (url))
(defvar org-capture-templates)
(defvar org-protocol-protocol-alist)
(defconst cj/video-download-bookmarklet
"javascript:location.href='org-protocol://video-download?url='+encodeURIComponent(location.href);void(0);"
"JavaScript bookmarklet for triggering video downloads from the browser.
Add this as a bookmark in your browser to enable one-click video downloads.")
(defvar cj/--video-download-url nil
"URL for the active video capture, dynamically bound around `org-capture'.
The org-protocol entry point `let'-binds this for the dynamic extent of
its capture call, so the capture handler sees the URL while the capture
runs, and an aborted or erroring capture unwinds the binding instead of
leaving a stale URL for the next manual capture.")
(defvar cj/video-download-initialized nil
"Flag to track if video download has been initialized.")
(defun cj/org-protocol-video-download (info)
"Process org-protocol video download requests.
INFO is a plist containing :url from the org-protocol call."
;; Ensure we're initialized when called via protocol
(cj/ensure-video-download-initialized)
;; Bind the URL for the dynamic extent of the capture call only. The
;; capture handler reads it while the capture runs; an aborted or
;; erroring capture unwinds this binding, so nothing stale survives.
(let ((cj/--video-download-url (plist-get info :url)))
(org-capture nil "v"))
nil) ; Return nil to indicate we handled it
(defun cj/video-download-capture-handler ()
"Handle video download during org-capture.
This function is called from the capture template. It uses the URL
bound by the org-protocol entry point, or prompts when invoked manually."
;; Ensure media-utils is loaded when we actually need to download
(require 'media-utils)
(let ((url (or cj/--video-download-url
(read-string "Video URL: "))))
(if (string-empty-p url)
(error "No URL provided for download")
(cj/yt-dl-it url)
;; Return empty string to prevent capture from saving anything
"")))
(defun cj/ensure-video-download-initialized ()
"Ensure video download is initialized, loading dependencies if needed."
(unless cj/video-download-initialized
(cj/setup-video-download)))
(defun cj/setup-video-download ()
"Register the video-download org-capture template, idempotently.
Runs lazily on the first capture (via `org-capture-mode-hook') or the
first protocol call, so module load has no startup side effect. The
org-protocol handler is registered separately in the
`with-eval-after-load' block below, which is the lightweight piece a
protocol URL needs; the capture template is the heavier piece deferred
to here."
(when (not cj/video-download-initialized)
(require 'org-capture)
(unless (assoc "v" org-capture-templates)
(add-to-list 'org-capture-templates
'("v" "Video Download" entry
(file "") ; No file needed since we're not saving
"%(cj/video-download-capture-handler)"
:immediate-finish t
:jump-to-captured nil)))
(setq cj/video-download-initialized t)
(cj/log-silently "Video download capture template registered")))
(defun cj/video-download-bookmarklet-instructions ()
"Display instructions for setting up the browser bookmarklet."
(interactive)
(let ((buf (get-buffer-create "*Video Download Bookmarklet Setup*")))
(with-current-buffer buf
(erase-buffer)
(insert "Video Download Bookmarklet Setup\n")
(insert "=================================\n\n")
(insert "1. Create a new bookmark in your browser\n")
(insert "2. Set the name to: Download Video (or your preference)\n")
(insert "3. Set the URL to the following JavaScript code:\n\n")
(insert cj/video-download-bookmarklet)
(insert "\n\n")
(insert "4. Save the bookmark to your bookmarks bar\n")
(insert "5. Click the bookmark when viewing a video to download it\n\n")
(insert "Note: Make sure Emacs server is running (M-x server-start)\n")
(insert "and emacsclient is properly configured for org-protocol.\n"))
(switch-to-buffer buf)))
;; Register the org-protocol handler as soon as org-protocol is available.
;; This is the lightweight piece a "video-download" URL needs — it adds an
;; entry to the alist without loading org-capture or yt-dlp. No startup
;; timer: the capture template is set up lazily on first use (below), and
;; the protocol handler ensures it before capturing.
(with-eval-after-load 'org-protocol
(unless (assoc "video-download" org-protocol-protocol-alist)
(add-to-list 'org-protocol-protocol-alist
'("video-download"
:protocol "video-download"
:function cj/org-protocol-video-download
:kill-client t))))
;; Set up the capture template the first time a capture starts, so a manual
;; C-c c never races an uninitialized template.
(with-eval-after-load 'org-capture
(add-hook 'org-capture-mode-hook #'cj/ensure-video-download-initialized))
;;; Commentary for bookmarklet:
;;
;; To use the browser bookmarklet, add this JavaScript as a bookmark URL:
;; javascript:location.href='org-protocol://video-download?url='+encodeURIComponent(location.href);void(0);
;;
;; This will send the current page URL to Emacs via org-protocol, triggering
;; the download through yt-dlp and task-spooler.
(provide 'quick-video-capture)
;;; quick-video-capture.el ends here
|
