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.127 by root, Wed Jan 25 00:42:21 2006 UTC

… …
66contain at least one pair of capturing parentheses, which will be used for 66contain at least one pair of capturing parentheses, which will be used for
67the match. For example, the followign adds a regex that matches everything 67the match. For example, the followign adds a regex that matches everything
68between two vertical bars: 68between two vertical bars:
69 69
70 URxvt.selection.pattern-0: \\|([^|]+)\\| 70 URxvt.selection.pattern-0: \\|([^|]+)\\|
71
72Another example: Programs I use often output "absolute path: " at the
73beginning of a line when they process multiple files. The following
74pattern matches the filename (note, there is a single space at the very
75end):
76
77 URxvt.selection.pattern-0: ^(/[^:]+):\
71 78
72You can look at the source of the selection extension to see more 79You can look at the source of the selection extension to see more
73interesting uses, such as parsing a line from beginning to end. 80interesting uses, such as parsing a line from beginning to end.
74 81
75This extension also offers following bindable keyboard commands: 82This extension also offers following bindable keyboard commands:
… …
127bottom. C<Escape> leaves search mode and returns to the point where search 134bottom. 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 135was 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 136additionally stores the first match in the current line into the primary
130selection. 137selection.
131 138
132=item selection-autotransform 139=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 140
169A support package that tries to make editing with readline easier. At the 141A 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 142moment, 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 143move 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 144cursor-left or cursor-right keypresses as required (the this only works
… …
174 146
175To avoid too many false positives, this is only done when: 147To avoid too many false positives, this is only done when:
176 148
177=over 4 149=over 4
178 150
151=item - the tty is in ICANON state.
152
153=item - the text cursor is visible.
154
155=item - the primary screen is currently being displayed.
156
179=item - the mouse is on the same (multi-row-) line as the text cursor. 157=item - the mouse is on the same (multi-row-) line as the text cursor.
180
181=item - the primary screen is currently being displayed.
182
183=item - the text cursor is visible.
184 158
185=back 159=back
186 160
187The normal selection mechanism isn't disabled, so quick successive clicks 161The normal selection mechanism isn't disabled, so quick successive clicks
188might interfere with selection creation in harmless ways. 162might interfere with selection creation in harmless ways.
163
164=item selection-autotransform
165
166This selection allows you to do automatic transforms on a selection
167whenever a selection is made.
168
169It works by specifying perl snippets (most useful is a single C<s///>
170operator) that modify C<$_> as resources:
171
172 URxvt.selection-autotransform.0: transform
173 URxvt.selection-autotransform.1: transform
174 ...
175
176For example, the following will transform selections of the form
177C<filename:number>, often seen in compiler messages, into C<vi +$filename
178$word>:
179
180 URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
181
182And this example matches the same,but replaces it with vi-commands you can
183paste directly into your (vi :) editor:
184
185 URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/
186
187Of course, this can be modified to suit your needs and your editor :)
188
189To expand the example above to typical perl error messages ("XXX at
190FILENAME line YYY."), you need a slightly more elaborate solution:
191
192 URxvt.selection.pattern-0: ( at .*? line \\d+[,.])
193 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
194
195The first line tells the selection code to treat the unchanging part of
196every error message as a selection pattern, and the second line transforms
197the message into vi commands to load the file.
189 198
190=item tabbed 199=item tabbed
191 200
192This transforms the terminal into a tabbar with additional terminals, that 201This transforms the terminal into a tabbar with additional terminals, that
193is, it implements what is commonly refered to as "tabbed terminal". The topmost line 202is, it implements what is commonly refered to as "tabbed terminal". The topmost line
… …
361Called at the very end of initialisation of a new terminal, just before 370Called at the very end of initialisation of a new terminal, just before
362trying to map (display) the toplevel and returning to the mainloop. 371trying to map (display) the toplevel and returning to the mainloop.
363 372
364=item on_destroy $term 373=item on_destroy $term
365 374
366Called whenever something tries to destroy terminal, before doing anything 375Called whenever something tries to destroy terminal, when the terminal is
367yet. If this hook returns true, then destruction is skipped, but this is 376still fully functional (not for long, though).
368rarely a good idea.
369 377
370=item on_reset $term 378=item on_reset $term
371 379
372Called after the screen is "reset" for any reason, such as resizing or 380Called after the screen is "reset" for any reason, such as resizing or
373control sequences. Here is where you can react on changes to size-related 381control sequences. Here is where you can react on changes to size-related
… …
561our $LIBDIR; 569our $LIBDIR;
562our $RESNAME; 570our $RESNAME;
563our $RESCLASS; 571our $RESCLASS;
564our $RXVTNAME; 572our $RXVTNAME;
565 573
566our $NOCHAR = chr 0xfffe; 574our $NOCHAR = chr 0xffff;
567 575
568=head2 Variables in the C<urxvt> Package 576=head2 Variables in the C<urxvt> Package
569 577
570=over 4 578=over 4
571 579
… …
718 unless $msg =~ /\n$/; 726 unless $msg =~ /\n$/;
719 urxvt::warn ($msg); 727 urxvt::warn ($msg);
720 }; 728 };
721} 729}
722 730
731no warnings 'utf8';
732
723my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 733my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
724 734
725sub verbose { 735sub verbose {
726 my ($level, $msg) = @_; 736 my ($level, $msg) = @_;
727 warn "$msg\n" if $level <= $verbosity; 737 warn "$msg\n" if $level <= $verbosity;
… …
743 753
744 open my $fh, "<:raw", $path 754 open my $fh, "<:raw", $path
745 or die "$path: $!"; 755 or die "$path: $!";
746 756
747 my $source = 757 my $source =
748 "package $pkg; use strict; use utf8;\n" 758 "package $pkg; use strict; use utf8; no warnings 'utf8';\n"
749 . "#line 1 \"$path\"\n{\n" 759 . "#line 1 \"$path\"\n{\n"
750 . (do { local $/; <$fh> }) 760 . (do { local $/; <$fh> })
751 . "\n};\n1"; 761 . "\n};\n1";
752 762
753 eval $source 763 eval $source
… …
778 $TERM->register_package ($_) for @pkg; 788 $TERM->register_package ($_) for @pkg;
779 } 789 }
780 790
781 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 791 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
782 if ($_ eq "default") { 792 if ($_ eq "default") {
783 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 793 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
784 } elsif (/^-(.*)$/) { 794 } elsif (/^-(.*)$/) {
785 delete $ext_arg{$1}; 795 delete $ext_arg{$1};
786 } elsif (/^([^<]+)<(.*)>$/) { 796 } elsif (/^([^<]+)<(.*)>$/) {
787 push @{ $ext_arg{$1} }, $2; 797 push @{ $ext_arg{$1} }, $2;
788 } else { 798 } else {
… …
1308Replaces the event mask of the pty watcher by the given event mask. Can 1318Replaces the event mask of the pty watcher by the given event mask. Can
1309be used to suppress input and output handling to the pty/tty. See the 1319be used to suppress input and output handling to the pty/tty. See the
1310description of C<< urxvt::timer->events >>. Make sure to always restore 1320description of C<< urxvt::timer->events >>. Make sure to always restore
1311the previous value. 1321the previous value.
1312 1322
1323=item $fd = $term->pty_fd
1324
1325Returns the master file descriptor for the pty in use, or C<-1> if no pty
1326is used.
1327
1313=item $windowid = $term->parent 1328=item $windowid = $term->parent
1314 1329
1315Return the window id of the toplevel window. 1330Return the window id of the toplevel window.
1316 1331
1317=item $windowid = $term->vt 1332=item $windowid = $term->vt
… …
1416If C<$new_text> is specified, it will replace characters in the current 1431If 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 1432line, 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 1433to replace only parts of a line. The font index in the rendition will
1419automatically be updated. 1434automatically be updated.
1420 1435
1421C<$text> is in a special encoding: tabs and wide characters that use 1436C<$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> 1437than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1423characters. Characters with combining characters and other characters that 1438characters. Characters with combining characters and other characters that
1424do not fit into the normal tetx encoding will be replaced with characters 1439do not fit into the normal tetx encoding will be replaced with characters
1425in the private use area. 1440in the private use area.
1426 1441
1427You have to obey this encoding when changing text. The advantage is 1442You have to obey this encoding when changing text. The advantage is

Diff Legend

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