From 4c7585a1c57c0bd002fbe9d6d0c971dca1379b20 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 30 Jun 2023 04:53:18 +0300 Subject: rename to yeetube --- org-yt.el | 107 ------------------------------------------------------------- yeetube.el | 107 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 107 insertions(+), 107 deletions(-) delete mode 100644 org-yt.el create mode 100644 yeetube.el 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 -;; 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 . - -;;; 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 diff --git a/yeetube.el b/yeetube.el new file mode 100644 index 0000000..c7f3c4a --- /dev/null +++ b/yeetube.el @@ -0,0 +1,107 @@ +;;; yeetube.el --- Watch & Download Videos -*- lexical-binding: t; -*- + +;; Copyright (C) 2023 Thanos Apollo + +;; Author: Thanos Apollo +;; 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 . + +;;; 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 'yeetube) +;;; yeetube.el ends here -- cgit v1.2.3