rename to yeetube

1 files changed, 0 insertions, 107 deletions

diff --git a/org-yt.el b/org-yt.el
deleted file mode 100644
index 602bc9c..0000000
--- a/org-yt.el
+++ /dev/null
@@ -1,107 +0,0 @@
-;;; org-yt.el --- Watch & Download Videos  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2023  Thanos Apollo
-
-;; Author: Thanos Apollo <[email protected]>
-;; Keywords: extensions
-
-;; This program is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
-
-;; 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:
-
-;; 
-
-;;; Code:
-
-
-(require 'org-element)
-
-
-(defcustom yt-download-audio-format nil
-  "Select download video as audio FORMAT.
-If nil yt-download-videos output will be the default format.
-
-Example Usage:
- (setq yt-download-audio-format \"m4a\")"
-  :type 'string
-  :group 'youtube)
-
-
-;; TODO: Make a defcustom for video player
-(defun yt-play ()
-  "Open the link at point in an `'org-mode buffer with `'mpv."
-  (interactive)
-  (let ((url (org-element-property
-	      :raw-link (org-element-context))))
-    (when (string-prefix-p "http" url)
-      (async-shell-command (format "mpv %s" url))
-      (message "Opening %s with mpv" url))))
-
-
-;; TODO: play a video link using a video player from an org-mode read only buffer
-
-
-
-
-;; TODO: Search Youtube videos play them using a video player
-
-
-
-;; TODO: let user decide custom name and path
-(defun yt-download-video ()
-  "Download using link at point in an `'org-mode buffer with yt-dlp."
-  (interactive)
-  (let ((url (org-element-property
-	      :raw-link (org-element-context))))
-    (when (string-prefix-p "http" url)
-      (async-shell-command (format "yt-dlp %s" url))
-      (message "Downloading %s " url))))
-
-(defun yt-download-videos ()
-  "Download one or multiple videos using yt-dlp.
-
-Usage Example:
-Open a Dired buffer and navigate where you want to download your videos,
-then run this command interactively."
-  (interactive)
-  (let ((links '())
-        (names '())
-        (url "")
-        (name "")
-        (buffer-counter 1)
-        (name-counter 1))
-    ;; Read links and names until "q" is entered
-    (while (not (string= url "q"))
-      (setq url (read-string "Enter URL (q to quit): "))
-      (unless (string= url "q")
-        (setq links (cons url links))
-        (setq name (read-string (format "Enter name (%d-NAME): " name-counter)))
-        (while (get-buffer (format "download-video-%d" buffer-counter))
-          (setq buffer-counter (1+ buffer-counter)))
-        (setq names (cons name names))
-        (setq buffer-counter (1+ buffer-counter))
-        (setq name-counter (1+ name-counter))))
-    ;; Process the collected links and names
-    (setq links (reverse links))
-    (setq names (reverse names))
-    (dolist (pair (cl-mapcar 'cons links names))
-      (let ((url (car pair))
-            (name (cdr pair))
-            (buffer-name (format "download-video-%d" buffer-counter)))
-        (async-shell-command (format "yt-dlp %s -o %s" url name) buffer-name)
-        (setq buffer-counter (1+ buffer-counter))))))
-
-
-(provide 'org-yt)
-;;; org-yt.el ends here