From bcb492066078951581062f2418405cb4b842cd86 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 7 Jan 2017 10:28:36 +0100
Subject: hashl ls: Add LS_COLORS support

---
 bin/hashl | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/bin/hashl b/bin/hashl
index 875d247..f344735 100755
--- a/bin/hashl
+++ b/bin/hashl
@@ -410,12 +410,32 @@ sub cmd_list {
 	return;
 }
 
+sub colorize {
+	my ( $filename, $cmap ) = @_;
+
+	my $filetype = ( split( qr{ [.] }x, $filename ) )[-1];
+	if ( exists $cmap->{$filetype} ) {
+		return sprintf( "\e[%sm%s\e[0m", $cmap->{$filetype}, $filename );
+	}
+	return $filename;
+}
+
 sub cmd_ls {
 	my ($re) = @_;
 	my $now = DateTime->now;
 
 	ensure_equal_hash_sizes();
 
+	my @ls_colors = split( qr{ : }x, $ENV{LS_COLORS} // q{} );
+	my %cmap;
+
+	for my $ls_color (@ls_colors) {
+		if ( $ls_color =~ m{ ^ [*] [.] (?<filetype> [^=]+ ) = (?<color> .+) }x )
+		{
+			$cmap{ $+{filetype} } = $+{color};
+		}
+	}
+
 	for my $pair (
 		sort { $a->[1] cmp $b->[1] }
 		map { map_with_prefix( $_, $_->files ) } @ehashl
@@ -439,7 +459,8 @@ sub cmd_ls {
 
 		printf( "%-7s %s %s\n",
 			$db->si_size( $file->{size} ),
-			$dt->strftime($time_format), $name );
+			$dt->strftime($time_format),
+			colorize( $name, \%cmap ) );
 	}
 
 	return;
-- 
cgit v1.2.3