diff options
Diffstat (limited to 'Emacs/.config/emacs')
-rw-r--r-- | Emacs/.config/emacs/elisp/yt-dlp.el | 46 |
1 files changed, 46 insertions, 0 deletions
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 <aryadev@aryadevchavali.com> +;; 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 <https://www.gnu.org/licenses/>. + +;;; 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 |