From e5c04e7544da3d83deed708ce4fd02f1aa6108f3 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Wed, 21 Aug 2024 16:42:21 +0100 Subject: (Emacs/elisp/yt-dlp)+package for downloading videos via yt-dlp --- Emacs/.config/emacs/elisp/yt-dlp.el | 46 +++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 Emacs/.config/emacs/elisp/yt-dlp.el (limited to 'Emacs/.config/emacs/elisp/yt-dlp.el') diff --git a/Emacs/.config/emacs/elisp/yt-dlp.el b/Emacs/.config/emacs/elisp/yt-dlp.el new file mode 100644 index 0000000..051ab5b --- /dev/null +++ b/Emacs/.config/emacs/elisp/yt-dlp.el @@ -0,0 +1,46 @@ +;;; yt-dlp.el --- Using yt-dlp through Emacs -*- lexical-binding: t; -*- + +;; Copyright (C) 2024 Aryadev Chavali + +;; Author: Aryadev Chavali +;; Keywords: + +;; This program is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License Version +;; 2 as published by the Free Software Foundation. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Please for the love of god have a yt-dlp config. We're not dealing with that +;; for you. + +;;; Code: + +(autoload #'ansi-color-for-comint-mode-on "ansi-color") +(autoload #'comint-mode "comint") +(autoload #'comint-output-filter "comint") + +(defun yt-dlp-download-video (&optional url) + (interactive) + (let ((url (if (stringp url) + url + (read-string "Enter URL: ")))) + (message "[yt-dlp]: Downloading video `%s'" url) + (with-current-buffer (get-buffer-create "*yt-dlp*") + (ansi-color-for-comint-mode-on)) + (set-process-filter (start-process-shell-command + "yt-dlp" "*yt-dlp*" + (concat "yt-dlp " "\"" url "\"")) + #'comint-output-filter) + (switch-to-buffer "*yt-dlp*"))) + +(provide 'yt-dlp) +;;; yt-dlp.el ends here -- cgit v1.2.3-13-gbd6f