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.114 by root, Fri Jan 20 12:16:28 2006 UTC vs.
Revision 1.131 by root, Sun Jan 29 20:51:28 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
91 98
92=item selection-popup (enabled by default) 99=item selection-popup (enabled by default)
93 100
94Binds a popup menu to Ctrl-Button3 that lets you convert the selection 101Binds a popup menu to Ctrl-Button3 that lets you convert the selection
95text into various other formats/action (such as uri unescaping, perl 102text into various other formats/action (such as uri unescaping, perl
96evalution, web-browser starting etc.), depending on content. 103evaluation, web-browser starting etc.), depending on content.
97 104
98Other extensions can extend this popup menu by pushing a code reference 105Other extensions can extend this popup menu by pushing a code reference
99onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the 106onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the
100popup is displayed. 107popup is displayed.
101 108
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
139=item readline (enabled by default)
140
141A support package that tries to make editing with readline easier. At the
142moment, it reacts to clicking with the left mouse button by trying to
143move the text cursor to this position. It does so by generating as many
144cursor-left or cursor-right keypresses as required (the this only works
145for programs that correctly support wide characters).
146
147To avoid too many false positives, this is only done when:
148
149=over 4
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
157=item - the mouse is on the same (multi-row-) line as the text cursor.
158
159=back
160
161The normal selection mechanism isn't disabled, so quick successive clicks
162might interfere with selection creation in harmless ways.
163
132=item selection-autotransform 164=item selection-autotransform
133 165
134This selection allows you to do automatic transforms on a selection 166This selection allows you to do automatic transforms on a selection
135whenever a selection is made. 167whenever a selection is made.
136 168
161 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/ 193 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
162 194
163The first line tells the selection code to treat the unchanging part of 195The first line tells the selection code to treat the unchanging part of
164every error message as a selection pattern, and the second line transforms 196every error message as a selection pattern, and the second line transforms
165the message into vi commands to load the file. 197the message into vi commands to load the file.
198
199=item tabbed
200
201This transforms the terminal into a tabbar with additional terminals, that
202is, it implements what is commonly refered to as "tabbed terminal". The topmost line
203displays a "[NEW]" button, which, when clicked, will add a new tab, followed by one
204button per tab.
205
206Clicking a button will activate that tab. Pressing B<Shift-Left> and
207B<Shift-Right> will switch to the tab left or right of the current one,
208while B<Shift-Down> creates a new tab.
166 209
167=item mark-urls 210=item mark-urls
168 211
169Uses per-line display filtering (C<on_line_update>) to underline urls and 212Uses per-line display filtering (C<on_line_update>) to underline urls and
170make them clickable. When middle-clicked, the program specified in the 213make them clickable. When middle-clicked, the program specified in the
171resource C<urlLauncher> (default C<x-www-browser>) will be started with 214resource C<urlLauncher> (default C<x-www-browser>) will be started with
172the URL as first argument. 215the URL as first argument.
173 216
217=item xim-onthespot
218
219This (experimental) perl extension implements OnTheSpot editing. It does
220not work perfectly, and some input methods don't seem to work well with
221OnTheSpot editing in general, but it seems to work at leats for SCIM and
222kinput2.
223
224You enable it by specifying this extension and a preedit style of
225C<OnTheSpot>, i.e.:
226
227 @@RXVT_NAME@@ -pt OnTheSpot -pe xim-onthespot
228
174=item automove-background 229=item automove-background
175 230
176This is basically a one-line extension that dynamically changes the background pixmap offset 231This is basically a one-line extension that dynamically changes the background pixmap offset
177to the window position, in effect creating the same effect as pseudo transparency with 232to the window position, in effect creating the same effect as pseudo transparency with
178a custom pixmap. No scaling is supported in this mode. Exmaple: 233a custom pixmap. No scaling is supported in this mode. Exmaple:
187 242
188=item digital-clock 243=item digital-clock
189 244
190Displays a digital clock using the built-in overlay. 245Displays a digital clock using the built-in overlay.
191 246
192=item example-refresh-hooks 247=item remote-clipboard
193 248
194Displays a very simple digital clock in the upper right corner of the 249Somewhat of a misnomer, this extension adds two menu entries to the
195window. Illustrates overwriting the refresh callbacks to create your own 250selection popup that allows one ti run external commands to store the
196overlays or changes. 251selection somewhere and fetch it again.
252
253We use it to implement a "distributed selection mechanism", which just
254means that one command uploads the file to a remote server, and another
255reads it.
256
257The commands can be set using the C<URxvt.remote-selection.store> and
258C<URxvt.remote-selection.fetch> resources. The first should read the
259selection to store from STDIN (always in UTF-8), the second should provide
260the selection data on STDOUT (also in UTF-8).
261
262The defaults (which are likely useless to you) use rsh and cat:
263
264 URxvt.remote-selection.store: rsh ruth 'cat >/tmp/distributed-selection'
265 URxvt.remote-selection.fetch: rsh ruth 'cat /tmp/distributed-selection'
197 266
198=item selection-pastebin 267=item selection-pastebin
199 268
200This is a little rarely useful extension that Uploads the selection as 269This is a little rarely useful extension that Uploads the selection as
201textfile to a remote site (or does other things). (The implementation is 270textfile to a remote site (or does other things). (The implementation is
221After a successful upload the selection will be replaced by the text given 290After a successful upload the selection will be replaced by the text given
222in the C<selection-pastebin-url> resource (again, the % is the placeholder 291in the C<selection-pastebin-url> resource (again, the % is the placeholder
223for the filename): 292for the filename):
224 293
225 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/% 294 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/%
295
296=item example-refresh-hooks
297
298Displays a very simple digital clock in the upper right corner of the
299window. Illustrates overwriting the refresh callbacks to create your own
300overlays or changes.
226 301
227=back 302=back
228 303
229=head1 API DOCUMENTATION 304=head1 API DOCUMENTATION
230 305
327Called at the very end of initialisation of a new terminal, just before 402Called at the very end of initialisation of a new terminal, just before
328trying to map (display) the toplevel and returning to the mainloop. 403trying to map (display) the toplevel and returning to the mainloop.
329 404
330=item on_destroy $term 405=item on_destroy $term
331 406
332Called whenever something tries to destroy terminal, before doing anything 407Called whenever something tries to destroy terminal, when the terminal is
333yet. If this hook returns true, then destruction is skipped, but this is 408still fully functional (not for long, though).
334rarely a good idea.
335 409
336=item on_reset $term 410=item on_reset $term
337 411
338Called after the screen is "reset" for any reason, such as resizing or 412Called after the screen is "reset" for any reason, such as resizing or
339control sequences. Here is where you can react on changes to size-related 413control sequences. Here is where you can react on changes to size-related
441 515
442=item on_refresh_end $term 516=item on_refresh_end $term
443 517
444Called just after the screen gets redrawn. See C<on_refresh_begin>. 518Called just after the screen gets redrawn. See C<on_refresh_begin>.
445 519
446=item on_keyboard_command $term, $string 520=item on_user_command $term, $string
447 521
448Called whenever the user presses a key combination that has a 522Called whenever the a user-configured event is being activated (e.g. via
449C<perl:string> action bound to it (see description of the B<keysym> 523a C<perl:string> action bound to a key, see description of the B<keysym>
450resource in the @@RXVT_NAME@@(1) manpage). 524resource in the @@RXVT_NAME@@(1) manpage).
525
526The event is simply the action string. This interface is assumed to change
527slightly in the future.
451 528
452=item on_x_event $term, $event 529=item on_x_event $term, $event
453 530
454Called on every X event received on the vt window (and possibly other 531Called on every X event received on the vt window (and possibly other
455windows). Should only be used as a last resort. Most event structure 532windows). Should only be used as a last resort. Most event structure
465Called wheneever the window loses keyboard focus, before rxvt-unicode does 542Called wheneever the window loses keyboard focus, before rxvt-unicode does
466focus out processing. 543focus out processing.
467 544
468=item on_configure_notify $term, $event 545=item on_configure_notify $term, $event
469 546
547=item on_property_notify $term, $event
548
470=item on_key_press $term, $event, $keysym, $octets 549=item on_key_press $term, $event, $keysym, $octets
471 550
472=item on_key_release $term, $event, $keysym 551=item on_key_release $term, $event, $keysym
473 552
474=item on_button_press $term, $event 553=item on_button_press $term, $event
483 562
484Called whenever the corresponding X event is received for the terminal If 563Called whenever the corresponding X event is received for the terminal If
485the hook returns true, then the even will be ignored by rxvt-unicode. 564the hook returns true, then the even will be ignored by rxvt-unicode.
486 565
487The event is a hash with most values as named by Xlib (see the XEvent 566The event is a hash with most values as named by Xlib (see the XEvent
488manpage), with the additional members C<row> and C<col>, which are the row 567manpage), with the additional members C<row> and C<col>, which are the
489and column under the mouse cursor. 568(real, not screen-based) row and column under the mouse cursor.
490 569
491C<on_key_press> additionally receives the string rxvt-unicode would 570C<on_key_press> additionally receives the string rxvt-unicode would
492output, if any, in locale-specific encoding. 571output, if any, in locale-specific encoding.
493 572
494subwindow. 573subwindow.
525our $LIBDIR; 604our $LIBDIR;
526our $RESNAME; 605our $RESNAME;
527our $RESCLASS; 606our $RESCLASS;
528our $RXVTNAME; 607our $RXVTNAME;
529 608
609our $NOCHAR = chr 0xffff;
610
530=head2 Variables in the C<urxvt> Package 611=head2 Variables in the C<urxvt> Package
531 612
532=over 4 613=over 4
533 614
534=item $urxvt::LIBDIR 615=item $urxvt::LIBDIR
585 666
586Using this function has the advantage that its output ends up in the 667Using this function has the advantage that its output ends up in the
587correct place, e.g. on stderr of the connecting urxvtc client. 668correct place, e.g. on stderr of the connecting urxvtc client.
588 669
589Messages have a size limit of 1023 bytes currently. 670Messages have a size limit of 1023 bytes currently.
671
672=item @terms = urxvt::termlist
673
674Returns all urxvt::term objects that exist in this process, regardless of
675wether they are started, being destroyed etc., so be careful. Only term
676objects that have perl extensions attached will be returned (because there
677is no urxvt::term objet associated with others).
590 678
591=item $time = urxvt::NOW 679=item $time = urxvt::NOW
592 680
593Returns the "current time" (as per the event loop). 681Returns the "current time" (as per the event loop).
594 682
680 unless $msg =~ /\n$/; 768 unless $msg =~ /\n$/;
681 urxvt::warn ($msg); 769 urxvt::warn ($msg);
682 }; 770 };
683} 771}
684 772
773no warnings 'utf8';
774
685my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 775my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
686 776
687sub verbose { 777sub verbose {
688 my ($level, $msg) = @_; 778 my ($level, $msg) = @_;
689 warn "$msg\n" if $level <= $verbosity; 779 warn "$msg\n" if $level <= $verbosity;
705 795
706 open my $fh, "<:raw", $path 796 open my $fh, "<:raw", $path
707 or die "$path: $!"; 797 or die "$path: $!";
708 798
709 my $source = 799 my $source =
710 "package $pkg; use strict; use utf8;\n" 800 "package $pkg; use strict; use utf8; no warnings 'utf8';\n"
711 . "#line 1 \"$path\"\n{\n" 801 . "#line 1 \"$path\"\n{\n"
712 . (do { local $/; <$fh> }) 802 . (do { local $/; <$fh> })
713 . "\n};\n1"; 803 . "\n};\n1";
714 804
715 eval $source 805 eval $source
740 $TERM->register_package ($_) for @pkg; 830 $TERM->register_package ($_) for @pkg;
741 } 831 }
742 832
743 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 833 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
744 if ($_ eq "default") { 834 if ($_ eq "default") {
745 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 835 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
746 } elsif (/^-(.*)$/) { 836 } elsif (/^-(.*)$/) {
747 delete $ext_arg{$1}; 837 delete $ext_arg{$1};
748 } elsif (/^([^<]+)<(.*)>$/) { 838 } elsif (/^([^<]+)<(.*)>$/) {
749 push @{ $ext_arg{$1} }, $2; 839 push @{ $ext_arg{$1} }, $2;
750 } else { 840 } else {
973hash which defines the environment of the new terminal. 1063hash which defines the environment of the new terminal.
974 1064
975Croaks (and probably outputs an error message) if the new instance 1065Croaks (and probably outputs an error message) if the new instance
976couldn't be created. Returns C<undef> if the new instance didn't 1066couldn't be created. Returns C<undef> if the new instance didn't
977initialise perl, and the terminal object otherwise. The C<init> and 1067initialise perl, and the terminal object otherwise. The C<init> and
978C<start> hooks will be called during this call. 1068C<start> hooks will be called before this call returns, and are free to
1069refer to global data (which is race free).
979 1070
980=cut 1071=cut
981 1072
982sub new { 1073sub new {
983 my ($class, $env, @args) = @_; 1074 my ($class, $env, @args) = @_;
984 1075
1076 $env or Carp::croak "environment hash missing in call to urxvt::term->new";
1077 @args or Carp::croak "name argument missing in call to urxvt::term->new";
1078
985 _new ([ map "$_=$env->{$_}", keys %$env ], @args); 1079 _new ([ map "$_=$env->{$_}", keys %$env ], \@args);
986} 1080}
987 1081
988=item $term->destroy 1082=item $term->destroy
989 1083
990Destroy the terminal object (close the window, free resources 1084Destroy the terminal object (close the window, free resources
1247 1341
1248Normally its not a good idea to use this function, as programs might be 1342Normally its not a good idea to use this function, as programs might be
1249confused by changes in cursor position or scrolling. Its useful inside a 1343confused by changes in cursor position or scrolling. Its useful inside a
1250C<on_add_lines> hook, though. 1344C<on_add_lines> hook, though.
1251 1345
1346=item $term->scr_change_screen ($screen)
1347
1348Switch to given screen - 0 primary, 1 secondary.
1349
1252=item $term->cmd_parse ($octets) 1350=item $term->cmd_parse ($octets)
1253 1351
1254Similar to C<scr_add_lines>, but the argument must be in the 1352Similar to C<scr_add_lines>, but the argument must be in the
1255locale-specific encoding of the terminal and can contain command sequences 1353locale-specific encoding of the terminal and can contain command sequences
1256(escape codes) that will be interpreted. 1354(escape codes) that will be interpreted.
1265 1363
1266Replaces the event mask of the pty watcher by the given event mask. Can 1364Replaces the event mask of the pty watcher by the given event mask. Can
1267be used to suppress input and output handling to the pty/tty. See the 1365be used to suppress input and output handling to the pty/tty. See the
1268description of C<< urxvt::timer->events >>. Make sure to always restore 1366description of C<< urxvt::timer->events >>. Make sure to always restore
1269the previous value. 1367the previous value.
1368
1369=item $fd = $term->pty_fd
1370
1371Returns the master file descriptor for the pty in use, or C<-1> if no pty
1372is used.
1270 1373
1271=item $windowid = $term->parent 1374=item $windowid = $term->parent
1272 1375
1273Return the window id of the toplevel window. 1376Return the window id of the toplevel window.
1274 1377
1339=item $modifiermask = $term->ModNumLockMask 1442=item $modifiermask = $term->ModNumLockMask
1340 1443
1341Return the modifier masks corresponding to the "ISO Level 3 Shift" (often 1444Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
1342AltGr), the meta key (often Alt) and the num lock key, if applicable. 1445AltGr), the meta key (often Alt) and the num lock key, if applicable.
1343 1446
1447=item $screen = $term->current_screen
1448
1449Returns the currently displayed screen (0 primary, 1 secondary).
1450
1451=item $cursor_is_hidden = $term->hidden_cursor
1452
1453Returns wether the cursor is currently hidden or not.
1454
1344=item $view_start = $term->view_start ([$newvalue]) 1455=item $view_start = $term->view_start ([$newvalue])
1345 1456
1346Returns the row number of the topmost displayed line. Maximum value is 1457Returns the row number of the topmost displayed line. Maximum value is
1347C<0>, which displays the normal terminal contents. Lower values scroll 1458C<0>, which displays the normal terminal contents. Lower values scroll
1348this many lines into the scrollback buffer. 1459this many lines into the scrollback buffer.
1367line, starting at column C<$start_col> (default C<0>), which is useful 1478line, starting at column C<$start_col> (default C<0>), which is useful
1368to replace only parts of a line. The font index in the rendition will 1479to replace only parts of a line. The font index in the rendition will
1369automatically be updated. 1480automatically be updated.
1370 1481
1371C<$text> is in a special encoding: tabs and wide characters that use more 1482C<$text> is in a special encoding: tabs and wide characters that use more
1372than one cell when displayed are padded with urxvt::NOCHAR characters 1483than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1373(C<chr 65535>). Characters with combining characters and other characters 1484characters. Characters with combining characters and other characters that
1374that do not fit into the normal tetx encoding will be replaced with 1485do not fit into the normal tetx encoding will be replaced with characters
1375characters in the private use area. 1486in the private use area.
1376 1487
1377You have to obey this encoding when changing text. The advantage is 1488You have to obey this encoding when changing text. The advantage is
1378that C<substr> and similar functions work on screen cells and not on 1489that C<substr> and similar functions work on screen cells and not on
1379characters. 1490characters.
1380 1491
1527=item $string = $term->special_decode $text 1638=item $string = $term->special_decode $text
1528 1639
1529Converts rxvt-unicodes text reprsentation into a perl string. See 1640Converts rxvt-unicodes text reprsentation into a perl string. See
1530C<< $term->ROW_t >> for details. 1641C<< $term->ROW_t >> for details.
1531 1642
1532=item $success = $term->grab_button ($button, $modifiermask) 1643=item $success = $term->grab_button ($button, $modifiermask[, $window = $term->vt])
1533 1644
1645=item $term->ungrab_button ($button, $modifiermask[, $window = $term->vt])
1646
1534Registers a synchronous button grab. See the XGrabButton manpage. 1647Register/unregister a synchronous button grab. See the XGrabButton
1648manpage.
1535 1649
1536=item $success = $term->grab ($eventtime[, $sync]) 1650=item $success = $term->grab ($eventtime[, $sync])
1537 1651
1538Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1652Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1539synchronous (C<$sync> is true). Also remembers the grab timestampe. 1653synchronous (C<$sync> is true). Also remembers the grab timestampe.
1554=item $term->ungrab 1668=item $term->ungrab
1555 1669
1556Calls XUngrab for the most recent grab. Is called automatically on 1670Calls XUngrab for the most recent grab. Is called automatically on
1557evaluation errors, as it is better to lose the grab in the error case as 1671evaluation errors, as it is better to lose the grab in the error case as
1558the session. 1672the session.
1673
1674=item $atom = $term->XInternAtom ($atom_name[, $only_if_exists])
1675
1676=item $atom_name = $term->XGetAtomName ($atom)
1677
1678=item @atoms = $term->XListProperties ($window)
1679
1680=item ($type,$format,$octets) = $term->XGetWindowProperty ($window, $property)
1681
1682=item $term->XChangeWindowProperty ($window, $property, $type, $format, $octets)
1683
1684=item $term->XDeleteProperty ($window, $property)
1685
1686=item $window = $term->DefaultRootWindow
1687
1688=item $term->XReparentWindow ($window, $parent, [$x, $y])
1689
1690=item $term->XMapWindow ($window)
1691
1692=item $term->XUnmapWindow ($window)
1693
1694=item $term->XMoveResizeWindow ($window, $x, $y, $width, $height)
1695
1696=item ($x, $y, $child_window) = $term->XTranslateCoordinates ($src, $dst, $x, $y)
1697
1698=item $term->XChangeInput ($window, $add_events[, $del_events])
1699
1700Various X or X-related functions. The C<$term> object only serves as
1701the source of the display, otherwise those functions map more-or-less
1702directory onto the X functions of the same name.
1559 1703
1560=back 1704=back
1561 1705
1562=cut 1706=cut
1563 1707

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines