diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-09-08 02:58:11 +0100 | 
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-09-08 02:58:26 +0100 | 
| commit | fa543ada1f9dc52ddfccea2bb111bf60401a668e (patch) | |
| tree | 9b3411db8b94c0b8a4d3607da1e3300b09c36eb6 /Emacs/.config/emacs/elisp/yt-dlp.el | |
| parent | 511961af87313173ba381112a21d90f04b1cdd92 (diff) | |
| download | dotfiles-fa543ada1f9dc52ddfccea2bb111bf60401a668e.tar.gz dotfiles-fa543ada1f9dc52ddfccea2bb111bf60401a668e.tar.bz2 dotfiles-fa543ada1f9dc52ddfccea2bb111bf60401a668e.zip  | |
(Emacs/elisp)~moving stuff around, deleting some old stuff
Diffstat (limited to 'Emacs/.config/emacs/elisp/yt-dlp.el')
| -rw-r--r-- | Emacs/.config/emacs/elisp/yt-dlp.el | 46 | 
1 files changed, 0 insertions, 46 deletions
diff --git a/Emacs/.config/emacs/elisp/yt-dlp.el b/Emacs/.config/emacs/elisp/yt-dlp.el deleted file mode 100644 index 051ab5b..0000000 --- a/Emacs/.config/emacs/elisp/yt-dlp.el +++ /dev/null @@ -1,46 +0,0 @@ -;;; 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  | 
