diff options
| -rw-r--r-- | Emacs/.config/emacs/config.org | 28 |
1 files changed, 23 insertions, 5 deletions
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org index b99d649..185e5fb 100644 --- a/Emacs/.config/emacs/config.org +++ b/Emacs/.config/emacs/config.org @@ -2316,13 +2316,31 @@ and integrates slickly into image-dired. Of course, "l" #'image-forward-hscroll)) #+end_src ** mpv -My [[file:elisp/mpv.el][custom mpv module]] for opening videos in -Emacs. - +Little helper which launches an MPV process asynchronously. #+begin_src emacs-lisp -(use-package mpv +(use-package emacs :defer t - :load-path "elisp/" + :config + (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 + (expand-file-name (read-file-name "URL?: " default-directory "" t))))) + (mpv-start-process url) + (switch-to-buffer "*mpv*"))) :general (app-leader "v" #'mpv-open-video)) |