From c5516a13aad78677729a30435b23b4607dffdc29 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Tue, 29 Nov 2022 15:53:42 -0500 Subject: emacsconf-stream-show-playback-info: keep track of mpv position --- emacsconf-stream.el | 14 ++++++++++++++ emacsconf.el | 4 ++++ 2 files changed, 18 insertions(+) diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 19dcb32..69b01d1 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -818,5 +818,19 @@ ffplay URL (cancel-function-timers #'emacsconf-update-talk-status-with-hooks) (setq emacsconf-stream-timers nil)) +(defun emacsconf-stream-show-playback-info (talk-or-track) + (interactive (list (emacsconf-complete-track))) + (let* ((default-directory (emacsconf-stream-track-login talk-or-track)) + (playback-position (gethash "data" (json-parse-string (shell-command-to-string "echo '{ \"command\": [\"get_property\", \"playback-time\"] }' | socat - ~/mpv-socket")))) + (duration (gethash "data" (json-parse-string (shell-command-to-string "echo '{ \"command\": [\"get_property\", \"duration\"] }' | socat - ~/mpv-socket"))))) + (message "%s of %s (%s remaining, ending at %s)" + (emacsconf-format-seconds playback-position) + (emacsconf-format-seconds duration) + (emacsconf-format-seconds (- duration playback-position)) + (format-time-string + "%H:%M %p" + (time-add (current-time) (seconds-to-time (- duration playback-position))) + emacsconf-timezone)))) + (provide 'emacsconf-stream) ;;; emacsconf-stream.el ends here diff --git a/emacsconf.el b/emacsconf.el index 214e896..a5a9a0e 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -1366,5 +1366,9 @@ tracks with the ID in the cdr of that list." (interactive (list (read-file-name "File: " (expand-file-name "./" emacsconf-cache-dir) nil t))) (find-file (expand-file-name filename emacsconf-cache-dir))) +(defun emacsconf-format-seconds (seconds) + (concat (format-seconds "%.2m:%.2s" (floor seconds)) + "." (format "%03d" (% (floor (* 1000 seconds)) 1000)))) + (provide 'emacsconf) ;;; emacsconf.el ends here -- cgit v1.2.3