better view video command

1 files changed, 4 insertions, 3 deletions

diff --git a/init.el b/init.el
index b5b68ef..37a0af0 100644
--- a/init.el
+++ b/init.el
@@ -1313,9 +1313,10 @@
 
 (defun jao-maybe-view-video (url &rest _ignored)
   (interactive)
-  (if (y-or-n-p "View video (y) or web page (n)? ")
-      (jao-view-video url)
-    (funcall jao-browse-url-function url)))
+  (let ((w (read-char "View video (v) or web page (w)? ")))
+    (cond ((eq w ?v) (jao-view-video url))
+          ((eq w ?w) (funcall jao-browse-url-function url))
+          (t (message "Aborted")))))
 
 ;;;; web browsers
 (defun jao-www--buffer-p (b)