[emacs] Adding buttons to infobox

1 files changed, 17 insertions, 6 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-ytdl.el b/emacs/.emacs.d/lisp/my/my-ytdl.el
index 2811793..bf917ce 100644
--- a/emacs/.emacs.d/lisp/my/my-ytdl.el
+++ b/emacs/.emacs.d/lisp/my/my-ytdl.el
@@ -94,14 +94,25 @@
              (string-match-p "^/watch\\?v=.*" (url-filename urlobj)))
         (equal "youtu.be" (url-host urlobj)))))
 
+(require 'hmm)
+(defvar my-ytdl-player 'hmm-external-mpv "Function to play ytdl urls.")
+
+(defun my-ytdl-video-render-info (info url)
+  (setf (alist-get 'webpage_url info)
+        (concat (alist-get 'webpage_url info)
+                " -- " (buttonize "play" (lambda (_)
+                                           (funcall my-ytdl-player url)))
+                " " (buttonize "context"
+                               (lambda (_)
+                                 (funcall my-url-context-function url)))))
+  (infobox-render
+   (infobox-translate info (infobox-default-specs info))
+   `(my-ytdl-video-infobox ,url)
+   (called-interactively-p 'interactive)))
+
 (defun my-ytdl-video-infobox (url)
   (interactive "sytdl video url: ")
-  (let* ((info (my-ytdl-video-info url))
-         (specs (infobox-default-specs info)))
-    (infobox-render
-     (infobox-translate info specs)
-     `(my-ytdl-video-infobox ,url)
-     (called-interactively-p 'interactive))))
+  (my-ytdl-video-render-info (my-ytdl-video-info url) url))
 
 ;;; fixme: autoload
 (defun my-ytdl-video (urls)