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.109 by root, Thu Jan 19 16:07:09 2006 UTC vs.
Revision 1.133 by root, Mon Feb 6 06:14:08 2006 UTC

34find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>. 34find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>.
35 35
36You can activate them like this: 36You can activate them like this:
37 37
38 @@RXVT_NAME@@ -pe <extensionname> 38 @@RXVT_NAME@@ -pe <extensionname>
39
40Or by adding them to the resource for extensions loaded by default:
41
42 URxvt.perl-ext-common: default,automove-background,selection-autotransform
39 43
40=over 4 44=over 4
41 45
42=item selection (enabled by default) 46=item selection (enabled by default)
43 47
63the match. For example, the followign adds a regex that matches everything 67the match. For example, the followign adds a regex that matches everything
64between two vertical bars: 68between two vertical bars:
65 69
66 URxvt.selection.pattern-0: \\|([^|]+)\\| 70 URxvt.selection.pattern-0: \\|([^|]+)\\|
67 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: ^(/[^:]+):\
78
68You 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
69interesting uses, such as parsing a line from beginning to end. 80interesting uses, such as parsing a line from beginning to end.
70 81
71This extension also offers following bindable keyboard commands: 82This extension also offers following bindable keyboard commands:
72 83
83=item option-popup (enabled by default) 94=item option-popup (enabled by default)
84 95
85Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at 96Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at
86runtime. 97runtime.
87 98
99Other extensions can extend this popup menu by pushing a code reference
100onto C<@{ $term->{option_popup_hook} }>, which gets called whenever the
101popup is being displayed.
102
103It's sole argument is the popup menu, which can be modified. It should
104either return nothing or a string, the initial boolean value and a code
105reference. The string will be used as button text and the code reference
106will be called when the toggle changes, with the new boolean value as
107first argument.
108
109The following will add an entry C<myoption> that changes
110C<$self->{myoption}>:
111
112 push @{ $self->{term}{option_popup_hook} }, sub {
113 ("my option" => $myoption, sub { $self->{myoption} = $_[0] })
114 };
115
88=item selection-popup (enabled by default) 116=item selection-popup (enabled by default)
89 117
90Binds a popup menu to Ctrl-Button3 that lets you convert the selection 118Binds a popup menu to Ctrl-Button3 that lets you convert the selection
91text into various other formats/action (such as uri unescaping, perl 119text into various other formats/action (such as uri unescaping, perl
92evalution, web-browser starting etc.), depending on content. 120evaluation, web-browser starting etc.), depending on content.
93 121
94Other extensions can extend this popup menu by pushing a code reference onto 122Other extensions can extend this popup menu by pushing a code reference
95C<@urxvt::ext::selection_popup::hook>, that is called whenever the popup is displayed. 123onto C<@{ $term->{selection_popup_hook} }>, which gets called whenever the
124popup is being displayed.
96 125
97It's sole argument is the popup menu, which can be modified. The selection 126It'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. 127is 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 128It 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 129string will be used as button text and the code reference will be called
102 131
103The following will add an entry C<a to b> that transforms all C<a>s in 132The 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 133the selection to C<b>s, but only if the selection currently contains any
105C<a>s: 134C<a>s:
106 135
107 push urxvt::ext::selection_popup::hook, sub { 136 push @{ $self->{term}{selection_popup_hook} }, sub {
108 /a/ ? ("a to be" => sub { s/a/b/g } 137 /a/ ? ("a to be" => sub { s/a/b/g }
109 : () 138 : ()
110 }; 139 };
111
112Don't run it in a hook, otherwise the menu will grow and grow. Instead put
113it at the toplevel of your extension.
114 140
115=item searchable-scrollback<hotkey> (enabled by default) 141=item searchable-scrollback<hotkey> (enabled by default)
116 142
117Adds regex search functionality to the scrollback buffer, triggered 143Adds regex search functionality to the scrollback buffer, triggered
118by a hotkey (default: C<M-s>). While in search mode, normal terminal 144by a hotkey (default: C<M-s>). While in search mode, normal terminal
125bottom. C<Escape> leaves search mode and returns to the point where search 151bottom. C<Escape> leaves search mode and returns to the point where search
126was started, while C<Enter> or C<Return> stay at the current position and 152was started, while C<Enter> or C<Return> stay at the current position and
127additionally stores the first match in the current line into the primary 153additionally stores the first match in the current line into the primary
128selection. 154selection.
129 155
156=item readline (enabled by default)
157
158A support package that tries to make editing with readline easier. At the
159moment, it reacts to clicking with the left mouse button by trying to
160move the text cursor to this position. It does so by generating as many
161cursor-left or cursor-right keypresses as required (the this only works
162for programs that correctly support wide characters).
163
164To avoid too many false positives, this is only done when:
165
166=over 4
167
168=item - the tty is in ICANON state.
169
170=item - the text cursor is visible.
171
172=item - the primary screen is currently being displayed.
173
174=item - the mouse is on the same (multi-row-) line as the text cursor.
175
176=back
177
178The normal selection mechanism isn't disabled, so quick successive clicks
179might interfere with selection creation in harmless ways.
180
130=item selection-autotransform 181=item selection-autotransform
131 182
132This selection allows you to do automatic transforms on a selection 183This selection allows you to do automatic transforms on a selection
133whenever a selection is made. 184whenever a selection is made.
134 185
159 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/ 210 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
160 211
161The first line tells the selection code to treat the unchanging part of 212The first line tells the selection code to treat the unchanging part of
162every error message as a selection pattern, and the second line transforms 213every error message as a selection pattern, and the second line transforms
163the message into vi commands to load the file. 214the message into vi commands to load the file.
215
216=item tabbed
217
218This transforms the terminal into a tabbar with additional terminals, that
219is, it implements what is commonly refered to as "tabbed terminal". The topmost line
220displays a "[NEW]" button, which, when clicked, will add a new tab, followed by one
221button per tab.
222
223Clicking a button will activate that tab. Pressing B<Shift-Left> and
224B<Shift-Right> will switch to the tab left or right of the current one,
225while B<Shift-Down> creates a new tab.
226
227The tabbar itself can be configured similarly to a normal terminal, but
228with a resource class of C<URxvt.tabbed>. In addition, it supports the
229following four resources (shown with defaults):
230
231 URxvt.tabbed.tabbar-fg: <colour-index, default 3>
232 URxvt.tabbed.tabbar-bg: <colour-index, default 0>
233 URxvt.tabbed.tab-fg: <colour-index, default 0>
234 URxvt.tabbed.tab-bg: <colour-index, default 1>
235
236See I<COLOR AND GRAPHICS> in the @@RXVT_NAME@@(1) manpage for valid
237indices.
164 238
165=item mark-urls 239=item mark-urls
166 240
167Uses per-line display filtering (C<on_line_update>) to underline urls and 241Uses per-line display filtering (C<on_line_update>) to underline urls and
168make them clickable. When middle-clicked, the program specified in the 242make them clickable. When middle-clicked, the program specified in the
169resource C<urlLauncher> (default C<x-www-browser>) will be started with 243resource C<urlLauncher> (default C<x-www-browser>) will be started with
170the URL as first argument. 244the URL as first argument.
171 245
246=item xim-onthespot
247
248This (experimental) perl extension implements OnTheSpot editing. It does
249not work perfectly, and some input methods don't seem to work well with
250OnTheSpot editing in general, but it seems to work at leats for SCIM and
251kinput2.
252
253You enable it by specifying this extension and a preedit style of
254C<OnTheSpot>, i.e.:
255
256 @@RXVT_NAME@@ -pt OnTheSpot -pe xim-onthespot
257
172=item automove-background 258=item automove-background
173 259
174This is basically a one-line extension that dynamically changes the background pixmap offset 260This is basically a one-line extension that dynamically changes the background pixmap offset
175to the window position, in effect creating the same effect as pseudo transparency with 261to the window position, in effect creating the same effect as pseudo transparency with
176a custom pixmap. No scaling is supported in this mode. Exmaple: 262a custom pixmap. No scaling is supported in this mode. Exmaple:
185 271
186=item digital-clock 272=item digital-clock
187 273
188Displays a digital clock using the built-in overlay. 274Displays a digital clock using the built-in overlay.
189 275
190=item example-refresh-hooks 276=item remote-clipboard
191 277
192Displays a very simple digital clock in the upper right corner of the 278Somewhat of a misnomer, this extension adds two menu entries to the
193window. Illustrates overwriting the refresh callbacks to create your own 279selection popup that allows one ti run external commands to store the
194overlays or changes. 280selection somewhere and fetch it again.
281
282We use it to implement a "distributed selection mechanism", which just
283means that one command uploads the file to a remote server, and another
284reads it.
285
286The commands can be set using the C<URxvt.remote-selection.store> and
287C<URxvt.remote-selection.fetch> resources. The first should read the
288selection to store from STDIN (always in UTF-8), the second should provide
289the selection data on STDOUT (also in UTF-8).
290
291The defaults (which are likely useless to you) use rsh and cat:
292
293 URxvt.remote-selection.store: rsh ruth 'cat >/tmp/distributed-selection'
294 URxvt.remote-selection.fetch: rsh ruth 'cat /tmp/distributed-selection'
195 295
196=item selection-pastebin 296=item selection-pastebin
197 297
198This is a little rarely useful extension that Uploads the selection as 298This is a little rarely useful extension that Uploads the selection as
199textfile to a remote site (or does other things). (The implementation is 299textfile to a remote site (or does other things). (The implementation is
219After a successful upload the selection will be replaced by the text given 319After a successful upload the selection will be replaced by the text given
220in the C<selection-pastebin-url> resource (again, the % is the placeholder 320in the C<selection-pastebin-url> resource (again, the % is the placeholder
221for the filename): 321for the filename):
222 322
223 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/% 323 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/%
324
325=item example-refresh-hooks
326
327Displays a very simple digital clock in the upper right corner of the
328window. Illustrates overwriting the refresh callbacks to create your own
329overlays or changes.
224 330
225=back 331=back
226 332
227=head1 API DOCUMENTATION 333=head1 API DOCUMENTATION
228 334
301called whenever the relevant event happens. 407called whenever the relevant event happens.
302 408
303The first argument passed to them is an extension oject as described in 409The first argument passed to them is an extension oject as described in
304the in the C<Extension Objects> section. 410the in the C<Extension Objects> section.
305 411
306B<All> of these hooks must return a boolean value. If it is true, then the 412B<All> of these hooks must return a boolean value. If any of the called
307event counts as being I<consumed>, and the invocation of other hooks is 413hooks returns true, then the event counts as being I<consumed>, and the
308skipped, and the relevant action might not be carried out by the C++ code. 414relevant action might not be carried out by the C++ code.
309 415
310I<< When in doubt, return a false value (preferably C<()>). >> 416I<< When in doubt, return a false value (preferably C<()>). >>
311 417
312=over 4 418=over 4
313 419
314=item on_init $term 420=item on_init $term
315 421
316Called after a new terminal object has been initialized, but before 422Called after a new terminal object has been initialized, but before
317windows are created or the command gets run. Most methods are unsafe to 423windows are created or the command gets run. Most methods are unsafe to
318call or deliver senseless data, as terminal size and other characteristics 424call or deliver senseless data, as terminal size and other characteristics
319have not yet been determined. You can safely query and change resources, 425have not yet been determined. You can safely query and change resources
320though. 426and options, though. For many purposes the C<on_start> hook is a better
427place.
428
429=item on_start $term
430
431Called at the very end of initialisation of a new terminal, just before
432trying to map (display) the toplevel and returning to the mainloop.
433
434=item on_destroy $term
435
436Called whenever something tries to destroy terminal, when the terminal is
437still fully functional (not for long, though).
321 438
322=item on_reset $term 439=item on_reset $term
323 440
324Called after the screen is "reset" for any reason, such as resizing or 441Called after the screen is "reset" for any reason, such as resizing or
325control sequences. Here is where you can react on changes to size-related 442control sequences. Here is where you can react on changes to size-related
326variables. 443variables.
327
328=item on_start $term
329
330Called at the very end of initialisation of a new terminal, just before
331returning to the mainloop.
332 444
333=item on_child_start $term, $pid 445=item on_child_start $term, $pid
334 446
335Called just after the child process has been C<fork>ed. 447Called just after the child process has been C<fork>ed.
336 448
432 544
433=item on_refresh_end $term 545=item on_refresh_end $term
434 546
435Called just after the screen gets redrawn. See C<on_refresh_begin>. 547Called just after the screen gets redrawn. See C<on_refresh_begin>.
436 548
437=item on_keyboard_command $term, $string 549=item on_user_command $term, $string
438 550
439Called whenever the user presses a key combination that has a 551Called whenever the a user-configured event is being activated (e.g. via
440C<perl:string> action bound to it (see description of the B<keysym> 552a C<perl:string> action bound to a key, see description of the B<keysym>
441resource in the @@RXVT_NAME@@(1) manpage). 553resource in the @@RXVT_NAME@@(1) manpage).
554
555The event is simply the action string. This interface is assumed to change
556slightly in the future.
442 557
443=item on_x_event $term, $event 558=item on_x_event $term, $event
444 559
445Called on every X event received on the vt window (and possibly other 560Called on every X event received on the vt window (and possibly other
446windows). Should only be used as a last resort. Most event structure 561windows). Should only be used as a last resort. Most event structure
456Called wheneever the window loses keyboard focus, before rxvt-unicode does 571Called wheneever the window loses keyboard focus, before rxvt-unicode does
457focus out processing. 572focus out processing.
458 573
459=item on_configure_notify $term, $event 574=item on_configure_notify $term, $event
460 575
576=item on_property_notify $term, $event
577
461=item on_key_press $term, $event, $keysym, $octets 578=item on_key_press $term, $event, $keysym, $octets
462 579
463=item on_key_release $term, $event, $keysym 580=item on_key_release $term, $event, $keysym
464 581
465=item on_button_press $term, $event 582=item on_button_press $term, $event
474 591
475Called whenever the corresponding X event is received for the terminal If 592Called whenever the corresponding X event is received for the terminal If
476the hook returns true, then the even will be ignored by rxvt-unicode. 593the hook returns true, then the even will be ignored by rxvt-unicode.
477 594
478The event is a hash with most values as named by Xlib (see the XEvent 595The event is a hash with most values as named by Xlib (see the XEvent
479manpage), with the additional members C<row> and C<col>, which are the row 596manpage), with the additional members C<row> and C<col>, which are the
480and column under the mouse cursor. 597(real, not screen-based) row and column under the mouse cursor.
481 598
482C<on_key_press> additionally receives the string rxvt-unicode would 599C<on_key_press> additionally receives the string rxvt-unicode would
483output, if any, in locale-specific encoding. 600output, if any, in locale-specific encoding.
484 601
485subwindow. 602subwindow.
603
604=item on_client_message $term, $event
605
606=item on_wm_protocols $term, $event
607
608=item on_wm_delete_window $term, $event
609
610Called when various types of ClientMessage events are received (all with
611format=32, WM_PROTOCOLS or WM_PROTOCOLS:WM_DELETE_WINDOW).
486 612
487=back 613=back
488 614
489=cut 615=cut
490 616
496use Scalar::Util (); 622use Scalar::Util ();
497use List::Util (); 623use List::Util ();
498 624
499our $VERSION = 1; 625our $VERSION = 1;
500our $TERM; 626our $TERM;
627our @TERM_INIT;
628our @TERM_EXT;
501our @HOOKNAME; 629our @HOOKNAME;
502our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME; 630our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
503our %OPTION; 631our %OPTION;
504 632
505our $LIBDIR; 633our $LIBDIR;
506our $RESNAME; 634our $RESNAME;
507our $RESCLASS; 635our $RESCLASS;
508our $RXVTNAME; 636our $RXVTNAME;
509 637
638our $NOCHAR = chr 0xffff;
639
510=head2 Variables in the C<urxvt> Package 640=head2 Variables in the C<urxvt> Package
511 641
512=over 4 642=over 4
513 643
514=item $urxvt::LIBDIR 644=item $urxvt::LIBDIR
526 656
527=item $urxvt::TERM 657=item $urxvt::TERM
528 658
529The current terminal. This variable stores the current C<urxvt::term> 659The current terminal. This variable stores the current C<urxvt::term>
530object, whenever a callback/hook is executing. 660object, whenever a callback/hook is executing.
661
662=item @urxvt::TERM_INIT
663
664All coderefs in this array will be called as methods of the next newly
665created C<urxvt::term> object (during the C<on_init> phase). The array
666gets cleared before the codereferences that were in it are being executed,
667so coderefs can push themselves onto it again if they so desire.
668
669This complements to the perl-eval commandline option, but gets executed
670first.
671
672=item @urxvt::TERM_EXT
673
674Works similar to C<@TERM_INIT>, but contains perl package/class names, which
675get registered as normal extensions after calling the hooks in C<@TERM_INIT>
676but before other extensions. Gets cleared just like C<@TERM_INIT>.
531 677
532=back 678=back
533 679
534=head2 Functions in the C<urxvt> Package 680=head2 Functions in the C<urxvt> Package
535 681
549 695
550Using this function has the advantage that its output ends up in the 696Using this function has the advantage that its output ends up in the
551correct place, e.g. on stderr of the connecting urxvtc client. 697correct place, e.g. on stderr of the connecting urxvtc client.
552 698
553Messages have a size limit of 1023 bytes currently. 699Messages have a size limit of 1023 bytes currently.
700
701=item @terms = urxvt::termlist
702
703Returns all urxvt::term objects that exist in this process, regardless of
704wether they are started, being destroyed etc., so be careful. Only term
705objects that have perl extensions attached will be returned (because there
706is no urxvt::term objet associated with others).
554 707
555=item $time = urxvt::NOW 708=item $time = urxvt::NOW
556 709
557Returns the "current time" (as per the event loop). 710Returns the "current time" (as per the event loop).
558 711
616Return the foreground/background colour index, respectively. 769Return the foreground/background colour index, respectively.
617 770
618=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour 771=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour
619 772
620=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour 773=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour
774
775=item $rend = urxvt::SET_COLOR $rend, $new_fg, $new_bg
621 776
622Replace the foreground/background colour in the rendition mask with the 777Replace the foreground/background colour in the rendition mask with the
623specified one. 778specified one.
624 779
625=item $value = urxvt::GET_CUSTOM $rend 780=item $value = urxvt::GET_CUSTOM $rend
644 unless $msg =~ /\n$/; 799 unless $msg =~ /\n$/;
645 urxvt::warn ($msg); 800 urxvt::warn ($msg);
646 }; 801 };
647} 802}
648 803
804no warnings 'utf8';
805
649my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 806my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
650 807
651sub verbose { 808sub verbose {
652 my ($level, $msg) = @_; 809 my ($level, $msg) = @_;
653 warn "$msg\n" if $level <= $verbosity; 810 warn "$msg\n" if $level <= $verbosity;
656my %extension_pkg; 813my %extension_pkg;
657 814
658# load a single script into its own package, once only 815# load a single script into its own package, once only
659sub extension_package($) { 816sub extension_package($) {
660 my ($path) = @_; 817 my ($path) = @_;
661
662 no strict 'refs';
663 818
664 $extension_pkg{$path} ||= do { 819 $extension_pkg{$path} ||= do {
665 $path =~ /([^\/\\]+)$/; 820 $path =~ /([^\/\\]+)$/;
666 my $pkg = $1; 821 my $pkg = $1;
667 $pkg =~ s/[^[:word:]]/_/g; 822 $pkg =~ s/[^[:word:]]/_/g;
670 verbose 3, "loading extension '$path' into package '$pkg'"; 825 verbose 3, "loading extension '$path' into package '$pkg'";
671 826
672 open my $fh, "<:raw", $path 827 open my $fh, "<:raw", $path
673 or die "$path: $!"; 828 or die "$path: $!";
674 829
675 @{"$pkg\::ISA"} = urxvt::term::extension::;
676
677 my $source = 830 my $source =
678 "package $pkg; use strict; use utf8;\n" 831 "package $pkg; use strict; use utf8; no warnings 'utf8';\n"
679 . "#line 1 \"$path\"\n{\n" 832 . "#line 1 \"$path\"\n{\n"
680 . (do { local $/; <$fh> }) 833 . (do { local $/; <$fh> })
681 . "\n};\n1"; 834 . "\n};\n1";
682 835
683 eval $source 836 eval $source
697 if ($htype == 0) { # INIT 850 if ($htype == 0) { # INIT
698 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 851 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
699 852
700 my %ext_arg; 853 my %ext_arg;
701 854
855 {
856 my @init = @TERM_INIT;
857 @TERM_INIT = ();
858 $_->($TERM) for @init;
859 my @pkg = @TERM_EXT;
860 @TERM_EXT = ();
861 $TERM->register_package ($_) for @pkg;
862 }
863
702 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 864 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
703 if ($_ eq "default") { 865 if ($_ eq "default") {
704 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 866 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
705 } elsif (/^-(.*)$/) { 867 } elsif (/^-(.*)$/) {
706 delete $ext_arg{$1}; 868 delete $ext_arg{$1};
707 } elsif (/^([^<]+)<(.*)>$/) { 869 } elsif (/^([^<]+)<(.*)>$/) {
708 push @{ $ext_arg{$1} }, $2; 870 push @{ $ext_arg{$1} }, $2;
709 } else { 871 } else {
710 $ext_arg{$_} ||= []; 872 $ext_arg{$_} ||= [];
711 } 873 }
712 } 874 }
713 875
714 while (my ($ext, $argv) = each %ext_arg) { 876 for my $ext (sort keys %ext_arg) {
715 my @files = grep -f $_, map "$_/$ext", @dirs; 877 my @files = grep -f $_, map "$_/$ext", @dirs;
716 878
717 if (@files) { 879 if (@files) {
718 $TERM->register_package (extension_package $files[0], $argv); 880 $TERM->register_package (extension_package $files[0], $ext_arg{$ext});
719 } else { 881 } else {
720 warn "perl extension '$ext' not found in perl library search path\n"; 882 warn "perl extension '$ext' not found in perl library search path\n";
721 } 883 }
722 } 884 }
723 885
732 if $verbosity >= 10; 894 if $verbosity >= 10;
733 895
734 keys %$cb; 896 keys %$cb;
735 897
736 while (my ($pkg, $cb) = each %$cb) { 898 while (my ($pkg, $cb) = each %$cb) {
737 $retval = eval { $cb->($TERM->{_pkg}{$pkg}, @_) } 899 my $retval_ = eval { $cb->($TERM->{_pkg}{$pkg}, @_) };
738 and last; 900 $retval ||= $retval_;
739 901
740 if ($@) { 902 if ($@) {
741 $TERM->ungrab; # better to lose the grab than the session 903 $TERM->ungrab; # better to lose the grab than the session
742 warn $@; 904 warn $@;
743 } 905 }
754 # clear package 916 # clear package
755 %$TERM = (); 917 %$TERM = ();
756 } 918 }
757 919
758 $retval 920 $retval
921}
922
923sub SET_COLOR($$$) {
924 SET_BGCOLOR (SET_FGCOLOR ($_[0], $_[1]), $_[2])
759} 925}
760 926
761# urxvt::term::extension 927# urxvt::term::extension
762 928
763package urxvt::term::extension; 929package urxvt::term::extension;
902# find on_xxx subs in the package and register them 1068# find on_xxx subs in the package and register them
903# as hooks 1069# as hooks
904sub register_package { 1070sub register_package {
905 my ($self, $pkg, $argv) = @_; 1071 my ($self, $pkg, $argv) = @_;
906 1072
1073 no strict 'refs';
1074
1075 urxvt::verbose 6, "register package $pkg to $self";
1076
1077 @{"$pkg\::ISA"} = urxvt::term::extension::;
1078
907 my $proxy = bless { 1079 my $proxy = bless {
908 _pkg => $pkg, 1080 _pkg => $pkg,
909 argv => $argv, 1081 argv => $argv,
910 }, $pkg; 1082 }, $pkg;
911 Scalar::Util::weaken ($proxy->{term} = $self); 1083 Scalar::Util::weaken ($proxy->{term} = $self);
926hash which defines the environment of the new terminal. 1098hash which defines the environment of the new terminal.
927 1099
928Croaks (and probably outputs an error message) if the new instance 1100Croaks (and probably outputs an error message) if the new instance
929couldn't be created. Returns C<undef> if the new instance didn't 1101couldn't be created. Returns C<undef> if the new instance didn't
930initialise perl, and the terminal object otherwise. The C<init> and 1102initialise perl, and the terminal object otherwise. The C<init> and
931C<start> hooks will be called during this call. 1103C<start> hooks will be called before this call returns, and are free to
1104refer to global data (which is race free).
932 1105
933=cut 1106=cut
934 1107
935sub new { 1108sub new {
936 my ($class, $env, @args) = @_; 1109 my ($class, $env, @args) = @_;
937 1110
1111 $env or Carp::croak "environment hash missing in call to urxvt::term->new";
1112 @args or Carp::croak "name argument missing in call to urxvt::term->new";
1113
938 _new ([ map "$_=$env->{$_}", keys %$env ], @args); 1114 _new ([ map "$_=$env->{$_}", keys %$env ], \@args);
939} 1115}
940 1116
941=item $term->destroy 1117=item $term->destroy
942 1118
943Destroy the terminal object (close the window, free resources 1119Destroy the terminal object (close the window, free resources
1200 1376
1201Normally its not a good idea to use this function, as programs might be 1377Normally its not a good idea to use this function, as programs might be
1202confused by changes in cursor position or scrolling. Its useful inside a 1378confused by changes in cursor position or scrolling. Its useful inside a
1203C<on_add_lines> hook, though. 1379C<on_add_lines> hook, though.
1204 1380
1381=item $term->scr_change_screen ($screen)
1382
1383Switch to given screen - 0 primary, 1 secondary.
1384
1205=item $term->cmd_parse ($octets) 1385=item $term->cmd_parse ($octets)
1206 1386
1207Similar to C<scr_add_lines>, but the argument must be in the 1387Similar to C<scr_add_lines>, but the argument must be in the
1208locale-specific encoding of the terminal and can contain command sequences 1388locale-specific encoding of the terminal and can contain command sequences
1209(escape codes) that will be interpreted. 1389(escape codes) that will be interpreted.
1219Replaces the event mask of the pty watcher by the given event mask. Can 1399Replaces the event mask of the pty watcher by the given event mask. Can
1220be used to suppress input and output handling to the pty/tty. See the 1400be used to suppress input and output handling to the pty/tty. See the
1221description of C<< urxvt::timer->events >>. Make sure to always restore 1401description of C<< urxvt::timer->events >>. Make sure to always restore
1222the previous value. 1402the previous value.
1223 1403
1404=item $fd = $term->pty_fd
1405
1406Returns the master file descriptor for the pty in use, or C<-1> if no pty
1407is used.
1408
1224=item $windowid = $term->parent 1409=item $windowid = $term->parent
1225 1410
1226Return the window id of the toplevel window. 1411Return the window id of the toplevel window.
1227 1412
1228=item $windowid = $term->vt 1413=item $windowid = $term->vt
1233 1418
1234Adds the specified events to the vt event mask. Useful e.g. when you want 1419Adds the specified events to the vt event mask. Useful e.g. when you want
1235to receive pointer events all the times: 1420to receive pointer events all the times:
1236 1421
1237 $term->vt_emask_add (urxvt::PointerMotionMask); 1422 $term->vt_emask_add (urxvt::PointerMotionMask);
1423
1424=item $term->focus_in
1425
1426=item $term->focus_out
1427
1428=item $term->key_press ($state, $keycode[, $time])
1429
1430=item $term->key_release ($state, $keycode[, $time])
1431
1432Deliver various fake events to to terminal.
1238 1433
1239=item $window_width = $term->width 1434=item $window_width = $term->width
1240 1435
1241=item $window_height = $term->height 1436=item $window_height = $term->height
1242 1437
1292=item $modifiermask = $term->ModNumLockMask 1487=item $modifiermask = $term->ModNumLockMask
1293 1488
1294Return the modifier masks corresponding to the "ISO Level 3 Shift" (often 1489Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
1295AltGr), the meta key (often Alt) and the num lock key, if applicable. 1490AltGr), the meta key (often Alt) and the num lock key, if applicable.
1296 1491
1492=item $screen = $term->current_screen
1493
1494Returns the currently displayed screen (0 primary, 1 secondary).
1495
1496=item $cursor_is_hidden = $term->hidden_cursor
1497
1498Returns wether the cursor is currently hidden or not.
1499
1297=item $view_start = $term->view_start ([$newvalue]) 1500=item $view_start = $term->view_start ([$newvalue])
1298 1501
1299Returns the row number of the topmost displayed line. Maximum value is 1502Returns the row number of the topmost displayed line. Maximum value is
1300C<0>, which displays the normal terminal contents. Lower values scroll 1503C<0>, which displays the normal terminal contents. Lower values scroll
1301this many lines into the scrollback buffer. 1504this many lines into the scrollback buffer.
1320line, starting at column C<$start_col> (default C<0>), which is useful 1523line, starting at column C<$start_col> (default C<0>), which is useful
1321to replace only parts of a line. The font index in the rendition will 1524to replace only parts of a line. The font index in the rendition will
1322automatically be updated. 1525automatically be updated.
1323 1526
1324C<$text> is in a special encoding: tabs and wide characters that use more 1527C<$text> is in a special encoding: tabs and wide characters that use more
1325than one cell when displayed are padded with urxvt::NOCHAR characters 1528than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1326(C<chr 65535>). Characters with combining characters and other characters 1529characters. Characters with combining characters and other characters that
1327that do not fit into the normal tetx encoding will be replaced with 1530do not fit into the normal tetx encoding will be replaced with characters
1328characters in the private use area. 1531in the private use area.
1329 1532
1330You have to obey this encoding when changing text. The advantage is 1533You have to obey this encoding when changing text. The advantage is
1331that C<substr> and similar functions work on screen cells and not on 1534that C<substr> and similar functions work on screen cells and not on
1332characters. 1535characters.
1333 1536
1480=item $string = $term->special_decode $text 1683=item $string = $term->special_decode $text
1481 1684
1482Converts rxvt-unicodes text reprsentation into a perl string. See 1685Converts rxvt-unicodes text reprsentation into a perl string. See
1483C<< $term->ROW_t >> for details. 1686C<< $term->ROW_t >> for details.
1484 1687
1485=item $success = $term->grab_button ($button, $modifiermask) 1688=item $success = $term->grab_button ($button, $modifiermask[, $window = $term->vt])
1486 1689
1690=item $term->ungrab_button ($button, $modifiermask[, $window = $term->vt])
1691
1487Registers a synchronous button grab. See the XGrabButton manpage. 1692Register/unregister a synchronous button grab. See the XGrabButton
1693manpage.
1488 1694
1489=item $success = $term->grab ($eventtime[, $sync]) 1695=item $success = $term->grab ($eventtime[, $sync])
1490 1696
1491Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1697Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1492synchronous (C<$sync> is true). Also remembers the grab timestampe. 1698synchronous (C<$sync> is true). Also remembers the grab timestampe.
1507=item $term->ungrab 1713=item $term->ungrab
1508 1714
1509Calls XUngrab for the most recent grab. Is called automatically on 1715Calls XUngrab for the most recent grab. Is called automatically on
1510evaluation errors, as it is better to lose the grab in the error case as 1716evaluation errors, as it is better to lose the grab in the error case as
1511the session. 1717the session.
1718
1719=item $atom = $term->XInternAtom ($atom_name[, $only_if_exists])
1720
1721=item $atom_name = $term->XGetAtomName ($atom)
1722
1723=item @atoms = $term->XListProperties ($window)
1724
1725=item ($type,$format,$octets) = $term->XGetWindowProperty ($window, $property)
1726
1727=item $term->XChangeWindowProperty ($window, $property, $type, $format, $octets)
1728
1729=item $term->XDeleteProperty ($window, $property)
1730
1731=item $window = $term->DefaultRootWindow
1732
1733=item $term->XReparentWindow ($window, $parent, [$x, $y])
1734
1735=item $term->XMapWindow ($window)
1736
1737=item $term->XUnmapWindow ($window)
1738
1739=item $term->XMoveResizeWindow ($window, $x, $y, $width, $height)
1740
1741=item ($x, $y, $child_window) = $term->XTranslateCoordinates ($src, $dst, $x, $y)
1742
1743=item $term->XChangeInput ($window, $add_events[, $del_events])
1744
1745Various X or X-related functions. The C<$term> object only serves as
1746the source of the display, otherwise those functions map more-or-less
1747directory onto the X functions of the same name.
1512 1748
1513=back 1749=back
1514 1750
1515=cut 1751=cut
1516 1752
1580 my ($self, $text, $cb) = @_; 1816 my ($self, $text, $cb) = @_;
1581 1817
1582 $self->add_item ({ type => "button", text => $text, activate => $cb}); 1818 $self->add_item ({ type => "button", text => $text, activate => $cb});
1583} 1819}
1584 1820
1585=item $popup->add_toggle ($text, $cb, $initial_value) 1821=item $popup->add_toggle ($text, $initial_value, $cb)
1586 1822
1587Adds a toggle/checkbox item to the popup. Teh callback gets called 1823Adds a toggle/checkbox item to the popup. The callback gets called
1588whenever it gets toggled, with a boolean indicating its value as its first 1824whenever it gets toggled, with a boolean indicating its new value as its
1589argument. 1825first argument.
1590 1826
1591=cut 1827=cut
1592 1828
1593sub add_toggle { 1829sub add_toggle {
1594 my ($self, $text, $cb, $value) = @_; 1830 my ($self, $text, $value, $cb) = @_;
1595 1831
1596 my $item; $item = { 1832 my $item; $item = {
1597 type => "button", 1833 type => "button",
1598 text => " $text", 1834 text => " $text",
1599 value => $value, 1835 value => $value,
1636 delete $self->{term}{_destroy}{$self}; 1872 delete $self->{term}{_destroy}{$self};
1637 $self->{term}->ungrab; 1873 $self->{term}->ungrab;
1638} 1874}
1639 1875
1640=back 1876=back
1877
1878=cut
1879
1880package urxvt::watcher;
1881
1882@urxvt::timer::ISA = __PACKAGE__;
1883@urxvt::iow::ISA = __PACKAGE__;
1884@urxvt::pw::ISA = __PACKAGE__;
1885@urxvt::iw::ISA = __PACKAGE__;
1641 1886
1642=head2 The C<urxvt::timer> Class 1887=head2 The C<urxvt::timer> Class
1643 1888
1644This class implements timer watchers/events. Time is represented as a 1889This class implements timer watchers/events. Time is represented as a
1645fractional number of seconds since the epoch. Example: 1890fractional number of seconds since the epoch. Example:
1743 1988
1744Stop watching for events on the given filehandle. 1989Stop watching for events on the given filehandle.
1745 1990
1746=back 1991=back
1747 1992
1993=head2 The C<urxvt::iw> Class
1994
1995This class implements idle watchers, that get called automatically when
1996the process is idle. They should return as fast as possible, after doing
1997some useful work.
1998
1999=over 4
2000
2001=item $iw = new urxvt::iw
2002
2003Create a new idle watcher object in stopped state.
2004
2005=item $iw = $iw->cb (sub { my ($iw) = @_; ... })
2006
2007Set the callback to be called when the watcher triggers.
2008
2009=item $timer = $timer->start
2010
2011Start the watcher.
2012
2013=item $timer = $timer->stop
2014
2015Stop the watcher.
2016
2017=back
2018
2019=head2 The C<urxvt::pw> Class
2020
2021This class implements process watchers. They create an event whenever a
2022process exits, after which they stop automatically.
2023
2024 my $pid = fork;
2025 ...
2026 $term->{pw} = urxvt::pw
2027 ->new
2028 ->start ($pid)
2029 ->cb (sub {
2030 my ($pw, $exit_status) = @_;
2031 ...
2032 });
2033
2034=over 4
2035
2036=item $pw = new urxvt::pw
2037
2038Create a new process watcher in stopped state.
2039
2040=item $pw = $pw->cb (sub { my ($pw, $exit_status) = @_; ... })
2041
2042Set the callback to be called when the timer triggers.
2043
2044=item $pw = $timer->start ($pid)
2045
2046Tells the wqtcher to start watching for process C<$pid>.
2047
2048=item $pw = $pw->stop
2049
2050Stop the watcher.
2051
2052=back
2053
1748=head1 ENVIRONMENT 2054=head1 ENVIRONMENT
1749 2055
1750=head2 URXVT_PERL_VERBOSITY 2056=head2 URXVT_PERL_VERBOSITY
1751 2057
1752This variable controls the verbosity level of the perl extension. Higher 2058This variable controls the verbosity level of the perl extension. Higher

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines