From 23c1bcb6dbc726bd2a4a2400ef37e2cd0f95015d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 23 May 2025 14:44:16 +0100
Subject: better view video command

---
 init.el | 7 ++++---
 1 file 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)
-- 
cgit v1.2.3