diff options
Diffstat (limited to 'Emacs/.config/emacs/elisp/mpv.el')
-rw-r--r-- | Emacs/.config/emacs/elisp/mpv.el | 53 |
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 |