Padre::Plugin::HG::StatusTree - Padre::Plugin::HG::StatusTree documentation
Index
Code Index:
NAME
Padre::Plugin::HG::StatusTree
Displays the status of the current hg project in a tree format
SYNOPSIS
my $object = Padre::Plugin::HG::StatusTree->new($self,$project_root);
DESCRIPTION
This module diplays a tree in the left panel of the ide that shows
the mecurial status of each file.
Right clicking on a file will give you options to perform actions. Right clicking the
project root will give you project wide options.
METHODS
new
Creates and displays the status tree
$tree = Padre::Plugin::HG::StatusTree->new($self, $project_root);
gettext_label
Works out what to name the tab for the project.
getWxNode
Add the nodes to the tree.
getWxNode($treectrl,[name,parent,type],path);
=cut
parseHgStatus
$self->parseHgstatus(@hgstatus);
parses the output of HGstatus and calls create branch for each item.
createBranch
$self->parseHgstatus(@hgstatus);
parses the output of HGstatus and calls create branch for each item.
drawTree
$self->drawTree($treectrl);
creates the Tree from the output of the vcs status
_on_tree_item_activated
Performs actions when the users double clicks on a tree node
at the moment opens a file when it is double clicked.
open_file
open_file($path)
opens the file in the editor.
refresh
$self->refresh();
refreshes the tree control by deleteing all items and
readding them.
package Padre::Plugin::HG::StatusTree;
use strict;
use warnings;
our $VERSION = '0.01';
use Padre::Wx;
use Padre::Util qw/_T/;
use Wx qw/WXK_UP WXK_DOWN wxTR_HAS_BUTTONS wxTR_HIDE_ROOT /;
use base 'Wx::Panel';
use Padre::Plugin::My;
use File::Spec;
use File::Basename;
use Data::Dumper;
my $HG;
my %dirTree;
my $project_name;
my %WxTree;
my $ThisTree;
my $image = qq(
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0
RVh0U29mdHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAQaSURBVHjaAEEAvv8BAEsbAAAE
+AAACPEAAAr8BwDxAD4A7w9lFgUiPhYKGQ4BAgEB6+7v8+rq78j+/ACbAAEDvAAFA/cACAUA
AP//AAKIEW4A+wcZBo6/XbqyWpHRFokMnroeDJKCkgyMDAwMLz+8Zthz5gjDog2bGM6duL2O
gYWtlIGH7R7Dv/8MAAHEADbAV0iOMZLleNBC7//H3xz5//3/1//o4CdQ7Oz7k/9jJmT9ZzHQ
u8qgY6jMYGTEABAAQQC+/wMAJQ4IAAD3kDc6LUpiS2QAEgUUAPj6+QD+/v4A/wD/APr++gDx
+vEA6PbrAPb+9wAbKQ0A6fnkFeDQ7CIAAgS0AogFqMaGhZ8l5jfnL4bXX94ysP3jYPjD+Qes
+evfrwwg8PPfT4b3P94zvPz+kuH5z3cMvyRfMrDK/PL5/YrLAyCAmFk1BLr4FBi0njE9ZhDi
E2YQ4RRh+PP3D9jmb3++MXz+85nh3Y93DK+/v2Z4+/Mtw9kX5xj23NnJwMXKwfD/uYAoQACx
cPMx27DIMDL8YPnFsOXZJoafjD8YdAT1GETYhBnYWTjALvj15xfD299vGa5+uMyw++lOhq/c
Pxk4lb4zcF1nNAQIIBYmfga+3/w/GNhYmRj+sfxkOPphD8OjPzcZpDnkGHhZ+MEGfAG64tnP
RwyPvzxi+M38g4Gdj5nh1++fDCw8/9kBAoiFkeM3AwsnKwMPEweDIAcfAxc7K8NP1o8MTxiv
MbAysIAN+Mv0Byj2h4GPmwvoKjaGDz8/M/xnYWb4x8TECBBAQBXfvwiyCnB+Byrg4WBn4OXg
ZOAG0hxs7AwszEwQA/7+Y/jx+xfDV6ALPzN+Z/jFBHTxDwGG99+YfgEEEMvnDz9OSH5i92VT
4GHgYmZn4OHiZOBlZ2fg4uAA2gZMbaCo/PuX4dtPFgZgomT4C0x9fzh+MjA/FmN4+urPZYAA
Yvr1gWXWp4ssDELsggzsnMzA0AUawsnJwM/FxSAEdLIQDw8DP5DPw87BwAl0FTsHE4MwmxDD
l1NcDN9+/JwBEEBMDMz/9z8//XPt7+PiDIJ8PAxsXP8ZOFhYGLiBGvi5uRkEuXmAXuMEeomV
gY2DkUFQgIuB4Ywsw9Mz3/cxsPzbDBBAzAxyYr//fWI78+4yi6sYr5iopDYwQAUYGbi52ICB
xsnAxsbE8JvxF8N/tj8MjP/YGF7v5mc4s+Dj/a9/v8cwsDM/AQggZgZeNWBmYn3/+9uPHU/O
/FT6do9bnYedn0FQiBsoDIzav4wMP9+zMTw9ycxwds4vhtOr3+76+vNrLAM38w2G/4wMAAHE
yGBiyADOct+B+PdfbqCgJwcHR5aIFLcRjxAwuQEj4tu7Pz9fP/ty5fu3H9OBWXgj0ObPDEDv
gAwACDAAvIZw301II8cAAAAASUVORK5CYII= );
#setup the image list
my $images = Wx::ImageList->new( 16, 16 );
my $file_types = {
M => $images->Add(
Wx::ArtProvider::GetBitmap( 'wxART_TIP', 'wxART_OTHER_C', [ 16, 16 ] ),
),
dir => $images->Add(
Wx::ArtProvider::GetBitmap( 'wxART_FOLDER', 'wxART_OTHER_C', [ 16, 16 ] ),
),
C => $images->Add(
Wx::ArtProvider::GetBitmap( 'wxART_TICK_MARK', 'wxART_CMN_DIALOG', [ 16, 16 ] ),
),
'?' => $images->Add(
Wx::ArtProvider::GetBitmap( 'wxART_MISSING_IMAGE', 'wxART_OTHER_C', [ 16, 16 ] ),
),
};
my @root = qw (root root);
sub new
{
my ($class, $hg, $root) = @_;
$project_name = $root;
my $self = $class->SUPER::new( Padre::Current->main->left );
my $box = Wx::BoxSizer->new(Wx::wxVERTICAL);
my $treectrl = Wx::TreeCtrl->new( $self, -1 );
$treectrl->AssignImageList($images);
$HG = $hg; #assign this the hg object.
$self->drawTree($treectrl);
Wx::Event::EVT_TREE_ITEM_MENU(
$treectrl, $treectrl,
\&_on_tree_item_menu,
);
#Double Click
Wx::Event::EVT_TREE_ITEM_ACTIVATED(
$treectrl, $treectrl,
\&_on_tree_item_activated
);
$box->Add( $treectrl, 1, Wx::wxGROW );
$self->SetSizer($box);
Padre::Current->main->left->show($self);
$ThisTree = $self;
return $self;
}
sub gettext_label {
my @dirs = File::Spec->splitdir( $project_name );
my $name = File::Spec->catdir(('..',$dirs[-2], $dirs[-1]));
chomp $name;
return "(HG) ".$name;
}
sub getWxNode
{
my ($treectrl,$node,$path) = @_;
my $name = $node->[0];
my $parent = $node->[1];
my $type = $node->[2];
chomp $path;
chomp $name;
if (exists($WxTree{$path}))
{
return $WxTree{$path};
# $WxTree{$path} = $treectrl->AppendItem( $WxTree{$parent}, $name);
}else
{
$WxTree{$path} = $treectrl->AppendItem(
getWxNode($treectrl, $dirTree{$parent}, $parent),
$name,
$file_types->{$type},
-1,
Wx::TreeItemData->new(
{ name => $name,
path => $path,
type => $type,
}));
}
}
sub parseHgStatus
{
my (@hgstatus) = @_;
foreach my $line (@hgstatus)
{
my ($filestatus, $path) = split(/\s/,$line);
chomp $path;
my @dir = File::Spec->splitdir( $path );
createBranch(\@dir,$filestatus);
}
}
sub createBranch
{
my ($dirRef, $status) = @_;
my @dir = @$dirRef;
my $count = 0;
my %parentChild;
foreach my $item (@dir)
{
my $type;
my $parent = '';
if ($count == 0 )
{
$parent = $dirTree{root}->[0];
}
else
{
$parent= File::Spec->catfile(@dir[0..$count -1 ]);
}
my $node = File::Spec->catfile(@dir[0..$count]);
if (!exists($dirTree{$node}))
{
if ($count < (scalar(@dir) -1))
{
$type = 'dir';
}
else
{
$type = $status;
}
$dirTree{$node} = [$item, $parent, $type];
}
$count ++;
}
#return %dirTree;
}
sub drawTree {
my ($self,$treectrl) = @_;
%WxTree = ();
$WxTree{root} = $treectrl->AddRoot(
$project_name,
$file_types->{dir},
-1,
Wx::TreeItemData->new(
{ name => 'root',
path => '',
type => 'root',
}) );
%dirTree = ();
$dirTree{root} = ['root', 'root', 'dir'];
chdir ($project_name);
my @hgStatus = `hg status --all`;
chomp (@hgStatus);
parseHgStatus(@hgStatus);
foreach my $file (keys(%dirTree))
{
my $path = File::Spec->catdir($project_name,$file);
my $dir = File::Basename::dirname($path);
getWxNode($treectrl, $dirTree{$file}, $file);
# print " getWxNode($treectrl, ". $dirTree{$file}." , $file)\n";
}
#expand the root as a work around for windows bug. where
#root does not expand.
$treectrl->Expand($WxTree{root});
}
sub _on_tree_item_activated
{
my ( $self, $event,$me ) = @_;
my $node = $event->GetItem;
my $node_data = $self->GetPlData($node);
my $selected_path = $node_data->{path};
my $selected_file = $node_data->{name};
my $selected_type = $node_data->{type};
my $full_path = File::Spec->catdir(($project_name,$selected_path));
if ($selected_type ne 'dir' and $selected_type ne 'root')
{
open_file($full_path);
}
}
sub _on_tree_item_menu {
my ( $self, $event,$me ) = @_;
my $node = $event->GetItem;
my $node_data = $self->GetPlData($node);
my $menu = Wx::Menu->new;
# Default action - same when the item is activated
my $selected_path = $node_data->{path};
my $selected_file = $node_data->{name};
my $selected_type = $node_data->{type};
my $full_path = File::Spec->catdir(($project_name,$selected_path));
my $parent_dir = File::Basename::dirname($full_path);
#Commit
if ($selected_type eq 'root')
{
my $default = $menu->Append(
-1,
Wx::gettext( 'Refresh' ));
Wx::Event::EVT_MENU(
$self, $default,
sub { $ThisTree->refresh($self) }
);
my $pull = $menu->Append(
-1,
Wx::gettext( 'Pull & Update' ));
Wx::Event::EVT_MENU(
$self, $pull,
sub { $HG->pull_update_project($selected_file, $project_name) }
);
my $push = $menu->Append(
-1,
Wx::gettext( 'Push' ));
Wx::Event::EVT_MENU(
$self, $push,
sub { $HG->push_project($selected_file, $project_name) }
);
my $commit = $menu->Append(
-1,
Wx::gettext( 'Commit' ));
Wx::Event::EVT_MENU(
$self, $commit,
sub { require Padre::Plugin::HG::ProjectCommit;
Padre::Plugin::HG::ProjectCommit->showList($HG);
$ThisTree->refresh($self) }
);
}
elsif ($selected_type ne 'dir' and $selected_type ne 'root')
{
my $default = $menu->Append(
-1,
Wx::gettext( 'Commit' ));
Wx::Event::EVT_MENU(
$self, $default,
sub { $HG->vcs_commit($selected_file, $parent_dir ); $ThisTree->refresh($self)}
);
#Add
my $add = $menu->Append(
-1,
Wx::gettext( 'Add' ));
Wx::Event::EVT_MENU(
$self, $add,
sub { $HG->vcs_add($selected_file, $parent_dir);$ThisTree->refresh($self)}
);
#diff (just diffs current file to Tip)
my $diff = $menu->Append(
-1,
Wx::gettext( 'Diff to Tip' ));
Wx::Event::EVT_MENU(
$self, $diff,
sub { $HG->show_diff($selected_file, $parent_dir);}
);
#diff to a revision
my $diff = $menu->Append(
-1,
Wx::gettext( 'Diff to Revision' ));
Wx::Event::EVT_MENU(
$self, $diff,
sub { $HG->show_diff_revision($selected_file, $parent_dir);}
);
#open
my $open = $menu->Append(
-1,
Wx::gettext( 'Open' ));
Wx::Event::EVT_MENU(
$self, $open,
sub{open_file($full_path)}
);
}
my $x = $event->GetPoint->x;
my $y = $event->GetPoint->y;
$self->PopupMenu( $menu, $x, $y );
}
sub open_file
{
my ($path) = @_;
my $main = Padre->ide->wx->main;
if ( my $id = $main->find_editor_of_file($path) ) {
my $page = $main->notebook->GetPage($id);
$page->SetFocus;
} else {
$main->setup_editors($path);
}
}
sub refresh {
my ($self, $treeCtrl) = @_;
$treeCtrl->DeleteAllItems;
$self->drawTree($treeCtrl);
return ();
}
1;