ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.122 by root, Sat Jan 21 08:07:38 2006 UTC vs.
Revision 1.124 by root, Sun Jan 22 11:57:06 2006 UTC

… …
127bottom. C<Escape> leaves search mode and returns to the point where search 127bottom. C<Escape> leaves search mode and returns to the point where search
128was started, while C<Enter> or C<Return> stay at the current position and 128was started, while C<Enter> or C<Return> stay at the current position and
129additionally stores the first match in the current line into the primary 129additionally stores the first match in the current line into the primary
130selection. 130selection.
131 131
132=item selection-autotransform 132=item readline (enabled by default)
133
134This selection allows you to do automatic transforms on a selection
135whenever a selection is made.
136
137It works by specifying perl snippets (most useful is a single C<s///>
138operator) that modify C<$_> as resources:
139
140 URxvt.selection-autotransform.0: transform
141 URxvt.selection-autotransform.1: transform
142 ...
143
144For example, the following will transform selections of the form
145C<filename:number>, often seen in compiler messages, into C<vi +$filename
146$word>:
147
148 URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
149
150And this example matches the same,but replaces it with vi-commands you can
151paste directly into your (vi :) editor:
152
153 URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/
154
155Of course, this can be modified to suit your needs and your editor :)
156
157To expand the example above to typical perl error messages ("XXX at
158FILENAME line YYY."), you need a slightly more elaborate solution:
159
160 URxvt.selection.pattern-0: ( at .*? line \\d+[,.])
161 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
162
163The first line tells the selection code to treat the unchanging part of
164every error message as a selection pattern, and the second line transforms
165the message into vi commands to load the file.
166
167=item readline
168 133
169A support package that tries to make editing with readline easier. At the 134A support package that tries to make editing with readline easier. At the
170moment, it reacts to clicking with the left mouse button by trying to 135moment, it reacts to clicking with the left mouse button by trying to
171move the text cursor to this position. It does so by generating as many 136move the text cursor to this position. It does so by generating as many
172cursor-left or cursor-right keypresses as required (the this only works 137cursor-left or cursor-right keypresses as required (the this only works
… …
184 149
185=back 150=back
186 151
187The normal selection mechanism isn't disabled, so quick successive clicks 152The normal selection mechanism isn't disabled, so quick successive clicks
188might interfere with selection creation in harmless ways. 153might interfere with selection creation in harmless ways.
154
155=item selection-autotransform
156
157This selection allows you to do automatic transforms on a selection
158whenever a selection is made.
159
160It works by specifying perl snippets (most useful is a single C<s///>
161operator) that modify C<$_> as resources:
162
163 URxvt.selection-autotransform.0: transform
164 URxvt.selection-autotransform.1: transform
165 ...
166
167For example, the following will transform selections of the form
168C<filename:number>, often seen in compiler messages, into C<vi +$filename
169$word>:
170
171 URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
172
173And this example matches the same,but replaces it with vi-commands you can
174paste directly into your (vi :) editor:
175
176 URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/
177
178Of course, this can be modified to suit your needs and your editor :)
179
180To expand the example above to typical perl error messages ("XXX at
181FILENAME line YYY."), you need a slightly more elaborate solution:
182
183 URxvt.selection.pattern-0: ( at .*? line \\d+[,.])
184 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
185
186The first line tells the selection code to treat the unchanging part of
187every error message as a selection pattern, and the second line transforms
188the message into vi commands to load the file.
189 189
190=item tabbed 190=item tabbed
191 191
192This transforms the terminal into a tabbar with additional terminals, that 192This transforms the terminal into a tabbar with additional terminals, that
193is, it implements what is commonly refered to as "tabbed terminal". The topmost line 193is, it implements what is commonly refered to as "tabbed terminal". The topmost line
… …
561our $LIBDIR; 561our $LIBDIR;
562our $RESNAME; 562our $RESNAME;
563our $RESCLASS; 563our $RESCLASS;
564our $RXVTNAME; 564our $RXVTNAME;
565 565
566our $NOCHAR = chr 0xfffe; 566our $NOCHAR = chr 0xffff;
567 567
568=head2 Variables in the C<urxvt> Package 568=head2 Variables in the C<urxvt> Package
569 569
570=over 4 570=over 4
571 571
… …
718 unless $msg =~ /\n$/; 718 unless $msg =~ /\n$/;
719 urxvt::warn ($msg); 719 urxvt::warn ($msg);
720 }; 720 };
721} 721}
722 722
723no warnings 'utf8';
724
723my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 725my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
724 726
725sub verbose { 727sub verbose {
726 my ($level, $msg) = @_; 728 my ($level, $msg) = @_;
727 warn "$msg\n" if $level <= $verbosity; 729 warn "$msg\n" if $level <= $verbosity;
… …
743 745
744 open my $fh, "<:raw", $path 746 open my $fh, "<:raw", $path
745 or die "$path: $!"; 747 or die "$path: $!";
746 748
747 my $source = 749 my $source =
748 "package $pkg; use strict; use utf8;\n" 750 "package $pkg; use strict; use utf8; no warnings 'utf8';\n"
749 . "#line 1 \"$path\"\n{\n" 751 . "#line 1 \"$path\"\n{\n"
750 . (do { local $/; <$fh> }) 752 . (do { local $/; <$fh> })
751 . "\n};\n1"; 753 . "\n};\n1";
752 754
753 eval $source 755 eval $source
… …
778 $TERM->register_package ($_) for @pkg; 780 $TERM->register_package ($_) for @pkg;
779 } 781 }
780 782
781 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 783 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
782 if ($_ eq "default") { 784 if ($_ eq "default") {
783 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 785 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
784 } elsif (/^-(.*)$/) { 786 } elsif (/^-(.*)$/) {
785 delete $ext_arg{$1}; 787 delete $ext_arg{$1};
786 } elsif (/^([^<]+)<(.*)>$/) { 788 } elsif (/^([^<]+)<(.*)>$/) {
787 push @{ $ext_arg{$1} }, $2; 789 push @{ $ext_arg{$1} }, $2;
788 } else { 790 } else {
… …
1416If C<$new_text> is specified, it will replace characters in the current 1418If C<$new_text> is specified, it will replace characters in the current
1417line, starting at column C<$start_col> (default C<0>), which is useful 1419line, starting at column C<$start_col> (default C<0>), which is useful
1418to replace only parts of a line. The font index in the rendition will 1420to replace only parts of a line. The font index in the rendition will
1419automatically be updated. 1421automatically be updated.
1420 1422
1421C<$text> is in a special encoding: tabs and wide characters that use 1423C<$text> is in a special encoding: tabs and wide characters that use more
1422more than one cell when displayed are padded with C<$urxvt::NOCHAR> 1424than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1423characters. Characters with combining characters and other characters that 1425characters. Characters with combining characters and other characters that
1424do not fit into the normal tetx encoding will be replaced with characters 1426do not fit into the normal tetx encoding will be replaced with characters
1425in the private use area. 1427in the private use area.
1426 1428
1427You have to obey this encoding when changing text. The advantage is 1429You have to obey this encoding when changing text. The advantage is

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines