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.86 by root, Thu Jan 12 05:22:47 2006 UTC vs.
Revision 1.101 by root, Wed Jan 18 10:11:03 2006 UTC

… …
40=over 4 40=over 4
41 41
42=item selection (enabled by default) 42=item selection (enabled by default)
43 43
44(More) intelligent selection. This extension tries to be more intelligent 44(More) intelligent selection. This extension tries to be more intelligent
45when the user extends selections (double-click). Right now, it tries to 45when the user extends selections (double-click and further clicks). Right
46select urls and complete shell-quoted arguments, which is very convenient, 46now, it tries to select words, urls and complete shell-quoted
47too, if your F<ls> supports C<--quoting-style=shell>. 47arguments, which is very convenient, too, if your F<ls> supports
48C<--quoting-style=shell>.
48 49
50A double-click usually selects the word under the cursor, further clicks
51will enlarge the selection.
52
53The selection works by trying to match a number of regexes and displaying
54them in increasing order of length. You can add your own regexes by
55specifying resources of the form:
56
57 URxvt.selection.pattern-0: perl-regex
58 URxvt.selection.pattern-1: perl-regex
59 ...
60
61The index number (0, 1...) must not have any holes, and each regex must
62contain at least one pair of capturing parentheses, which will be used for
63the match. For example, the followign adds a regex that matches everything
64between two vertical bars:
65
66 URxvt.selection.pattern-0: \\|([^|]+)\\|
67
68You can look at the source of the selection extension to see more
69interesting uses, such as parsing a line from beginning to end.
70
49It also offers the following bindable keyboard command: 71This extension also offers following bindable keyboard commands:
50 72
51=over 4 73=over 4
52 74
53=item rot13 75=item rot13
54 76
… …
67 89
68Binds a popup menu to Ctrl-Button3 that lets you convert the selection 90Binds a popup menu to Ctrl-Button3 that lets you convert the selection
69text into various other formats/action (such as uri unescaping, perl 91text into various other formats/action (such as uri unescaping, perl
70evalution, web-browser starting etc.), depending on content. 92evalution, web-browser starting etc.), depending on content.
71 93
94Other extensions can extend this popup menu by pushing a code reference onto
95C<@urxvt::ext::selection_popup::hook>, that is called whenever the popup is displayed.
96
97It's sole argument is the popup menu, which can be modified. The selection
98is in C<$_>, which can be used to decide wether to add something or not.
99It should either return nothing or a string and a code reference. The
100string will be used as button text and the code reference will be called
101when the button gets activated and should transform C<$_>.
102
103The following will add an entry C<a to b> that transforms all C<a>s in
104the selection to C<b>s, but only if the selection currently contains any
105C<a>s:
106
107 push urxvt::ext::selection_popup::hook, sub {
108 /a/ ? ("a to be" => sub { s/a/b/g }
109 : ()
110 };
111
72=item searchable-scrollback<hotkey> (enabled by default) 112=item searchable-scrollback<hotkey> (enabled by default)
73 113
74Adds regex search functionality to the scrollback buffer, triggered 114Adds regex search functionality to the scrollback buffer, triggered
75by a hotkey (default: C<M-s>). When in search mode, normal terminal 115by a hotkey (default: C<M-s>). While in search mode, normal terminal
76input/output is suspended. 116input/output is suspended and a regex is displayed at the bottom of the
117screen.
77 118
78C</> starts an incremental regex search, C<n> searches further, C<p> or 119Inputting characters appends them to the regex and continues incremental
79C<N> jump to the previous match, C<G> jumps to the bottom and clears the 120search. C<BackSpace> removes a character from the regex, C<Up> and C<Down>
80history, C<enter> leaves search mode at the current position and C<escape> 121search upwards/downwards in the scrollback buffer, C<End> jumps to the
81returns to the original position. 122bottom. C<Escape> leaves search mode and returns to the point where search
123was started, while C<Enter> or C<Return> stay at the current position and
124additionally stores the first match in the current line into the primary
125selection.
82 126
83=item digital-clock 127=item selection-autotransform
84 128
85Displays a digital clock using the built-in overlay. 129This selection allows you to do automatic transforms on a selection
130whenever a selection is made.
131
132It works by specifying perl snippets (most useful is a single C<s///>
133operator) that modify C<$_> as resources:
134
135 URxvt.selection-autotransform.0: transform
136 URxvt.selection-autotransform.1: transform
137 ...
138
139For example, the following will transform selections of the form
140C<filename:number>, often seen in compiler messages, into C<vi +$filename
141$word>:
142
143 URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
144
145And this example matches the same,but replaces it with vi-commands you can
146paste directly into your (vi :) editor:
147
148 URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/\\x1b:e \\Q$1\\E\\x0d:$2\\x0d/
149
150Of course, this can be modified to suit your needs and your editor :)
151
152To expand the example above to typical perl error messages ("XXX at
153FILENAME line YYY."), you need a slightly more elaborate solution:
154
155 URxvt.selection.pattern-0: ( at .*? line \\d+\\.)
156 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)\\.$/\x1b:e \\Q$1\E\\x0d:$2\\x0d/
157
158The first line tells the selection code to treat the unchanging part of
159every error message as a selection pattern, and the second line transforms
160the message into vi commands to load the file.
86 161
87=item mark-urls 162=item mark-urls
88 163
89Uses per-line display filtering (C<on_line_update>) to underline urls and 164Uses per-line display filtering (C<on_line_update>) to underline urls and
90make them clickable. When middle-clicked, the program specified in the 165make them clickable. When middle-clicked, the program specified in the
91resource C<urlLauncher> (default C<x-www-browser>) will be started. 166resource C<urlLauncher> (default C<x-www-browser>) will be started with
167the URL as first argument.
92 168
93=item block-graphics-to-ascii 169=item block-graphics-to-ascii
94 170
95A not very useful example of filtering all text output to the terminal, 171A not very useful example of filtering all text output to the terminal,
96by replacing all line-drawing characters (U+2500 .. U+259F) by a 172by replacing all line-drawing characters (U+2500 .. U+259F) by a
97similar-looking ascii character. 173similar-looking ascii character.
98 174
175=item digital-clock
176
177Displays a digital clock using the built-in overlay.
178
99=item example-refresh-hooks 179=item example-refresh-hooks
100 180
101Displays a very simple digital clock in the upper right corner of the 181Displays a very simple digital clock in the upper right corner of the
102window. Illustrates overwriting the refresh callbacks to create your own 182window. Illustrates overwriting the refresh callbacks to create your own
103overlays or changes. 183overlays or changes.
184
185=item selection-pastebin
186
187This is a little rarely useful extension that Uploads the selection as
188textfile to a remote site (or does other things). (The implementation is
189not currently secure for use in a multiuser environment as it writes to
190F</tmp> directly.).
191
192It listens to the C<selection-pastebin:remote-pastebin> keyboard command,
193i.e.
194
195 URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin
196
197Pressing this combination runs a command with C<%> replaced by the name of
198the textfile. This command can be set via a resource:
199
200 URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/.
201
202And the default is likely not useful to anybody but the few people around
203here :)
204
205The name of the textfile is the hex encoded md5 sum of the selection, so
206the same content should lead to the same filename.
207
208After a successful upload the selection will be replaced by the text given
209in the C<selection-pastebin-url> resource (again, the % is the placeholder
210for the filename):
211
212 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/%
104 213
105=back 214=back
106 215
107=head1 API DOCUMENTATION 216=head1 API DOCUMENTATION
108 217
… …
309 418
310Called whenever the user presses a key combination that has a 419Called whenever the user presses a key combination that has a
311C<perl:string> action bound to it (see description of the B<keysym> 420C<perl:string> action bound to it (see description of the B<keysym>
312resource in the @@RXVT_NAME@@(1) manpage). 421resource in the @@RXVT_NAME@@(1) manpage).
313 422
423=item on_x_event $term, $event
424
425Called on every X event received on the vt window (and possibly other
426windows). Should only be used as a last resort. Most event structure
427members are not passed.
428
314=item on_focus_in $term 429=item on_focus_in $term
315 430
316Called whenever the window gets the keyboard focus, before rxvt-unicode 431Called whenever the window gets the keyboard focus, before rxvt-unicode
317does focus in processing. 432does focus in processing.
318 433
… …
413Using this function has the advantage that its output ends up in the 528Using this function has the advantage that its output ends up in the
414correct place, e.g. on stderr of the connecting urxvtc client. 529correct place, e.g. on stderr of the connecting urxvtc client.
415 530
416Messages have a size limit of 1023 bytes currently. 531Messages have a size limit of 1023 bytes currently.
417 532
418=item $is_safe = urxvt::safe
419
420Returns true when it is safe to do potentially unsafe things, such as
421evaluating perl code specified by the user. This is true when urxvt was
422started setuid or setgid.
423
424=item $time = urxvt::NOW 533=item $time = urxvt::NOW
425 534
426Returns the "current time" (as per the event loop). 535Returns the "current time" (as per the event loop).
427 536
428=item urxvt::CurrentTime 537=item urxvt::CurrentTime
429 538
430=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask, 539=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
431Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask, 540Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
432Button4Mask, Button5Mask, AnyModifier 541Button4Mask, Button5Mask, AnyModifier
542
543=item urxvt::NoEventMask, KeyPressMask, KeyReleaseMask,
544ButtonPressMask, ButtonReleaseMask, EnterWindowMask, LeaveWindowMask,
545PointerMotionMask, PointerMotionHintMask, Button1MotionMask, Button2MotionMask,
546Button3MotionMask, Button4MotionMask, Button5MotionMask, ButtonMotionMask,
547KeymapStateMask, ExposureMask, VisibilityChangeMask, StructureNotifyMask,
548ResizeRedirectMask, SubstructureNotifyMask, SubstructureRedirectMask,
549FocusChangeMask, PropertyChangeMask, ColormapChangeMask, OwnerGrabButtonMask
550
551=item urxvt::KeyPress, KeyRelease, ButtonPress, ButtonRelease, MotionNotify,
552EnterNotify, LeaveNotify, FocusIn, FocusOut, KeymapNotify, Expose,
553GraphicsExpose, NoExpose, VisibilityNotify, CreateNotify, DestroyNotify,
554UnmapNotify, MapNotify, MapRequest, ReparentNotify, ConfigureNotify,
555ConfigureRequest, GravityNotify, ResizeRequest, CirculateNotify,
556CirculateRequest, PropertyNotify, SelectionClear, SelectionRequest,
557SelectionNotify, ColormapNotify, ClientMessage, MappingNotify
433 558
434Various constants for use in X calls and event processing. 559Various constants for use in X calls and event processing.
435 560
436=back 561=back
437 562
… …
488=back 613=back
489 614
490=cut 615=cut
491 616
492BEGIN { 617BEGIN {
493 urxvt->bootstrap;
494
495 # overwrite perl's warn 618 # overwrite perl's warn
496 *CORE::GLOBAL::warn = sub { 619 *CORE::GLOBAL::warn = sub {
497 my $msg = join "", @_; 620 my $msg = join "", @_;
498 $msg .= "\n" 621 $msg .= "\n"
499 unless $msg =~ /\n$/; 622 unless $msg =~ /\n$/;
… …
505 delete $ENV{CDPATH}; 628 delete $ENV{CDPATH};
506 delete $ENV{BASH_ENV}; 629 delete $ENV{BASH_ENV};
507 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; 630 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
508} 631}
509 632
510my @hook_count;
511my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 633my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
512 634
513sub verbose { 635sub verbose {
514 my ($level, $msg) = @_; 636 my ($level, $msg) = @_;
515 warn "$msg\n" if $level <= $verbosity; 637 warn "$msg\n" if $level <= $verbosity;
516} 638}
517 639
518my $extension_pkg = "extension0000";
519my %extension_pkg; 640my %extension_pkg;
520 641
521# load a single script into its own package, once only 642# load a single script into its own package, once only
522sub extension_package($) { 643sub extension_package($) {
523 my ($path) = @_; 644 my ($path) = @_;
524 645
646 no strict 'refs';
647
525 $extension_pkg{$path} ||= do { 648 $extension_pkg{$path} ||= do {
526 my $pkg = "urxvt::" . ($extension_pkg++); 649 $path =~ /([^\/\\]+)$/;
650 my $pkg = $1;
651 $pkg =~ s/[^[:word:]]/_/g;
652 $pkg = "urxvt::ext::$pkg";
527 653
528 verbose 3, "loading extension '$path' into package '$pkg'"; 654 verbose 3, "loading extension '$path' into package '$pkg'";
529 655
530 open my $fh, "<:raw", $path 656 open my $fh, "<:raw", $path
531 or die "$path: $!"; 657 or die "$path: $!";
532 658
659 @{"$pkg\::ISA"} = urxvt::term::extension::;
660
533 my $source = untaint 661 my $source =
534 "package $pkg; use strict; use utf8;\n" 662 "package $pkg; use strict; use utf8;\n"
535 . "use base urxvt::term::extension::;\n"
536 . "#line 1 \"$path\"\n{\n" 663 . "#line 1 \"$path\"\n{\n"
537 . (do { local $/; <$fh> }) 664 . (do { local $/; <$fh> })
538 . "\n};\n1"; 665 . "\n};\n1";
539 666
540 eval $source 667 eval $source
… …
603 verbose 11, "$HOOKNAME[$htype] returning <$retval>" 730 verbose 11, "$HOOKNAME[$htype] returning <$retval>"
604 if $verbosity >= 11; 731 if $verbosity >= 11;
605 } 732 }
606 733
607 if ($htype == 1) { # DESTROY 734 if ($htype == 1) { # DESTROY
608 if (my $hook = delete $TERM->{_hook}) {
609 for my $htype (0..$#$hook) {
610 $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} }
611 or set_should_invoke $htype, 0;
612 }
613 }
614
615 # clear package objects 735 # clear package objects
616 %$_ = () for values %{ $TERM->{_pkg} }; 736 %$_ = () for values %{ $TERM->{_pkg} };
617 737
618 # clear package 738 # clear package
619 %$TERM = (); 739 %$TERM = ();
… …
645 while (my ($name, $cb) = each %hook) { 765 while (my ($name, $cb) = each %hook) {
646 my $htype = $HOOKTYPE{uc $name}; 766 my $htype = $HOOKTYPE{uc $name};
647 defined $htype 767 defined $htype
648 or Carp::croak "unsupported hook type '$name'"; 768 or Carp::croak "unsupported hook type '$name'";
649 769
770 $self->set_should_invoke ($htype, +1)
650 unless (exists $self->{term}{_hook}[$htype]{$pkg}) { 771 unless exists $self->{term}{_hook}[$htype]{$pkg};
651 $hook_count[$htype]++
652 or urxvt::set_should_invoke $htype, 1;
653 }
654 772
655 $self->{term}{_hook}[$htype]{$pkg} = $cb; 773 $self->{term}{_hook}[$htype]{$pkg} = $cb;
656 } 774 }
657} 775}
658 776
… …
663 for my $name (@hook) { 781 for my $name (@hook) {
664 my $htype = $HOOKTYPE{uc $name}; 782 my $htype = $HOOKTYPE{uc $name};
665 defined $htype 783 defined $htype
666 or Carp::croak "unsupported hook type '$name'"; 784 or Carp::croak "unsupported hook type '$name'";
667 785
786 $self->set_should_invoke ($htype, -1)
668 if (delete $self->{term}{_hook}[$htype]{$pkg}) { 787 if delete $self->{term}{_hook}[$htype]{$pkg};
669 --$hook_count[$htype]
670 or urxvt::set_should_invoke $htype, 0;
671 }
672 } 788 }
673} 789}
674 790
675our $AUTOLOAD; 791our $AUTOLOAD;
676 792
… …
1081 1197
1082=item $windowid = $term->vt 1198=item $windowid = $term->vt
1083 1199
1084Return the window id of the terminal window. 1200Return the window id of the terminal window.
1085 1201
1202=item $term->vt_emask_add ($x_event_mask)
1203
1204Adds the specified events to the vt event mask. Useful e.g. when you want
1205to receive pointer events all the times:
1206
1207 $term->vt_emask_add (urxvt::PointerMotionMask);
1208
1086=item $window_width = $term->width 1209=item $window_width = $term->width
1087 1210
1088=item $window_height = $term->height 1211=item $window_height = $term->height
1089 1212
1090=item $font_width = $term->fwidth 1213=item $font_width = $term->fwidth
… …
1103 1226
1104=item $max_scrollback = $term->saveLines 1227=item $max_scrollback = $term->saveLines
1105 1228
1106=item $nrow_plus_saveLines = $term->total_rows 1229=item $nrow_plus_saveLines = $term->total_rows
1107 1230
1108=item $lines_in_scrollback = $term->nsaved 1231=item $topmost_scrollback_row = $term->top_row
1109 1232
1110Return various integers describing terminal characteristics. 1233Return various integers describing terminal characteristics.
1111 1234
1112=item $x_display = $term->display_id 1235=item $x_display = $term->display_id
1113 1236
… …
1141Return the modifier masks corresponding to the "ISO Level 3 Shift" (often 1264Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
1142AltGr), the meta key (often Alt) and the num lock key, if applicable. 1265AltGr), the meta key (often Alt) and the num lock key, if applicable.
1143 1266
1144=item $view_start = $term->view_start ([$newvalue]) 1267=item $view_start = $term->view_start ([$newvalue])
1145 1268
1146Returns the negative row number of the topmost line. Minimum value is 1269Returns the row number of the topmost displayed line. Maximum value is
1147C<0>, which displays the normal terminal contents. Larger values scroll 1270C<0>, which displays the normal terminal contents. Lower values scroll
1148this many lines into the scrollback buffer. 1271this many lines into the scrollback buffer.
1149 1272
1150=item $term->want_refresh 1273=item $term->want_refresh
1151 1274
1152Requests a screen refresh. At the next opportunity, rxvt-unicode will 1275Requests a screen refresh. At the next opportunity, rxvt-unicode will

Diff Legend

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