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.el53
1 files changed, 0 insertions, 53 deletions
diff --git a/Emacs/.config/emacs/elisp/mpv.el b/Emacs/.config/emacs/elisp/mpv.el
deleted file mode 100644
index 94378e4..0000000
--- a/Emacs/.config/emacs/elisp/mpv.el
+++ /dev/null
@@ -1,53 +0,0 @@
-;;; 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-mode "comint")
-(autoload #'comint-output-filter "comint")
-
-(defvar mpv-args "-v --profile=fast --hwdec=auto-copy"
- "General arguments for mpv binary.")
-
-(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-args " \"" url "\""))
- #'comint-output-filter))
-
-(defun mpv-open-video (&optional arg)
- (interactive)
- (let ((url (if (stringp arg)
- arg
- (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