From 58ef94d58ecc8571e6c0501c8d473ace36a29a43 Mon Sep 17 00:00:00 2001 From: plugd Date: Sun, 9 Apr 2023 17:27:29 +0200 Subject: [PATCH] Improved progress tracking disabling. --- emus.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) diff --git a/emus.el b/emus.el index 7b65d87..d0a972d 100644 --- a/emus.el +++ b/emus.el @@ -339,20 +339,22 @@ by the filesystem." (guard emus-continuous-playback) (guard (eq emus-state 'playing))) (emus-play-next)) - ((rx (: string-start - "@I ICY-META: StreamTitle=" - (let str (+ (not ";"))) - ";")) + ((and (guard emus-progress-enabled) + (rx (: string-start + "@I ICY-META: StreamTitle=" + (let str (+ (not ";"))) + ";"))) (message (concat "Emus: Playing stream " str))) - ((rx (: string-start - "@F " - (+ digit) - " " - (+ digit) - " " - (let left-str (+ (not " "))) - " " - (let right-str (+ any)))) + ((and (guard emus-progress-enabled) + (rx (: string-start + "@F " + (+ digit) + " " + (+ digit) + " " + (let left-str (+ (not " "))) + " " + (let right-str (+ any))))) (let* ((left (string-to-number left-str)) (right (string-to-number right-str)) (total (+ left right))) -- 2.20.1