|
|
@ -20,9 +20,9 @@ sub _paste_path { |
|
|
|
sub create { |
|
|
|
sub create { |
|
|
|
my ($self) = @_; |
|
|
|
my ($self) = @_; |
|
|
|
|
|
|
|
|
|
|
|
my @syntax = ('auto'); |
|
|
|
my @syntax = ($self->c(text => ['plaintext', 'markdown'])); |
|
|
|
my $langs = $self->app->config->{zerobin}->{syntax}; |
|
|
|
my $langs = $self->app->config->{zerobin}->{syntax}; |
|
|
|
push @syntax, $self->c('-------' => $langs) |
|
|
|
push @syntax, $self->c(code => $langs) |
|
|
|
if (ref($langs) eq 'ARRAY'); |
|
|
|
if (ref($langs) eq 'ARRAY'); |
|
|
|
|
|
|
|
|
|
|
|
$self->stash({syntax => \@syntax}); |
|
|
|
$self->stash({syntax => \@syntax}); |
|
|
|