squeezelite-esp32/plugin/SqueezeESP32/PlayerSettings.pm

package Plugins::SqueezeESP32::PlayerSettings;

use strict;
use base qw(Slim::Web::Settings);
use List::Util qw(first);

use Slim::Utils::Log;
use Slim::Utils::Prefs;

my $sprefs = preferences('server');
my $prefs = preferences('plugin.squeezeesp32');
my $log   = logger('plugin.squeezeesp32');

sub name {
	return Slim::Web::HTTP::CSRF->protectName('PLUGIN_SQUEEZEESP32_PLAYERSETTINGS');
}

sub needsClient {
	return 1;
}

sub validFor {
	my ($class, $client) = @_;
	return $client->model eq 'squeezeesp32';
}

sub page {
	return Slim::Web::HTTP::CSRF->protectURI('plugins/SqueezeESP32/settings/player.html');
}

sub prefs {
	my ($class, $client) = @_;
	my @prefs = qw(width small_VU spectrum artwork eq);
	return ($prefs->client($client), @prefs);
}

sub handler {
	my ($class, $client, $paramRef) = @_;
	
	my ($cprefs, @prefs) = $class->prefs($client);
	
	if ($paramRef->{'saveSettings'}) {
		if ($client->displayWidth) {
			$cprefs->set('small_VU', $paramRef->{'pref_small_VU'});
			my $spectrum =	{	scale => $paramRef->{'pref_spectrum_scale'},
								small => { 	size => $paramRef->{'pref_spectrum_small_size'}, 
											band => $paramRef->{'pref_spectrum_small_band'} },
								full  => { 	band => $paramRef->{'pref_spectrum_full_band'} },
					};
			$cprefs->set('spectrum', $spectrum);
			
			my $artwork =	{	enable => $paramRef->{'pref_artwork_enable'},
								x => $paramRef->{'pref_artwork_x'}, 
								y => $paramRef->{'pref_artwork_y'},
					};
			$cprefs->set('artwork', $artwork);				
			$client->display->modes($client->display->build_modes);
			$client->display->update;
		
			# force update or disable artwork
			if ($artwork->{'enable'}) {
				Plugins::SqueezeESP32::Plugin::update_artwork($client, 1);
			} else {
				Plugins::SqueezeESP32::Plugin::config_artwork($client);
			}	
		}	
		
		my $eq = $cprefs->get('eq');
		for my $i (0 .. $#{$eq}) {
			$eq->[$i] = $paramRef->{"pref_eq.$i"};
		}
		$cprefs->set('eq', $eq);
		Plugins::SqueezeESP32::Plugin::send_equalizer($client);		
	}
	
	if ($client->displayWidth) {
		# as there is nothing captured, we need to re-set these variables
		$paramRef->{'pref_width'} = $cprefs->get('width'); 
	
		# here I don't know why you need to set again spectrum which is a reference
		# to a hash. Using $paramRef->{prefs} does not work either. It seems that 
		# some are copies of value, some are references, can't figure out. This whole
		# logic of "Settings" is beyond me and I really hate it
		$paramRef->{'pref_spectrum'} = $cprefs->get('spectrum');
		$paramRef->{'pref_artwork'} = $cprefs->get('artwork');
	}
	
	$paramRef->{'pref_eq'} = $cprefs->get('eq');
	
	return $class->SUPER::handler($client, $paramRef);
}

1;