From c469a1a0583b98ba6c45997399a4ac5b9e9959b3 Mon Sep 17 00:00:00 2001 From: Dieter Deyke Date: Wed, 23 Apr 2025 17:55:18 +0200 Subject: [PATCH 1/2] bongo.el: mpv can play local .webm files --- bongo.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bongo.el b/bongo.el index 95d20a8..a9b6bfe 100644 --- a/bongo.el +++ b/bongo.el @@ -6,7 +6,7 @@ ;; Copyright (C) 2011 Jürgen Hötzel ;; Copyright (C) 1998, 2000-2005 Free Software Foundation, Inc. -;; Version: 1.1 +;; Version: 1.2 ;; Package-Requires: ((cl-lib "0.5") (emacs "24.1")) ;; This file is part of Bongo. @@ -6487,7 +6487,7 @@ Also fetch metadata and length of track if not fetched already." ;; TODO: The matchers below are just copied from MPlayer's config, since ;; mpv was forked off MPlayer :matcher '((local-file "file:" "http:" "ftp:") - "ogg" "flac" "mp3" "mka" "wav" "wma" + "ogg" "flac" "mp3" "mka" "wav" "webm" "wma" "mpg" "mpeg" "vob" "avi" "ogm" "mp4" "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts") From c72cd77e0b83e8551243ff418aea16c40c35a537 Mon Sep 17 00:00:00 2001 From: Dieter Deyke Date: Tue, 4 Aug 2026 12:58:57 +0200 Subject: [PATCH 2/2] React to the following change in emacs: commit 57c5967828f0415604a393b244bd62be93262f30 Author: Paul Eggert Date: Thu Jul 23 23:02:55 2026 -0700 current-time-list now defaults to nil Change the default value from current-time-list from t to nil. This continues the transition that was begun in Emacs 29, so that functions like current-time generate timestamps in the more-efficient and more-consistent (TICKS . HZ) form. * src/timefns.c: Default to false. Make sure that bongo sees the old behaviour of (current-time). --- bongo.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bongo.el b/bongo.el index a9b6bfe..c2e3751 100644 --- a/bongo.el +++ b/bongo.el @@ -5103,7 +5103,7 @@ NEW-ELAPSED-TIME is the new value of the `elapsed-time' property." (bongo-player-total-time player )) new-elapsed-time))) (bongo-player-times-changed player) - (bongo-player-put player 'last-seek-time (current-time)) + (bongo-player-put player 'last-seek-time (time-convert (current-time) 'list)) (run-hook-with-args 'bongo-player-sought-functions player) (when (bongo-buffer-p) (run-hooks 'bongo-player-sought-hook)))) @@ -5114,7 +5114,7 @@ By ``one of the times'' is meant elapsed time or total time.") (defun bongo-player-times-changed (player) "Run the hooks for when one of the times of PLAYER has changed." - (let ((current-seconds (cl-second (current-time)))) + (let ((current-seconds (cl-second (time-convert (current-time) 'list)))) (when (> current-seconds bongo-player-times-last-updated) (setq bongo-player-times-last-updated current-seconds) (save-current-buffer @@ -5338,7 +5338,7 @@ is the value of PLAYER's `time-update-delay-after-seek' property." (let ((time (bongo-player-get player 'last-seek-time))) (or (null time) (time-less-p (seconds-to-time delay) - (subtract-time (current-time) time))))) + (subtract-time (time-convert (current-time) 'list) time))))) (bongo-player-put player 'elapsed-time elapsed-time)))) (defun bongo-player-update-total-time (player total-time)