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.121 by root, Fri Jan 20 22:49:34 2006 UTC vs.
Revision 1.125 by root, Sun Jan 22 20:39:47 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
173for programs that correctly support wide characters). 138for programs that correctly support wide characters).
174 139
175It only works when clicking into the same line (possibly extended over 140To avoid too many false positives, this is only done when:
176multiple rows) as the text cursor and on the primary screen, to reduce the 141
177risk of misinterpreting. The normal selection isn't disabled, so quick 142=over 4
143
144=item - the tty is in ICANON state.
145
146=item - the text cursor is visible.
147
148=item - the primary screen is currently being displayed.
149
150=item - the mouse is on the same (multi-row-) line as the text cursor.
151
152=back
153
154The normal selection mechanism isn't disabled, so quick successive clicks
178successive clicks might interfere with selection creation in harmless 155might interfere with selection creation in harmless ways.
179ways. 156
157=item selection-autotransform
158
159This selection allows you to do automatic transforms on a selection
160whenever a selection is made.
161
162It works by specifying perl snippets (most useful is a single C<s///>
163operator) that modify C<$_> as resources:
164
165 URxvt.selection-autotransform.0: transform
166 URxvt.selection-autotransform.1: transform
167 ...
168
169For example, the following will transform selections of the form
170C<filename:number>, often seen in compiler messages, into C<vi +$filename
171$word>:
172
173 URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
174
175And this example matches the same,but replaces it with vi-commands you can
176paste directly into your (vi :) editor:
177
178 URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/
179
180Of course, this can be modified to suit your needs and your editor :)
181
182To expand the example above to typical perl error messages ("XXX at
183FILENAME line YYY."), you need a slightly more elaborate solution:
184
185 URxvt.selection.pattern-0: ( at .*? line \\d+[,.])
186 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
187
188The first line tells the selection code to treat the unchanging part of
189every error message as a selection pattern, and the second line transforms
190the message into vi commands to load the file.
180 191
181=item tabbed 192=item tabbed
182 193
183This transforms the terminal into a tabbar with additional terminals, that 194This transforms the terminal into a tabbar with additional terminals, that
184is, it implements what is commonly refered to as "tabbed terminal". The topmost line 195is, it implements what is commonly refered to as "tabbed terminal". The topmost line
552our $LIBDIR; 563our $LIBDIR;
553our $RESNAME; 564our $RESNAME;
554our $RESCLASS; 565our $RESCLASS;
555our $RXVTNAME; 566our $RXVTNAME;
556 567
557our $NOCHAR = chr 0xfffe; 568our $NOCHAR = chr 0xffff;
558 569
559=head2 Variables in the C<urxvt> Package 570=head2 Variables in the C<urxvt> Package
560 571
561=over 4 572=over 4
562 573
709 unless $msg =~ /\n$/; 720 unless $msg =~ /\n$/;
710 urxvt::warn ($msg); 721 urxvt::warn ($msg);
711 }; 722 };
712} 723}
713 724
725no warnings 'utf8';
726
714my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 727my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
715 728
716sub verbose { 729sub verbose {
717 my ($level, $msg) = @_; 730 my ($level, $msg) = @_;
718 warn "$msg\n" if $level <= $verbosity; 731 warn "$msg\n" if $level <= $verbosity;
734 747
735 open my $fh, "<:raw", $path 748 open my $fh, "<:raw", $path
736 or die "$path: $!"; 749 or die "$path: $!";
737 750
738 my $source = 751 my $source =
739 "package $pkg; use strict; use utf8;\n" 752 "package $pkg; use strict; use utf8; no warnings 'utf8';\n"
740 . "#line 1 \"$path\"\n{\n" 753 . "#line 1 \"$path\"\n{\n"
741 . (do { local $/; <$fh> }) 754 . (do { local $/; <$fh> })
742 . "\n};\n1"; 755 . "\n};\n1";
743 756
744 eval $source 757 eval $source
769 $TERM->register_package ($_) for @pkg; 782 $TERM->register_package ($_) for @pkg;
770 } 783 }
771 784
772 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 785 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
773 if ($_ eq "default") { 786 if ($_ eq "default") {
774 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 787 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
775 } elsif (/^-(.*)$/) { 788 } elsif (/^-(.*)$/) {
776 delete $ext_arg{$1}; 789 delete $ext_arg{$1};
777 } elsif (/^([^<]+)<(.*)>$/) { 790 } elsif (/^([^<]+)<(.*)>$/) {
778 push @{ $ext_arg{$1} }, $2; 791 push @{ $ext_arg{$1} }, $2;
779 } else { 792 } else {
1299Replaces the event mask of the pty watcher by the given event mask. Can 1312Replaces the event mask of the pty watcher by the given event mask. Can
1300be used to suppress input and output handling to the pty/tty. See the 1313be used to suppress input and output handling to the pty/tty. See the
1301description of C<< urxvt::timer->events >>. Make sure to always restore 1314description of C<< urxvt::timer->events >>. Make sure to always restore
1302the previous value. 1315the previous value.
1303 1316
1317=item $fd = $term->pty_fd
1318
1319Returns the master file descriptor for the pty in use, or C<-1> if no pty
1320is used.
1321
1304=item $windowid = $term->parent 1322=item $windowid = $term->parent
1305 1323
1306Return the window id of the toplevel window. 1324Return the window id of the toplevel window.
1307 1325
1308=item $windowid = $term->vt 1326=item $windowid = $term->vt
1376 1394
1377=item $screen = $term->current_screen 1395=item $screen = $term->current_screen
1378 1396
1379Returns the currently displayed screen (0 primary, 1 secondary). 1397Returns the currently displayed screen (0 primary, 1 secondary).
1380 1398
1399=item $cursor_is_hidden = $term->hidden_cursor
1400
1401Returns wether the cursor is currently hidden or not.
1402
1381=item $view_start = $term->view_start ([$newvalue]) 1403=item $view_start = $term->view_start ([$newvalue])
1382 1404
1383Returns the row number of the topmost displayed line. Maximum value is 1405Returns the row number of the topmost displayed line. Maximum value is
1384C<0>, which displays the normal terminal contents. Lower values scroll 1406C<0>, which displays the normal terminal contents. Lower values scroll
1385this many lines into the scrollback buffer. 1407this many lines into the scrollback buffer.
1403If C<$new_text> is specified, it will replace characters in the current 1425If C<$new_text> is specified, it will replace characters in the current
1404line, starting at column C<$start_col> (default C<0>), which is useful 1426line, starting at column C<$start_col> (default C<0>), which is useful
1405to replace only parts of a line. The font index in the rendition will 1427to replace only parts of a line. The font index in the rendition will
1406automatically be updated. 1428automatically be updated.
1407 1429
1408C<$text> is in a special encoding: tabs and wide characters that use 1430C<$text> is in a special encoding: tabs and wide characters that use more
1409more than one cell when displayed are padded with C<$urxvt::NOCHAR> 1431than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1410characters. Characters with combining characters and other characters that 1432characters. Characters with combining characters and other characters that
1411do not fit into the normal tetx encoding will be replaced with characters 1433do not fit into the normal tetx encoding will be replaced with characters
1412in the private use area. 1434in the private use area.
1413 1435
1414You have to obey this encoding when changing text. The advantage is 1436You have to obey this encoding when changing text. The advantage is

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines