From: plugd <plugd@thelambdalab.xyz>
Date: Sun, 9 Apr 2023 15:27:29 +0000 (+0200)
Subject: Improved progress tracking disabling.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=emus.git;a=commitdiff_plain;h=58ef94d58ecc8571e6c0501c8d473ace36a29a43

Improved progress tracking disabling.
---

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)))