From 29afe94572541d9648b0188ba0e487ced9f820de Mon Sep 17 00:00:00 2001
From: Jon Langseth <jon.langseth@hig.no>
Date: Tue, 14 May 2013 13:26:00 +0200
Subject: [PATCH] Verbose list with trak ID's

---
 trk | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/trk b/trk
index f1cee04..d089a47 100755
--- a/trk
+++ b/trk
@@ -519,7 +519,15 @@ elsif ( ( $command eq "projects" ) || ( $command eq "list" )  )
 	#foreach my $id ( keys %$tracks )
 	foreach my $id ( sort { $tracks->{$a} cmp $tracks->{$b} || $a cmp $b } keys %$tracks  )
 	{
-		printf(" %s %s\n", ($id eq $current ? ">" : " " ),$tracks->{$id} );
+	
+		if (( $#ARGV >= 1) && ( $ARGV[1] eq "verbose" ))
+		{
+			printf(" %s %s %s\n", ($id eq $current ? ">" : " " ), $id , $tracks->{$id});
+		}
+		else
+		{
+			printf(" %s %s\n", ($id eq $current ? ">" : " " ),$tracks->{$id} );
+		}
 	}
 	print("\n");
 }
-- 
2.39.2