aboutsummaryrefslogtreecommitdiff
path: root/Emacs/.config/emacs/elisp/mpv.el
diff options
context:
space:
mode:
Diffstat (limited to 'Emacs/.config/emacs/elisp/mpv.el')
-rw-r--r--Emacs/.config/emacs/elisp/mpv.el58
1 files changed, 58 insertions, 0 deletions
diff --git a/Emacs/.config/emacs/elisp/mpv.el b/Emacs/.config/emacs/elisp/mpv.el
new file mode 100644
index 0000000..0339dee
--- /dev/null
+++ b/Emacs/.config/emacs/elisp/mpv.el
@@ -0,0 +1,58 @@
+;;; mpv.el --- Open MPV through Emacs! -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2024 Aryadev Chavali
+
+;; Author: Aryadev Chavali <aryadev@aryadevchavali.com>
+;; Keywords: convenience
+
+;; 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:
+
+;;
+
+;;; Code:
+
+(autoload #'ffap-guesser "ffap")
+(autoload #'ansi-color-for-comint-mode-on "ansi-color")
+(autoload #'comint-output-filter "comint")
+
+(defvar mpv-ytdl-args "--ytdl-format=\"bestvideo[height<=1080][fps<=60]+bestaudio/best[height<=1920]\""
+ "Arguments for ytdl in mpv format.")
+
+(defvar mpv-args "-v --profile=fast --hwdec=auto-copy"
+ "General arguments for mpv binary.")
+
+(defun mpv--make-args ()
+ (concat mpv-args " " mpv-ytdl-args))
+
+(defun mpv-start-process (url)
+ (message "[mpv]: Starting mpv on `%s'" url)
+ (with-current-buffer (get-buffer-create "*mpv*")
+ (ansi-color-for-comint-mode-on)
+ (comint-mode))
+ (set-process-filter (start-process-shell-command
+ "mpv" "*mpv*"
+ (concat "mpv " (mpv--make-args) " \"" url "\""))
+ #'comint-output-filter))
+
+(defvar mpv--history nil)
+
+(defun mpv-open-video ()
+ (interactive)
+ (let ((url (completing-read "Enter URL: " nil nil t (ffap-guesser) mpv--history)))
+ (mpv-start-process url)
+ (switch-to-buffer "*mpv*")))
+
+(provide 'mpv)
+;;; mpv.el ends here