From 4217af881fbc2a0a27ac3249ab7ef4eb4d6ac365 Mon Sep 17 00:00:00 2001
From: Rasmus Steinke <rasi@xssn.at>
Date: Mon, 7 Aug 2017 23:24:47 +0200
Subject: simplify sorting

---
 clerk | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'clerk')

diff --git a/clerk b/clerk
index 02bc14c..6cc4961 100755
--- a/clerk
+++ b/clerk
@@ -290,7 +290,7 @@ sub formatted_albums {
 
 	my %uniq_albums;
 	for my $i (@$rdb) {
-		my $newkey = join "", $i->@{qw/AlbumArtist Album Date/};
+		my $newkey = join "", $i->@{qw/AlbumArtist Date Album/};
 		if (!exists $uniq_albums{$newkey}) {
 			my $dir = (dirname($i->{uri}) =~ s/\/CD.*$//r);
 			$uniq_albums{$newkey} = {$i->%{qw/AlbumArtist Album Date mtime/}, Dir => $dir};
@@ -314,9 +314,6 @@ sub formatted_albums {
 	for my $k (@skeys) {
 		my @vals = ((map { $_ // "Unknown" } $uniq_albums{$k}->@{qw/AlbumArtist Date Album/}), $uniq_albums{$k}->{Dir});
 		my $strval = sprintf $fmtstr."%s\n", @vals;
-		if (! $sorted) {
-			@albums = sort @albums;
-		}
 		push @albums, $strval;
 	}
 
-- 
cgit v1.2.3-24-g4f1b