Frey/Class/Refactor.pm

package Frey::Class::Rename;
use Moose;

extends 'Frey';
with 'Frey::Web';
#with 'Frey::Storage';

use Moose::Util::TypeConstraints;

use lib 'lib'; # :Write in vim needs it
use Frey::Shell::Grep;

sub action_order { qw/find change/ }
enum 'action_order' => action_order;

has action => (
        is => 'rw',
        isa => 'action_order',
        required => 1,
        default => 'find', # FIXME first step, should be optional
);

=head2 as_markup

Simpliest possible dispatch example

=cut

sub as_markup {
        my ($self) = @_;
        my $to = $self->action;
        $self->$to;
}

# step 1 find

has from => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Frey::HTML',
);

has to => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Frey::HTML::Tree',
);


sub find {
        my ($self) = @_;

        $self->add_css(qq|
                span.modify {
                        display: inline;
                        backgrund: #ffc;
                }
        |);

        my $len = length( $self->to );
        my $to = $self->to;

        my $change_number = 1;

        sub strip {
                my $t = shift;
                $t =~ s{^\s+}{}gs;
                $t =~ s{>\s+<}{><}gs;
                $t =~ s{\s+$}{}gs;
                return $t;
        }

        my $grep = Frey::Shell::Grep->new(
                pattern => $self->from,
        )->as_markup(
                dd => sub {
                        my ( $patt, $path, $line, $text ) = @_;
                        $text =~ s{(\Q$patt\E)}{
                        my $nr = $change_number++;
                        strip(qq|
                                <span class="modify">
                                <input type="hidden" name="change_path" value="$path">
                                <input type="hidden" name="change_line" value="$line">
                                <input type="text" name="change_modification" value="$to" size=$len>
                                <input type="checkbox" name="change_selected" value=$nr checked>
                                </span>
                        |)
                        }egs;
                        qq|<dd><a target="editor" href="/editor+$path+$line">$line</a> <code>$text</code>|;
                },
        );

        $self->title( $self->from . ' => ' . $self->to );

        my $preserve;

        $self->step('modify');
        $preserve .= qq|<input type="hidden" name="$_" value="| . $self->$_ . qq|">| foreach ( qw/step action_on from to/ );

        return qq|
                <form class="modify" method="post">
                $preserve
                $grep
                <input type="submit" name="action"
                </form>
        |;
}

# step 2 modify

has change_selected => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

has change_path => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

has change_line => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

has change_modification => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

sub modify {
        my ($self) = @_;

        my $dump;
        $dump->{$_} = $self->$_ foreach ( qw/change_selected change_path change_line change_modification/ );

        return $self->html_dump( $dump );
}

1;
1	dpavlin	738	package Frey::Class::Rename;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			#with 'Frey::Storage';
7
8			use Moose::Util::TypeConstraints;
9
10			use lib 'lib'; # :Write in vim needs it
11			use Frey::Shell::Grep;
12
13			sub action_order { qw/find change/ }
14			enum 'action_order' => action_order;
15
16			has action => (
17			is => 'rw',
18			isa => 'action_order',
19			required => 1,
20			default => 'find', # FIXME first step, should be optional
21			);
22
23			=head2 as_markup
24
25			Simpliest possible dispatch example
26
27			=cut
28
29			sub as_markup {
30			my ($self) = @_;
31			my $to = $self->action;
32			$self->$to;
33			}
34
35			# step 1 find
36
37			has from => (
38			is => 'rw',
39			isa => 'Str',
40			required => 1,
41			default => 'Frey::HTML',
42			);
43
44			has to => (
45			is => 'rw',
46			isa => 'Str',
47			required => 1,
48			default => 'Frey::HTML::Tree',
49			);
50
51
52			sub find {
53			my ($self) = @_;
54
55			$self->add_css(qq\|
56			span.modify {
57			display: inline;
58			backgrund: #ffc;
59			}
60			\|);
61
62			my $len = length( $self->to );
63			my $to = $self->to;
64
65			my $change_number = 1;
66
67			sub strip {
68			my $t = shift;
69			$t =~ s{^\s+}{}gs;
70			$t =~ s{>\s+<}{><}gs;
71			$t =~ s{\s+$}{}gs;
72			return $t;
73			}
74
75			my $grep = Frey::Shell::Grep->new(
76			pattern => $self->from,
77			)->as_markup(
78			dd => sub {
79			my ( $patt, $path, $line, $text ) = @_;
80			$text =~ s{(\Q$patt\E)}{
81			my $nr = $change_number++;
82			strip(qq\|
83			<span class="modify">
84			<input type="hidden" name="change_path" value="$path">
85			<input type="hidden" name="change_line" value="$line">
86			<input type="text" name="change_modification" value="$to" size=$len>
87			<input type="checkbox" name="change_selected" value=$nr checked>
88			</span>
89			\|)
90			}egs;
91			qq\|<dd><a target="editor" href="/editor+$path+$line">$line</a> <code>$text</code>\|;
92			},
93			);
94
95			$self->title( $self->from . ' => ' . $self->to );
96
97			my $preserve;
98
99			$self->step('modify');
100			$preserve .= qq\|<input type="hidden" name="$_" value="\| . $self->$_ . qq\|">\| foreach ( qw/step action_on from to/ );
101
102			return qq\|
103			<form class="modify" method="post">
104			$preserve
105			$grep
106			<input type="submit" name="action"
107			</form>
108			\|;
109			}
110
111			# step 2 modify
112
113			has change_selected => (
114			is => 'rw',
115			isa => 'ArrayRef[Str]',
116			default => sub {},
117			);
118
119			has change_path => (
120			is => 'rw',
121			isa => 'ArrayRef[Str]',
122			default => sub {},
123			);
124
125			has change_line => (
126			is => 'rw',
127			isa => 'ArrayRef[Str]',
128			default => sub {},
129			);
130
131			has change_modification => (
132			is => 'rw',
133			isa => 'ArrayRef[Str]',
134			default => sub {},
135			);
136
137			sub modify {
138			my ($self) = @_;
139
140			my $dump;
141			$dump->{$_} = $self->$_ foreach ( qw/change_selected change_path change_line change_modification/ );
142
143			return $self->html_dump( $dump );
144			}
145
146			1;