===================================================================
RCS file: /cvs/todotxt/Text-Todo/bin/dudelicious.pl,v
retrieving revision 1.14
retrieving revision 1.16
diff -u -r1.14 -r1.16
--- todotxt/Text-Todo/bin/dudelicious.pl	2010/05/01 22:47:51	1.14
+++ todotxt/Text-Todo/bin/dudelicious.pl	2010/05/05 03:01:08	1.16
@@ -82,6 +82,7 @@
     else {
         $self->render(
             list   => $self->helper('get_list'),
+            tags   => $self->helper('todo')->known_tags,
             layout => 'todotxt'
         );
     }
@@ -146,11 +147,11 @@
 
 @@ tags.txt.ep
 % foreach my $tag (keys %{ $tags }) {
-<%= $tag %>, <%= $tags->{$tag} %>
+<%= $tag %>: <%= $tags->{$tag} %>
 % }
 
 @@ tag.txt.ep
-# <%= $tag %>
+# <%== $tag %>
 % foreach my $item (@{ $items}) {
 <%= $item %>
 % }
@@ -161,11 +162,17 @@
 @@ index.html.ep
 % foreach my $file (@{ $files }) {
 % my ($basename) = $file =~ /^(.*?)(?:\.[^\.]+)?$/xms;
-<a href="<%= url_for 'list' %>/<%= $basename %>"><%= $file %></a><br />
+<a href="<%= url_for 'list', format => '' %>/<%= $basename %>"><%= $file %></a><br />
 % }
 
 @@ list.html.ep
 <h1><%= $file %></h1>
+% if ( $tags ) {
+%   foreach my $tag (keys%{ $tags }) {
+%= include 'tag_menu', tag => $tag
+<br />
+%   }
+% }
 <ol>
 % foreach my $entry (@{ $list }) {
     <li>
@@ -184,10 +191,20 @@
 
 @@ tag.html.ep
 <h2><%= $tag %></h2>
-% foreach my $item (@{ $items }) {
+% foreach my $item (sort @{ $items }) {
 <%= $item %><br />
 % }
 
+@@ tag_menu.html.ep
+% my $items = todo()->listtag($tag);
+<%= $tag %>: 
+<select>
+% foreach my $item (sort @{ $items }) {
+    <option><%= $item %></option>
+% }
+</select>
+
+
 @@ layouts/todotxt.html.ep
 <!doctype html><html>
     <head>
@@ -219,7 +236,7 @@
 Since the $VERSION can't be automatically included, 
 here is the RCS Id instead, you'll have to look up $VERSION.
 
-    $Id: dudelicious.pl,v 1.14 2010/05/01 21:47:51 andrew Exp $
+    $Id: dudelicious.pl,v 1.16 2010/05/05 02:01:08 andrew Exp $
 
 =head1 SYNOPSIS
 
