1 | #! perl |
1 | #! perl |
2 | |
2 | |
3 | #:META:X_RESOURCE:%.pattern-0:string:first selection pattern |
3 | #:META:RESOURCE:%.pattern-0:string:first selection pattern |
4 | |
4 | |
5 | =head1 NAME |
5 | =head1 NAME |
6 | |
6 | |
7 | selection - more intelligent selection (enabled by default) |
7 | selection - more intelligent selection (enabled by default) |
8 | |
8 | |
9 | =head1 DESCRIPTION |
9 | =head1 DESCRIPTION |
10 | |
10 | |
11 | This extension tries to be more intelligent when the user extends |
11 | This extension tries to be more intelligent when the user extends |
12 | selections (double-click and further clicks). Right now, it tries to |
12 | selections (double-click and further clicks). Right now, it tries to |
… | |
… | |
60 | |
60 | |
61 | $cmd eq "selection:rot13" |
61 | $cmd eq "selection:rot13" |
62 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); |
62 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); |
63 | |
63 | |
64 | () |
64 | () |
|
|
65 | } |
|
|
66 | |
|
|
67 | sub on_keyboard_dispatch { |
|
|
68 | &on_user_command; |
65 | } |
69 | } |
66 | |
70 | |
67 | sub on_init { |
71 | sub on_init { |
68 | my ($self) = @_; |
72 | my ($self) = @_; |
69 | |
73 | |