| 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 | |
| … | |
… | |
| 39 | URxvt.selection.pattern-0: ^(/[^:]+):\ |
39 | URxvt.selection.pattern-0: ^(/[^:]+):\ |
| 40 | |
40 | |
| 41 | You can look at the source of the selection extension to see more |
41 | You can look at the source of the selection extension to see more |
| 42 | interesting uses, such as parsing a line from beginning to end. |
42 | interesting uses, such as parsing a line from beginning to end. |
| 43 | |
43 | |
| 44 | This extension also offers following bindable keyboard commands: |
44 | This extension also offers the following actions: |
| 45 | |
45 | |
| 46 | =over 4 |
46 | =over 4 |
| 47 | |
47 | |
| 48 | =item rot13 |
48 | =item rot13 |
| 49 | |
49 | |
| 50 | Rot-13 the selection when activated. Used via keyboard trigger: |
50 | Rot-13 the selection when activated. |
| 51 | |
51 | |
|
|
52 | Example: |
|
|
53 | |
| 52 | URxvt.keysym.C-M-r: perl:selection:rot13 |
54 | URxvt.keysym.C-M-r: selection:rot13 |
| 53 | |
55 | |
| 54 | =back |
56 | =back |
| 55 | |
57 | |
| 56 | =cut |
58 | =cut |
| 57 | |
59 | |
| … | |
… | |
| 62 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); |
64 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); |
| 63 | |
65 | |
| 64 | () |
66 | () |
| 65 | } |
67 | } |
| 66 | |
68 | |
| 67 | sub on_keyboard_dispatch { |
69 | sub on_action { |
| 68 | &on_user_command; |
70 | my ($self, $action) = @_; |
|
|
71 | |
|
|
72 | $action eq "rot13" |
|
|
73 | and $self->selection (map { y/A-Za-z/N-ZA-Mn-za-m/; $_ } $self->selection); |
|
|
74 | |
|
|
75 | () |
| 69 | } |
76 | } |
| 70 | |
77 | |
| 71 | sub on_init { |
78 | sub on_init { |
| 72 | my ($self) = @_; |
79 | my ($self) = @_; |
| 73 | |
80 | |
