added remove edits link

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index e9c2fdf..9028236 100644 (file)
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -40,15 +40,31 @@ sub view {
        $self->render( change => retrieve( "/tmp/changes/$uid" ), uid => $uid );
 }
 
+sub _edit_path {
+       my $self = shift;
+       my $path = $self->param('path') || $self->session('path');
+       $self->app->home->rel_dir('data') . '/' . $path . '.edits';
+}
+
 sub edits {
        my ( $self ) = @_;
        my $path = $self->param('path') || $self->session('path');
-       my $edit_path = $self->app->home->rel_dir('data') . '/' . $path . '.edits';
        my $edits;
-       foreach my $t ( sort { $b cmp $a } glob $edit_path . '/*' ) {
+       my $glob = $self->_edit_path . '/*';
+       foreach my $t ( sort { $b cmp $a } glob $glob ) {
                push @$edits, retrieve("$t");
        }
        $self->render( edits => $edits );
 }
 
+sub edit {
+       my $self = shift;
+
+       if ( my $t = $self->param('remove') ) {
+               unlink $self->_edit_path . '/' . $t;
+       }
+
+       $self->redirect_to('/changes/edits');
+}
+
 1;

diff --git a/public/mojo_facets.css b/public/mojo_facets.css
index 7d07948..7f42068 100644 (file)
--- a/public/mojo_facets.css
+++ b/public/mojo_facets.css
@@ -174,3 +174,16 @@ a.facet {
        text-decoration: line-through;
 }
 
+div.edit a {
+       margin-top: 3em;
+       float: right;
+}
+
+div.edit {
+       border-bottom: 1px dashed #eee;
+}
+
+div.edit pre {
+       display: block;
+}
+

diff --git a/templates/changes/edits.html.ep b/templates/changes/edits.html.ep
index fc721b8..23e16a1 100644 (file)
--- a/templates/changes/edits.html.ep
+++ b/templates/changes/edits.html.ep
@@ -1,5 +1,8 @@
 % layout 'default';
 
 % foreach my $e ( @$edits ) {
+<div class=edit>
+<a href="<%= url_for( action => 'edit' )->query( remove => $e->{time} ) %>">remove</a>
 <pre class=debug><%= dumper $e %></pre>
+</div>
 % }