Padre::Plugin::Nopaste - send code on a nopaste website from padre

Padre-Plugin-Nopaste documentation

Contained in the Padre-Plugin-Nopaste distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
PUBLIC METHODS
BUGS
SEE ALSO
AUTHOR
COPYRIGHT & LICENSE

Code Index:

package Padre::Plugin::Nopaste
__END__
EOF

NAME

Padre::Plugin::Nopaste - send code on a nopaste website from padre

SYNOPSIS

    $ padre
    Ctrl+Shift+V

DESCRIPTION

This plugin allows one to send stuff from Padre to a nopaste website with Ctrl+Shift+V, allowing for easy code / whatever sharing without having to open a browser.

It is using App::Nopaste underneath, so check this module's pod for more information.

PUBLIC METHODS

Standard Padre::Plugin API

Padre::Plugin::Nopaste defines a plugin which follows Padre::Plugin API. Refer to this module's documentation for more information.

The following methods are implemented:

menu_plugins_simple()
padre_interfaces()
plugin_icon()
plugin_name()

Standard Padre::Role::Task API

In order not to freeze Padre during web access, nopasting is done in a thread, as implemented by Padre::Task. Refer to this module's documentation for more information.

The following methods are implemented:

* nopaste()
* task_response(): Callback for task runned by nopaste().

BUGS

Please report any bugs or feature requests to padre-plugin-nopaste at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Padre-Plugin-Nopaste. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SEE ALSO

Plugin icon courtesy of Mark James, at http://www.famfamfam.com/lab/icons/silk/.

Our git repository is located at git://repo.or.cz/padre-plugin-nopaste.git, and can be browsed at http://repo.or.cz/w/padre-plugin-nopaste.git.

You can also look for information on this module at:

* AnnoCPAN: Annotated CPAN documentation: http://annocpan.org/dist/Padre-Plugin-Nopaste
* CPAN Ratings: http://cpanratings.perl.org/d/Padre-Plugin-Nopaste
* Open bugs: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Padre-Plugin-Nopaste

AUTHOR

Jerome Quelin, <jquelin@cpan.org>

COPYRIGHT & LICENSE

Copyright (c) 2009 Jerome Quelin, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Padre-Plugin-Nopaste documentation

Contained in the Padre-Plugin-Nopaste distribution.

#
# This file is part of Padre::Plugin::Nopaste.
# Copyright (c) 2009 Jerome Quelin, all rights reserved.
#
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
#

package Padre::Plugin::Nopaste;

use strict;
use warnings;

use File::Basename        qw{ fileparse };
use File::Spec::Functions qw{ catfile };
use Module::Util          qw{ find_installed };

#use Padre::Task;
#our @ISA     = qw{
#	Padre::Role::Task
#	Padre::Plugin
#};
use parent qw{ Padre::Plugin
Padre::Role::Task
}; #
#

our $VERSION = '0.3.1';


# -- padre plugin api, refer to Padre::Plugin

# plugin name
sub plugin_name { 'Nopaste' }

# plugin icon
sub plugin_icon {
    # find resource path
    my $pkgpath = find_installed(__PACKAGE__);
    my (undef, $dirname, undef) = fileparse($pkgpath);
    my $iconpath = catfile( $dirname,
        'Nopaste', 'share', 'icons', 'paste.png');

    # create and return icon
    return Wx::Bitmap->new( $iconpath, Wx::wxBITMAP_TYPE_PNG );
}

# padre interface
sub padre_interfaces {
    'Padre::Plugin' => 0.65,
    'Padre::Task'   => 0.65,
}

# plugin menu.
sub menu_plugins_simple {
    my ($self) = @_;
    'Nopaste' => [
        "Nopaste\tCtrl+Shift+V" => 'nopaste',  # launch thread, see Padre::Task
    ];
}

require Padre::Plugin::Nopaste::Task;
sub nopaste {
	#TRACE("nopaste") if DEBUG;
	my $self = shift;

	# Fire the task
	$self->task_request(
		task     => 'Padre::Plugin::Nopaste::Task',
		document => $self,
		callback => 'task_response',
	);

	return;
}

sub task_response {
	#TRACE("nopaste_response") if DEBUG;
	my $self = shift;
	my $task = shift;
	# Found what we were looking for
	if ( $task->{location} ) {
		#$self->ppi_select( $task->{location} );
		#return;
	}

	my $main = $self->current->main;

	# Generate the dump string and set into the output window
	$main->output->SetValue( $task->{message} );
	$main->output->SetSelection( 0, 0 );
	$main->show_output(1);

	# Must have been a clean result
	# TO DO: Convert this to a call to ->main that doesn't require
	# us to use Wx directly.
#	Wx::MessageBox(
#		$task->{message},
#		$task->{message},
#		Wx::wxOK,
#		$self->current->main,
#	);
}



# -- public methods


# -- private methods



1;
__END__