[emacs] play video with vlc if possible

1 files changed, 10 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-emms.el b/emacs/.emacs.d/lisp/my/my-emms.el
index 47758f2..f4e9bc0 100644
--- a/emacs/.emacs.d/lisp/my/my-emms.el
+++ b/emacs/.emacs.d/lisp/my/my-emms.el
@@ -159,6 +159,16 @@ either 'audio or 'video
                              (alist-get type my-extension-types)))
     (with-current-buffer to (emms-sort))))
 
+(defun my-emms-players-preference (track players)
+  "If audio, use first player, otherwise second."
+  (let ((name (emms-track-name track)))
+    (if (and (length> players 1)
+             (string-prefix-p "file://" name)
+             (member (file-name-extension name)
+                     '("mkv" "mp4" "ogv" "avi" "webm")))
+        (cadr players)
+      (car players))))
+
 (defvar my-emms-playlist-alist nil
   "alist controlling playlists, where the cdr of each item is an also an alist,
 with possible keys 'source and 'type.