#!/usr/bin/env perl
package Dudelicious;
use Data::Dumper;
use version; our $VERSION = qv('0.1.0');
BEGIN {
use FindBin;
use lib "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/mojo/lib";
}
use Carp qw/ carp croak /;
use Digest::MD5 qw/ md5_hex /;
use Text::Todo;
use Mojolicious::Lite;
use Mojo::JSON;
app->home->parse( $ENV{DUDELICIOUS_HOME} ) if $ENV{DUDELICIOUS_HOME};
plugin 'json_config' => {
file => 'dudelicious.conf',
default => { todo_dir => $ENV{DUDELICIOUS_HOME} || '.', },
};
get '/' => sub {
my $self = shift;
my $dir = _todo($self)->file('todo_dir');
opendir my $dh, $dir or croak "Unable to opendir $dir: $!";
my @files = grep {/\.te?xt$/ixms} readdir $dh;
closedir $dh;
$self->render( files => \@files, layout => 'todotxt' );
} => 'index';
get '/l/:file' => sub {
my $self = shift;
my $file = $self->stash('file') . '.txt';
my $format = $self->stash('format') || 'html';
my $list = _get_list( $self, $file );
if ( $format eq 'json' ) {
$self->render_json($list);
}
else {
$self->render( list => $list, layout => 'todotxt' );
}
} => 'list';
get '/l/:file/e/:line' => sub {
my $self = shift;
my $file = $self->stash('file') . '.txt';
my $format = $self->stash('format') || 'html';
my $entry = _get_list( $self, $file )->[ $self->stash('line') - 1 ];
if ( $format eq 'json' ) {
$self->render_json($entry);
}
else {
$self->render( entry => $entry, layout => 'todotxt' );
}
} => 'entry';
app->start unless caller();
sub _todo {
my ($c) = @_;
if ( !$c->stash('todo') ) {
my $todo = Text::Todo->new( $c->stash('config') );
$c->stash( 'todo' => $todo );
}
return $c->stash('todo');
}
sub _get_list {
my ( $c, $file ) = @_;
my $line = 1;
return [
map ( { line => $line++,
md5 => md5_hex( $_->text ),
text => $_->text,
done => $_->done,
},
_todo($c)->listfile($file),
)
];
}
__DATA__
@@ list.txt.ep
% foreach my $entry (@{ $list }) {
%== include 'entry', entry => $entry;
% }
@@ entry.txt.ep
<%= $entry->{text} %>
@@ layouts/todotxt.txt.ep
%= content
@@ index.html.ep
% foreach my $file (@{ $files }) {
<%== $file %>
% }
@@ list.html.ep