--- trunk/lib/Frey/SVK.pm 2008/11/28 19:23:38 603 +++ trunk/lib/Frey/SVK.pm 2008/11/29 16:17:18 620 @@ -4,13 +4,22 @@ 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 message => ( +has path => ( + documentation => 'path to work with', + is => 'rw', + isa => 'Str', +); + +has commit_message => ( documentation => 'commit message', is => 'rw', isa => 'Str', @@ -57,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| -