projects
/
MojoFacets.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added /code/remove?path=
[MojoFacets.git]
/
lib
/
MojoFacets
/
Code.pm
diff --git
a/lib/MojoFacets/Code.pm
b/lib/MojoFacets/Code.pm
index
0a523ef
..
983bcc7
100644
(file)
--- a/
lib/MojoFacets/Code.pm
+++ b/
lib/MojoFacets/Code.pm
@@
-8,13
+8,15
@@
use base 'Mojolicious::Controller';
use Data::Dump qw(dump);
use File::Slurp;
use Data::Dump qw(dump);
use File::Slurp;
+sub _code_dir { $_[0]->app->home->rel_dir('public') . '/code' }
+
sub index {
my $self = shift;
$self->redirect_to('/data/columns') unless $self->session('columns');
my $columns = { map { $_ => 1 } @{ $self->session('columns') } };
sub index {
my $self = shift;
$self->redirect_to('/data/columns') unless $self->session('columns');
my $columns = { map { $_ => 1 } @{ $self->session('columns') } };
- my $dir = $self->
app->home->rel_dir('public') . '/code'
;
+ my $dir = $self->
_code_dir
;
my $snippets;
my $snippets;
@@
-38,4
+40,12
@@
warn "# depends $depends $found $#deps\n";
);
}
);
}
+sub remove {
+ my $self = shift;
+ if ( my $path = $self->param('path') ) {
+ unlink $self->_code_dir . '/' . $path;
+ }
+ $self->redirect_to('/code');
+}
+
1;
1;