diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-05-31 04:51:29 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-05-31 04:51:29 -0500 |
| commit | 84640f1b3b402d2a64a5005d757f7171df2d658d (patch) | |
| tree | 4c916aeffe0cecc9049400592a809f6e2b697135 /lib/Reply/Plugin/Editor.pm | |
| parent | cf4edf5661ed8cfaa392e5ee63b0d75a70ac0c87 (diff) | |
| download | reply-84640f1b3b402d2a64a5005d757f7171df2d658d.tar.gz reply-84640f1b3b402d2a64a5005d757f7171df2d658d.zip | |
add some configuration to a couple plugins
Diffstat (limited to 'lib/Reply/Plugin/Editor.pm')
| -rw-r--r-- | lib/Reply/Plugin/Editor.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Reply/Plugin/Editor.pm b/lib/Reply/Plugin/Editor.pm index 76184d1..fe5c23e 100644 --- a/lib/Reply/Plugin/Editor.pm +++ b/lib/Reply/Plugin/Editor.pm @@ -10,9 +10,14 @@ use Proc::InvokeEditor; sub new { my $class = shift; + my %opts = @_; my $self = $class->SUPER::new(@_); - $self->{editor} = Proc::InvokeEditor->new; + $self->{editor} = Proc::InvokeEditor->new( + (defined $opts{editor} + ? (editors => [ $opts{editor} ]) + : ()) + ); $self->{current_text} = ''; return $self; |