some visual fixes

1 files changed, 20 insertions, 7 deletions

diff --git a/clerk b/clerk
index 5c67cd8..d3d1898 100755
--- a/clerk
+++ b/clerk
@@ -17,8 +17,9 @@ use Try::Tiny;
 use FindBin qw($Bin $Script);
 use Getopt::Long qw(:config no_ignore_case bundling);
 use HTTP::Date;
+use Scalar::Util qw(looks_like_number);
 use IPC::Run qw( timeout start );
-use List::Util qw(any max);
+use List::Util qw(any max maxstr);
 use Net::MPD;
 use Pod::Usage qw(pod2usage);
 use POSIX qw(tzset);
@@ -61,6 +62,7 @@ sub parse_config {
 		songs       => $g->{songs},
 		chunksize   => $g->{chunksize},
 		player      => $g->{player},
+		tagging     => $g->{tagging},
 		jump_query  => $g->{jump_query}
 	);
 
@@ -477,8 +479,8 @@ sub action_db_tracks {
 	mpd_reachable();
 	{
 		local $_ = $action;
-		if    (/^Add/)     { mpd_add_items(\@sel) }
-		elsif (/^Replace/) { mpd_replace_with_items(\@sel) }
+		if    (/^Add/)                { mpd_add_items(\@sel) }
+		elsif (/^Replace/)            { mpd_replace_with_items(\@sel) }
 		elsif (/^Rate Track\(s\)/)    { mpd_rate_with_tracks(\@sel) }
 	}
 }
@@ -507,8 +509,8 @@ sub action_random {
 	mpd_reachable();
 	{
 		local $_ = $out;
-		if    (/^Track/) { random_tracks() }
-		elsif (/^Album/) { random_album() }
+		if    (/^Track/)    { random_tracks() }
+		elsif (/^Album/)    { random_album() }
 		elsif (/^Settings/) { action_settings(ask_to_pick_settings()) }
 	}
 }
@@ -535,6 +537,9 @@ sub mpd_rate_items {
 	my ($sel, $rating, $mode) = @_;
 	chomp $rating;
 	$rating = undef if $rating =~ /^Delete Rating/;
+	if ($tagging eq "true") {
+		$mpd->send_message('rating', "$uri\t$mode\t${rating}");
+	}
 	$mpd->sticker_value("song", $_, $mode, $rating) for @{$_[0]};
 }
 
@@ -558,12 +563,20 @@ sub mpd_rate_with_albums {
 		}
 	}
 	push @final_list, [ @list_of_files ];
-	mpd_rate_items(@final_list, $rating, "albumrating");
+	if ($rating eq "---\n") {
+		#noop
+	} else {
+		mpd_rate_items(@final_list, $rating, "albumrating");
+	}
 }
 
 sub mpd_rate_with_tracks {
 	my $rating = ask_to_pick_ratings();
-	mpd_rate_items(@_, $rating, "rating");
+	if ($rating eq "---\n") {
+		#noop
+	} else {
+		mpd_rate_items(@_, $rating, "rating");
+	}
 }
 
 sub mpd_save_cur_playlist {