#!/usr/bin/perl
package Dudelicious;
use 5.010;
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} || '.', },
};
app->renderer->add_helper(
todo => sub {
state $todo = Text::Todo->new( shift->stash('config') );
return $todo;
}
);
app->renderer->add_helper(
get_list => sub {
my ( $self, $file ) = @_;
$self->helper('todo')->load($file) if $file;
my $line = 1;
return [
map {
line => $line++,
md5 => md5_hex( $_->text ),
text => $_->text,
done => $_->done,
},
$self->helper('todo')->list
];
}
);
get '/' => sub {
my $self = shift;
my $dir = $self->helper('todo')->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 '/todotxt' => 'todotxt';
get '/l/:file' => sub {
my $self = shift;
my $file = $self->stash('file') . '.txt';
my $format = $self->stash('format') || 'html';
my $list = $self->helper( 'get_list' => $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
= $self->helper( 'get_list' => $file )->[ $self->stash('line') - 1 ];
if ( $format eq 'json' ) {
$self->render_json($entry);
}
else {
$self->render( entry => $entry, layout => 'todotxt' );
}
} => 'entry';
app->start if !caller();
__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