more evenly distributed tags

yanick · Dec 14, 2010 · 6441d1d · 6441d1d
1 parent 82271c0
commit 6441d1d
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/lib/Galuga/Controller/Root.pm b/lib/Galuga/Controller/Root.pm
@@ -33,11 +33,16 @@ sub tags :Path('tags') :Args(0) {
     my ( $self, $c ) = @_;
 
     # get all tags and their tally
+    my %tags = map { $_->label => $_->count_related( 'entry_tags' ) } $c->model('DB::Tags')->search->all;
+    my @tags = sort { $tags{$a} <=> $tags{$b} } keys %tags;
+
+    for my $i ( 0..$#tags ) {
+        $tags{$tags[$i]} = int( 24 * ($i+1) / @tags );
+    }
 
-    $c->stash->{tags} = {
-        map { $_->label => $_->count_related( 'entry_tags' ) } $c->model('DB::Tags')->search->all
-    };
+    $c->stash->{tags} = \%tags;
 
+    return;
 }
 
 sub entries :Path( 'entries' ) :Args(0) {