--- trunk/lib/Frey/SVK.pm 2008/11/29 00:20:23 614 +++ trunk/lib/Frey/SVK.pm 2008/12/02 17:34:23 681 @@ -3,20 +3,24 @@ extends 'Frey'; with 'Frey::Web'; +with 'Frey::Path'; -has commit_path => ( - documentation => 'path to commit', +use Moose::Util::TypeConstraints; + +enum 'SVK_Action' => ( 'commit', 'revert', 'postpone' ); + +has action => ( is => 'rw', - isa => 'ArrayRef|Str', + isa => 'SVK_Action', ); -has revert_path => ( - documentation => 'path to commit', +has path => ( + documentation => 'path to work with', is => 'rw', - isa => 'ArrayRef|Str', + isa => 'Str', ); -has message => ( +has commit_message => ( documentation => 'commit message', is => 'rw', isa => 'Str', @@ -63,19 +67,32 @@ sub status_as_markup { my ($self) = @_; my $status = `svk status -q`; - $status =~ s{^(\w+\s+)(\S+)$}{$1$2}gm; +# $status =~ s{^(\w+\s+)(\S+)$}{$1$2}gm; # FIXME + $status =~ s{^(\w+[\+\s]+)(\S+)$}{$1$2}gm; if ( $status ) { - $self->add_css( qq| pre.l a { text-decoration: none; } | ); + $self->add_css(qq| + pre.l a { text-decoration: none; } + div.commit { + background: #ffd; + padding: 1em 1em; + position: fixed; + top: 1em; + right: 1em; + z-index: 10; + } + | ); + $status = qq| -