From bf015753bcc0581932c13bc1afe0a98cd327377c Mon Sep 17 00:00:00 2001 From: James Elliott Date: Sat, 11 May 2024 16:14:53 -0500 Subject: [PATCH] Suppress media mount lisener for Player Status in Opus Quad mode. --- src/beat_link_trigger/players.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/beat_link_trigger/players.clj b/src/beat_link_trigger/players.clj index a3c7046..b2b65f0 100644 --- a/src/beat_link_trigger/players.clj +++ b/src/beat_link_trigger/players.clj @@ -647,8 +647,8 @@ (let [[button label] (slot-elems slot-reference)] (when button (seesaw/invoke-later - (seesaw/config! label :text (media-description slot-reference)) - (seesaw/config! button :icon (seesaw/icon "images/Gear-outline.png") :enabled? true))))) + (seesaw/config! button :icon (seesaw/icon "images/Gear-outline.png") :enabled? true) + (seesaw/config! label :text (media-description slot-reference)))))) (mediaUnmounted [_this slot-reference] (let [[button label] (slot-elems slot-reference)] (when button @@ -660,7 +660,7 @@ (detailsAvailable [_this details] (let [slot-reference (.-slotReference details) [_ label] (slot-elems slot-reference)] - (when (and label (not opus-quad?)) + (when label (seesaw/invoke-later (seesaw/config! label :text (media-description slot-reference)))))))] @@ -689,7 +689,7 @@ (.addTrackMetadataListener metadata-finder md-listener) ; React to metadata changes. (.addAnalysisTagListener analysis-finder ss-listener ".EXT" "PSSI") ; React to song structure changes. (.addAlbumArtListener art-finder art-listener) ; React to artwork changes. - (.addMountListener metadata-finder mount-listener) ; React to media mounts and ejection. + (when-not (opus-quad?) (.addMountListener metadata-finder mount-listener)) ; React to media mounts and ejection. ;; Set the initial state of the interface. (when detail (.setScale detail (seesaw/value zoom-slider)))