--- trunk/lib/Frey/SVK.pm 2008/11/29 00:20:23 614 +++ trunk/lib/Frey/SVK.pm 2008/11/29 01:01:14 615 @@ -4,16 +4,19 @@ extends 'Frey'; with 'Frey::Web'; -has commit_path => ( - documentation => 'path to commit', +use Moose::Util::TypeConstraints; + +enum 'SVK_Action' => ( 'commit', 'revert' ); + +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 => ( @@ -63,19 +66,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| -