changing repositories

1 files changed, 104 insertions, 0 deletions

diff --git a/modules/quick-video-capture.el b/modules/quick-video-capture.el
new file mode 100644
index 00000000..05ad70c8
--- /dev/null
+++ b/modules/quick-video-capture.el
@@ -0,0 +1,104 @@
+;;; quick-video-capture.el --- Video Capturing with Org Capture -*- coding: utf-8; lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; 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 and call (cj/setup-video-download)
+;; 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 'org-protocol)
+(require 'org-capture)
+(require 'media-utils)
+
+(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.")
+
+(defun cj/org-protocol-video-download (info)
+  "Process org-protocol video download requests.
+INFO is a plist containing :url from the org-protocol call."
+  (let ((url (plist-get info :url)))
+	(when url
+	  ;; Store the URL for the capture template to use
+	  (setq cj/video-download-current-url url))
+	;; Trigger the capture
+	(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."
+  (let ((url (or cj/video-download-current-url
+				 (read-string "Video URL: "))))
+	;; Clear the stored URL after using it
+	(setq cj/video-download-current-url nil)
+	(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
+	  "")))
+
+(defvar cj/video-download-current-url nil
+  "Temporary storage for URL passed via org-protocol.")
+
+;; register the handler and the capture template after org-protocol is loaded
+(with-eval-after-load 'org-protocol
+  ;; Register the org-protocol handler
+  (add-to-list 'org-protocol-protocol-alist
+			   '("video-download"
+				 :protocol "video-download"
+				 :function cj/org-protocol-video-download
+				 :kill-client t))
+
+  ;; Add the capture template
+  (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)))
+
+(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)))
+
+;;; 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.