From b6ccf9b77d740afd48b471cef972a19c3e8b599d Mon Sep 17 00:00:00 2001
From: Rasmus Steinke <rasi@xssn.at>
Date: Mon, 7 Aug 2017 23:11:52 +0200
Subject: dont run sort for latest view

---
 clerk | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/clerk b/clerk
index b5e7576..02bc14c 100755
--- a/clerk
+++ b/clerk
@@ -314,9 +314,10 @@ 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;
-		@albums = sort @albums;
+		if (! $sorted) {
+			@albums = sort @albums;
+		}
 		push @albums, $strval;
-
 	}
 
 	return \@albums;
-- 
cgit v1.2.3-24-g4f1b