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.125 by root, Sun Jan 22 20:39:47 2006 UTC vs.
Revision 1.134 by root, Sat Feb 11 02:31:13 2006 UTC

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 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
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:
76 83
86 93
87=item option-popup (enabled by default) 94=item option-popup (enabled by default)
88 95
89Binds 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
90runtime. 97runtime.
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 };
91 115
92=item selection-popup (enabled by default) 116=item selection-popup (enabled by default)
93 117
94Binds 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
95text into various other formats/action (such as uri unescaping, perl 119text into various other formats/action (such as uri unescaping, perl
96evaluation, web-browser starting etc.), depending on content. 120evaluation, web-browser starting etc.), depending on content.
97 121
98Other extensions can extend this popup menu by pushing a code reference 122Other extensions can extend this popup menu by pushing a code reference
99onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the 123onto C<@{ $term->{selection_popup_hook} }>, which gets called whenever the
100popup is displayed. 124popup is being displayed.
101 125
102It'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
103is 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.
104It 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
105string 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
198 222
199Clicking a button will activate that tab. Pressing B<Shift-Left> and 223Clicking a button will activate that tab. Pressing B<Shift-Left> and
200B<Shift-Right> will switch to the tab left or right of the current one, 224B<Shift-Right> will switch to the tab left or right of the current one,
201while B<Shift-Down> creates a new tab. 225while B<Shift-Down> creates a new tab.
202 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.
238
203=item mark-urls 239=item mark-urls
204 240
205Uses 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
206make them clickable. When middle-clicked, the program specified in the 242make them clickable. When middle-clicked, the program specified in the
207resource C<urlLauncher> (default C<x-www-browser>) will be started with 243resource C<urlLauncher> (default C<x-www-browser>) will be started with
208the URL as first argument. 244the URL as first argument.
209 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
210=item automove-background 258=item automove-background
211 259
212This 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
213to 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
214a custom pixmap. No scaling is supported in this mode. Exmaple: 262a custom pixmap. No scaling is supported in this mode. Exmaple:
223 271
224=item digital-clock 272=item digital-clock
225 273
226Displays a digital clock using the built-in overlay. 274Displays a digital clock using the built-in overlay.
227 275
228=item example-refresh-hooks 276=item remote-clipboard
229 277
230Displays a very simple digital clock in the upper right corner of the 278Somewhat of a misnomer, this extension adds two menu entries to the
231window. Illustrates overwriting the refresh callbacks to create your own 279selection popup that allows one ti run external commands to store the
232overlays 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'
233 295
234=item selection-pastebin 296=item selection-pastebin
235 297
236This is a little rarely useful extension that Uploads the selection as 298This is a little rarely useful extension that Uploads the selection as
237textfile to a remote site (or does other things). (The implementation is 299textfile to a remote site (or does other things). (The implementation is
257After 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
258in the C<selection-pastebin-url> resource (again, the % is the placeholder 320in the C<selection-pastebin-url> resource (again, the % is the placeholder
259for the filename): 321for the filename):
260 322
261 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.
262 330
263=back 331=back
264 332
265=head1 API DOCUMENTATION 333=head1 API DOCUMENTATION
266 334
363Called at the very end of initialisation of a new terminal, just before 431Called at the very end of initialisation of a new terminal, just before
364trying to map (display) the toplevel and returning to the mainloop. 432trying to map (display) the toplevel and returning to the mainloop.
365 433
366=item on_destroy $term 434=item on_destroy $term
367 435
368Called whenever something tries to destroy terminal, before doing anything 436Called whenever something tries to destroy terminal, when the terminal is
369yet. If this hook returns true, then destruction is skipped, but this is 437still fully functional (not for long, though).
370rarely a good idea.
371 438
372=item on_reset $term 439=item on_reset $term
373 440
374Called 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
375control 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
477 544
478=item on_refresh_end $term 545=item on_refresh_end $term
479 546
480Called just after the screen gets redrawn. See C<on_refresh_begin>. 547Called just after the screen gets redrawn. See C<on_refresh_begin>.
481 548
482=item on_keyboard_command $term, $string 549=item on_user_command $term, $string
483 550
484Called whenever the user presses a key combination that has a 551Called whenever the a user-configured event is being activated (e.g. via
485C<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>
486resource 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.
557
558=item on_resize_all_windows $tern, $new_width, $new_height
559
560Called just after the new window size has been calculcated, but before
561windows are actually being resized or hints are being set. If this hook
562returns TRUE, setting of the window hints is being skipped.
487 563
488=item on_x_event $term, $event 564=item on_x_event $term, $event
489 565
490Called on every X event received on the vt window (and possibly other 566Called on every X event received on the vt window (and possibly other
491windows). Should only be used as a last resort. Most event structure 567windows). Should only be used as a last resort. Most event structure
626Using this function has the advantage that its output ends up in the 702Using this function has the advantage that its output ends up in the
627correct place, e.g. on stderr of the connecting urxvtc client. 703correct place, e.g. on stderr of the connecting urxvtc client.
628 704
629Messages have a size limit of 1023 bytes currently. 705Messages have a size limit of 1023 bytes currently.
630 706
707=item @terms = urxvt::termlist
708
709Returns all urxvt::term objects that exist in this process, regardless of
710wether they are started, being destroyed etc., so be careful. Only term
711objects that have perl extensions attached will be returned (because there
712is no urxvt::term objet associated with others).
713
631=item $time = urxvt::NOW 714=item $time = urxvt::NOW
632 715
633Returns the "current time" (as per the event loop). 716Returns the "current time" (as per the event loop).
634 717
635=item urxvt::CurrentTime 718=item urxvt::CurrentTime
692Return the foreground/background colour index, respectively. 775Return the foreground/background colour index, respectively.
693 776
694=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour 777=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour
695 778
696=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour 779=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour
780
781=item $rend = urxvt::SET_COLOR $rend, $new_fg, $new_bg
697 782
698Replace the foreground/background colour in the rendition mask with the 783Replace the foreground/background colour in the rendition mask with the
699specified one. 784specified one.
700 785
701=item $value = urxvt::GET_CUSTOM $rend 786=item $value = urxvt::GET_CUSTOM $rend
792 } else { 877 } else {
793 $ext_arg{$_} ||= []; 878 $ext_arg{$_} ||= [];
794 } 879 }
795 } 880 }
796 881
797 while (my ($ext, $argv) = each %ext_arg) { 882 for my $ext (sort keys %ext_arg) {
798 my @files = grep -f $_, map "$_/$ext", @dirs; 883 my @files = grep -f $_, map "$_/$ext", @dirs;
799 884
800 if (@files) { 885 if (@files) {
801 $TERM->register_package (extension_package $files[0], $argv); 886 $TERM->register_package (extension_package $files[0], $ext_arg{$ext});
802 } else { 887 } else {
803 warn "perl extension '$ext' not found in perl library search path\n"; 888 warn "perl extension '$ext' not found in perl library search path\n";
804 } 889 }
805 } 890 }
806 891
837 # clear package 922 # clear package
838 %$TERM = (); 923 %$TERM = ();
839 } 924 }
840 925
841 $retval 926 $retval
927}
928
929sub SET_COLOR($$$) {
930 SET_BGCOLOR (SET_FGCOLOR ($_[0], $_[1]), $_[2])
842} 931}
843 932
844# urxvt::term::extension 933# urxvt::term::extension
845 934
846package urxvt::term::extension; 935package urxvt::term::extension;
1015hash which defines the environment of the new terminal. 1104hash which defines the environment of the new terminal.
1016 1105
1017Croaks (and probably outputs an error message) if the new instance 1106Croaks (and probably outputs an error message) if the new instance
1018couldn't be created. Returns C<undef> if the new instance didn't 1107couldn't be created. Returns C<undef> if the new instance didn't
1019initialise perl, and the terminal object otherwise. The C<init> and 1108initialise perl, and the terminal object otherwise. The C<init> and
1020C<start> hooks will be called during this call. 1109C<start> hooks will be called before this call returns, and are free to
1110refer to global data (which is race free).
1021 1111
1022=cut 1112=cut
1023 1113
1024sub new { 1114sub new {
1025 my ($class, $env, @args) = @_; 1115 my ($class, $env, @args) = @_;
1026 1116
1117 $env or Carp::croak "environment hash missing in call to urxvt::term->new";
1118 @args or Carp::croak "name argument missing in call to urxvt::term->new";
1119
1027 _new ([ map "$_=$env->{$_}", keys %$env ], @args); 1120 _new ([ map "$_=$env->{$_}", keys %$env ], \@args);
1028} 1121}
1029 1122
1030=item $term->destroy 1123=item $term->destroy
1031 1124
1032Destroy the terminal object (close the window, free resources 1125Destroy the terminal object (close the window, free resources
1332Adds the specified events to the vt event mask. Useful e.g. when you want 1425Adds the specified events to the vt event mask. Useful e.g. when you want
1333to receive pointer events all the times: 1426to receive pointer events all the times:
1334 1427
1335 $term->vt_emask_add (urxvt::PointerMotionMask); 1428 $term->vt_emask_add (urxvt::PointerMotionMask);
1336 1429
1430=item $term->focus_in
1431
1432=item $term->focus_out
1433
1434=item $term->key_press ($state, $keycode[, $time])
1435
1436=item $term->key_release ($state, $keycode[, $time])
1437
1438Deliver various fake events to to terminal.
1439
1337=item $window_width = $term->width 1440=item $window_width = $term->width
1338 1441
1339=item $window_height = $term->height 1442=item $window_height = $term->height
1340 1443
1341=item $font_width = $term->fwidth 1444=item $font_width = $term->fwidth
1586=item $string = $term->special_decode $text 1689=item $string = $term->special_decode $text
1587 1690
1588Converts rxvt-unicodes text reprsentation into a perl string. See 1691Converts rxvt-unicodes text reprsentation into a perl string. See
1589C<< $term->ROW_t >> for details. 1692C<< $term->ROW_t >> for details.
1590 1693
1591=item $success = $term->grab_button ($button, $modifiermask) 1694=item $success = $term->grab_button ($button, $modifiermask[, $window = $term->vt])
1592 1695
1696=item $term->ungrab_button ($button, $modifiermask[, $window = $term->vt])
1697
1593Registers a synchronous button grab. See the XGrabButton manpage. 1698Register/unregister a synchronous button grab. See the XGrabButton
1699manpage.
1594 1700
1595=item $success = $term->grab ($eventtime[, $sync]) 1701=item $success = $term->grab ($eventtime[, $sync])
1596 1702
1597Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1703Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1598synchronous (C<$sync> is true). Also remembers the grab timestampe. 1704synchronous (C<$sync> is true). Also remembers the grab timestampe.
1716 my ($self, $text, $cb) = @_; 1822 my ($self, $text, $cb) = @_;
1717 1823
1718 $self->add_item ({ type => "button", text => $text, activate => $cb}); 1824 $self->add_item ({ type => "button", text => $text, activate => $cb});
1719} 1825}
1720 1826
1721=item $popup->add_toggle ($text, $cb, $initial_value) 1827=item $popup->add_toggle ($text, $initial_value, $cb)
1722 1828
1723Adds a toggle/checkbox item to the popup. Teh callback gets called 1829Adds a toggle/checkbox item to the popup. The callback gets called
1724whenever it gets toggled, with a boolean indicating its value as its first 1830whenever it gets toggled, with a boolean indicating its new value as its
1725argument. 1831first argument.
1726 1832
1727=cut 1833=cut
1728 1834
1729sub add_toggle { 1835sub add_toggle {
1730 my ($self, $text, $cb, $value) = @_; 1836 my ($self, $text, $value, $cb) = @_;
1731 1837
1732 my $item; $item = { 1838 my $item; $item = {
1733 type => "button", 1839 type => "button",
1734 text => " $text", 1840 text => " $text",
1735 value => $value, 1841 value => $value,

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines