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.78 by root, Wed Jan 11 01:01:52 2006 UTC vs.
Revision 1.154 by root, Sat Jun 2 06:43:02 2007 UTC

17 17
18 @@RXVT_NAME@@ --perl-lib $HOME -pe grab_test 18 @@RXVT_NAME@@ --perl-lib $HOME -pe grab_test
19 19
20=head1 DESCRIPTION 20=head1 DESCRIPTION
21 21
22Everytime a terminal object gets created, extension scripts specified via 22Every time a terminal object gets created, extension scripts specified via
23the C<perl> resource are loaded and associated with it. 23the C<perl> resource are loaded and associated with it.
24 24
25Scripts are compiled in a 'use strict' and 'use utf8' environment, and 25Scripts are compiled in a 'use strict' and 'use utf8' environment, and
26thus must be encoded as UTF-8. 26thus must be encoded as UTF-8.
27 27
28Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where 28Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where
29scripts will be shared (but not enabled) for all terminals. 29scripts will be shared (but not enabled) for all terminals.
30 30
31You can disable the embedded perl interpreter by setting both "perl-ext"
32and "perl-ext-common" resources to the empty string.
33
31=head1 PREPACKAGED EXTENSIONS 34=head1 PREPACKAGED EXTENSIONS
32 35
33This section describes the extensions delivered with this release. You can 36This section describes the extensions delivered with this release. You can
34find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>. 37find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>.
35 38
36You can activate them like this: 39You can activate them like this:
37 40
38 @@RXVT_NAME@@ -pe <extensionname> 41 @@RXVT_NAME@@ -pe <extensionname>
39 42
43Or by adding them to the resource for extensions loaded by default:
44
45 URxvt.perl-ext-common: default,automove-background,selection-autotransform
46
40=over 4 47=over 4
41 48
42=item selection (enabled by default) 49=item selection (enabled by default)
43 50
44(More) intelligent selection. This extension tries to be more intelligent 51(More) intelligent selection. This extension tries to be more intelligent
45when the user extends selections (double-click). Right now, it tries to 52when the user extends selections (double-click and further clicks). Right
46select urls and complete shell-quoted arguments, which is very convenient, 53now, it tries to select words, urls and complete shell-quoted
47too, if your F<ls> supports C<--quoting-style=shell>. 54arguments, which is very convenient, too, if your F<ls> supports
55C<--quoting-style=shell>.
48 56
57A double-click usually selects the word under the cursor, further clicks
58will enlarge the selection.
59
60The selection works by trying to match a number of regexes and displaying
61them in increasing order of length. You can add your own regexes by
62specifying resources of the form:
63
64 URxvt.selection.pattern-0: perl-regex
65 URxvt.selection.pattern-1: perl-regex
66 ...
67
68The index number (0, 1...) must not have any holes, and each regex must
69contain at least one pair of capturing parentheses, which will be used for
70the match. For example, the following adds a regex that matches everything
71between two vertical bars:
72
73 URxvt.selection.pattern-0: \\|([^|]+)\\|
74
75Another example: Programs I use often output "absolute path: " at the
76beginning of a line when they process multiple files. The following
77pattern matches the filename (note, there is a single space at the very
78end):
79
80 URxvt.selection.pattern-0: ^(/[^:]+):\
81
82You can look at the source of the selection extension to see more
83interesting uses, such as parsing a line from beginning to end.
84
49It also offers the following bindable keyboard command: 85This extension also offers following bindable keyboard commands:
50 86
51=over 4 87=over 4
52 88
53=item rot13 89=item rot13
54 90
61=item option-popup (enabled by default) 97=item option-popup (enabled by default)
62 98
63Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at 99Binds a popup menu to Ctrl-Button2 that lets you toggle (some) options at
64runtime. 100runtime.
65 101
102Other extensions can extend this popup menu by pushing a code reference
103onto C<@{ $term->{option_popup_hook} }>, which gets called whenever the
104popup is being displayed.
105
106It's sole argument is the popup menu, which can be modified. It should
107either return nothing or a string, the initial boolean value and a code
108reference. The string will be used as button text and the code reference
109will be called when the toggle changes, with the new boolean value as
110first argument.
111
112The following will add an entry C<myoption> that changes
113C<$self->{myoption}>:
114
115 push @{ $self->{term}{option_popup_hook} }, sub {
116 ("my option" => $myoption, sub { $self->{myoption} = $_[0] })
117 };
118
66=item selection-popup (enabled by default) 119=item selection-popup (enabled by default)
67 120
68Binds a popup menu to Ctrl-Button3 that lets you convert the selection 121Binds a popup menu to Ctrl-Button3 that lets you convert the selection
69text into various other formats/action (such as uri unescaping, perl 122text into various other formats/action (such as uri unescaping, perl
70evalution, web-browser starting etc.), depending on content. 123evaluation, web-browser starting etc.), depending on content.
124
125Other extensions can extend this popup menu by pushing a code reference
126onto C<@{ $term->{selection_popup_hook} }>, which gets called whenever the
127popup is being displayed.
128
129It's sole argument is the popup menu, which can be modified. The selection
130is in C<$_>, which can be used to decide whether to add something or not.
131It should either return nothing or a string and a code reference. The
132string will be used as button text and the code reference will be called
133when the button gets activated and should transform C<$_>.
134
135The following will add an entry C<a to b> that transforms all C<a>s in
136the selection to C<b>s, but only if the selection currently contains any
137C<a>s:
138
139 push @{ $self->{term}{selection_popup_hook} }, sub {
140 /a/ ? ("a to be" => sub { s/a/b/g }
141 : ()
142 };
71 143
72=item searchable-scrollback<hotkey> (enabled by default) 144=item searchable-scrollback<hotkey> (enabled by default)
73 145
74Adds regex search functionality to the scrollback buffer, triggered 146Adds regex search functionality to the scrollback buffer, triggered
75by a hotkey (default: C<M-s>). When in search mode, normal terminal 147by a hotkey (default: C<M-s>). While in search mode, normal terminal
76input/output is suspended. 148input/output is suspended and a regex is displayed at the bottom of the
149screen.
77 150
78C</> starts an incremental regex search, C<n> searches further, C<p> or 151Inputting 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 152search. 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> 153search upwards/downwards in the scrollback buffer, C<End> jumps to the
81returns to the original position. 154bottom. C<Escape> leaves search mode and returns to the point where search
155was started, while C<Enter> or C<Return> stay at the current position and
156additionally stores the first match in the current line into the primary
157selection.
82 158
83=item digital-clock 159The regex defaults to "(?i)", resulting in a case-insensitive search. To
160get a case-sensitive search you can delete this prefix using C<BackSpace>
161or simply use an uppercase character which removes the "(?i)" prefix.
84 162
85Displays a digital clock using the built-in overlay. 163See L<perlre> for more info about perl regular expression syntax.
86 164
87=item mark-urls 165=item readline (enabled by default)
88 166
167A support package that tries to make editing with readline easier. At
168the moment, it reacts to clicking shift-left mouse button by trying to
169move the text cursor to this position. It does so by generating as many
170cursor-left or cursor-right keypresses as required (the this only works
171for programs that correctly support wide characters).
172
173To avoid too many false positives, this is only done when:
174
175=over 4
176
177=item - the tty is in ICANON state.
178
179=item - the text cursor is visible.
180
181=item - the primary screen is currently being displayed.
182
183=item - the mouse is on the same (multi-row-) line as the text cursor.
184
185=back
186
187The normal selection mechanism isn't disabled, so quick successive clicks
188might interfere with selection creation in harmless ways.
189
190=item selection-autotransform
191
192This selection allows you to do automatic transforms on a selection
193whenever a selection is made.
194
195It works by specifying perl snippets (most useful is a single C<s///>
196operator) that modify C<$_> as resources:
197
198 URxvt.selection-autotransform.0: transform
199 URxvt.selection-autotransform.1: transform
200 ...
201
202For example, the following will transform selections of the form
203C<filename:number>, often seen in compiler messages, into C<vi +$filename
204$word>:
205
206 URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
207
208And this example matches the same,but replaces it with vi-commands you can
209paste directly into your (vi :) editor:
210
211 URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/
212
213Of course, this can be modified to suit your needs and your editor :)
214
215To expand the example above to typical perl error messages ("XXX at
216FILENAME line YYY."), you need a slightly more elaborate solution:
217
218 URxvt.selection.pattern-0: ( at .*? line \\d+[,.])
219 URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
220
221The first line tells the selection code to treat the unchanging part of
222every error message as a selection pattern, and the second line transforms
223the message into vi commands to load the file.
224
225=item tabbed
226
227This transforms the terminal into a tabbar with additional terminals, that
228is, it implements what is commonly referred to as "tabbed terminal". The topmost line
229displays a "[NEW]" button, which, when clicked, will add a new tab, followed by one
230button per tab.
231
232Clicking a button will activate that tab. Pressing B<Shift-Left> and
233B<Shift-Right> will switch to the tab left or right of the current one,
234while B<Shift-Down> creates a new tab.
235
236The tabbar itself can be configured similarly to a normal terminal, but
237with a resource class of C<URxvt.tabbed>. In addition, it supports the
238following four resources (shown with defaults):
239
240 URxvt.tabbed.tabbar-fg: <colour-index, default 3>
241 URxvt.tabbed.tabbar-bg: <colour-index, default 0>
242 URxvt.tabbed.tab-fg: <colour-index, default 0>
243 URxvt.tabbed.tab-bg: <colour-index, default 1>
244
245See I<COLOR AND GRAPHICS> in the @@RXVT_NAME@@(1) manpage for valid
246indices.
247
248=item matcher
249
89Uses per-line display filtering (C<on_line_update>) to underline urls. 250Uses per-line display filtering (C<on_line_update>) to underline text
251matching a certain pattern and make it clickable. When clicked with the
252mouse button specified in the C<matcher.button> resource (default 2, or
253middle), the program specified in the C<matcher.launcher> resource
254(default, the C<urlLauncher> resource, C<sensible-browser>) will be started
255with the matched text as first argument. The default configuration is
256suitable for matching URLs and launching a web browser, like the
257former "mark-urls" extension.
258
259The default pattern to match URLs can be overridden with the
260C<matcher.pattern.0> resource, and additional patterns can be specified
261with numbered patterns, in a manner similar to the "selection" extension.
262The launcher can also be overridden on a per-pattern basis.
263
264Example configuration:
265
266 URxvt.perl-ext: default,matcher
267 URxvt.urlLauncher: sensible-browser
268 URxvt.keysym.C-Delete: perl:matcher
269 URxvt.matcher.button: 1
270 URxvt.matcher.pattern.1: \\bwww\\.[\\w-]+\\.[\\w./?&@#-]*[\\w/-]
271 URxvt.matcher.pattern.2: \\B(/\\S+?):(\\d+)(?=:|$)
272 URxvt.matcher.launcher.2: gvim +$2 $1
273
274=item xim-onthespot
275
276This (experimental) perl extension implements OnTheSpot editing. It does
277not work perfectly, and some input methods don't seem to work well with
278OnTheSpot editing in general, but it seems to work at leats for SCIM and
279kinput2.
280
281You enable it by specifying this extension and a preedit style of
282C<OnTheSpot>, i.e.:
283
284 @@RXVT_NAME@@ -pt OnTheSpot -pe xim-onthespot
285
286=item kuake<hotkey>
287
288A very primitive quake-console-like extension. It was inspired by a
289description of how the programs C<kuake> and C<yakuake> work: Whenever the
290user presses a global accelerator key (by default C<F10>), the terminal
291will show or hide itself. Another press of the accelerator key will hide
292or show it again.
293
294Initially, the window will not be shown when using this extension.
295
296This is useful if you need a single terminal thats not using any desktop
297space most of the time but is quickly available at the press of a key.
298
299The accelerator key is grabbed regardless of any modifiers, so this
300extension will actually grab a physical key just for this function.
301
302If you want a quake-like animation, tell your window manager to do so
303(fvwm can do it).
304
305=item automove-background
306
307This is basically a very small extension that dynamically changes the
308background pixmap offset to the window position, in effect creating the
309same effect as pseudo transparency with a custom pixmap. No scaling is
310supported in this mode. Example:
311
312 @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background
313
314L<http://wiki.archlinux.org/index.php/Perl_Background_Rotation/Extensions>
315shows how this extension can be used to implement an automatically blurred
316transparent background.
90 317
91=item block-graphics-to-ascii 318=item block-graphics-to-ascii
92 319
93A not very useful example of filtering all text output to the terminal, 320A not very useful example of filtering all text output to the terminal
94by replacing all line-drawing characters (U+2500 .. U+259F) by a 321by replacing all line-drawing characters (U+2500 .. U+259F) by a
95similar-looking ascii character. 322similar-looking ascii character.
323
324=item digital-clock
325
326Displays a digital clock using the built-in overlay.
327
328=item remote-clipboard
329
330Somewhat of a misnomer, this extension adds two menu entries to the
331selection popup that allows one ti run external commands to store the
332selection somewhere and fetch it again.
333
334We use it to implement a "distributed selection mechanism", which just
335means that one command uploads the file to a remote server, and another
336reads it.
337
338The commands can be set using the C<URxvt.remote-selection.store> and
339C<URxvt.remote-selection.fetch> resources. The first should read the
340selection to store from STDIN (always in UTF-8), the second should provide
341the selection data on STDOUT (also in UTF-8).
342
343The defaults (which are likely useless to you) use rsh and cat:
344
345 URxvt.remote-selection.store: rsh ruth 'cat >/tmp/distributed-selection'
346 URxvt.remote-selection.fetch: rsh ruth 'cat /tmp/distributed-selection'
347
348=item selection-pastebin
349
350This is a little rarely useful extension that Uploads the selection as
351textfile to a remote site (or does other things). (The implementation is
352not currently secure for use in a multiuser environment as it writes to
353F</tmp> directly.).
354
355It listens to the C<selection-pastebin:remote-pastebin> keyboard command,
356i.e.
357
358 URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin
359
360Pressing this combination runs a command with C<%> replaced by the name of
361the textfile. This command can be set via a resource:
362
363 URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/.
364
365And the default is likely not useful to anybody but the few people around
366here :)
367
368The name of the textfile is the hex encoded md5 sum of the selection, so
369the same content should lead to the same filename.
370
371After a successful upload the selection will be replaced by the text given
372in the C<selection-pastebin-url> resource (again, the % is the placeholder
373for the filename):
374
375 URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/%
376
377I<Note to xrdb users:> xrdb uses the C preprocessor, which might interpret
378the double C</> characters as comment start. Use C<\057\057> instead,
379which works regardless of wether xrdb is used to parse the resource file
380or not.
96 381
97=item example-refresh-hooks 382=item example-refresh-hooks
98 383
99Displays a very simple digital clock in the upper right corner of the 384Displays a very simple digital clock in the upper right corner of the
100window. Illustrates overwriting the refresh callbacks to create your own 385window. Illustrates overwriting the refresh callbacks to create your own
140 425
141=back 426=back
142 427
143=head2 Extension Objects 428=head2 Extension Objects
144 429
145Very perl extension is a perl class. A separate perl object is created 430Every perl extension is a perl class. A separate perl object is created
146for each terminal and each extension and passed as the first parameter to 431for each terminal, and each terminal has its own set of extenion objects,
147hooks. So extensions can use their C<$self> object without having to think 432which are passed as the first parameter to hooks. So extensions can use
148about other extensions, with the exception of methods and members that 433their C<$self> object without having to think about clashes with other
434extensions or other terminals, with the exception of methods and members
149begin with an underscore character C<_>: these are reserved for internal 435that begin with an underscore character C<_>: these are reserved for
150use. 436internal use.
151 437
152Although it isn't a C<urxvt::term> object, you can call all methods of the 438Although it isn't a C<urxvt::term> object, you can call all methods of the
153C<urxvt::term> class on this object. 439C<urxvt::term> class on this object.
154 440
155It has the following methods and data members: 441It has the following methods and data members:
176=head2 Hooks 462=head2 Hooks
177 463
178The following subroutines can be declared in extension files, and will be 464The following subroutines can be declared in extension files, and will be
179called whenever the relevant event happens. 465called whenever the relevant event happens.
180 466
181The first argument passed to them is an extension oject as described in 467The first argument passed to them is an extension object as described in
182the in the C<Extension Objects> section. 468the in the C<Extension Objects> section.
183 469
184B<All> of these hooks must return a boolean value. If it is true, then the 470B<All> of these hooks must return a boolean value. If any of the called
185event counts as being I<consumed>, and the invocation of other hooks is 471hooks returns true, then the event counts as being I<consumed>, and the
186skipped, and the relevant action might not be carried out by the C++ code. 472relevant action might not be carried out by the C++ code.
187 473
188I<< When in doubt, return a false value (preferably C<()>). >> 474I<< When in doubt, return a false value (preferably C<()>). >>
189 475
190=over 4 476=over 4
191 477
192=item on_init $term 478=item on_init $term
193 479
194Called after a new terminal object has been initialized, but before 480Called after a new terminal object has been initialized, but before
195windows are created or the command gets run. Most methods are unsafe to 481windows are created or the command gets run. Most methods are unsafe to
196call or deliver senseless data, as terminal size and other characteristics 482call or deliver senseless data, as terminal size and other characteristics
197have not yet been determined. You can safely query and change resources, 483have not yet been determined. You can safely query and change resources
198though. 484and options, though. For many purposes the C<on_start> hook is a better
485place.
486
487=item on_start $term
488
489Called at the very end of initialisation of a new terminal, just before
490trying to map (display) the toplevel and returning to the main loop.
491
492=item on_destroy $term
493
494Called whenever something tries to destroy terminal, when the terminal is
495still fully functional (not for long, though).
199 496
200=item on_reset $term 497=item on_reset $term
201 498
202Called after the screen is "reset" for any reason, such as resizing or 499Called after the screen is "reset" for any reason, such as resizing or
203control sequences. Here is where you can react on changes to size-related 500control sequences. Here is where you can react on changes to size-related
204variables. 501variables.
205 502
206=item on_start $term 503=item on_child_start $term, $pid
207 504
208Called at the very end of initialisation of a new terminal, just before 505Called just after the child process has been C<fork>ed.
209returning to the mainloop. 506
507=item on_child_exit $term, $status
508
509Called just after the child process has exited. C<$status> is the status
510from C<waitpid>.
210 511
211=item on_sel_make $term, $eventtime 512=item on_sel_make $term, $eventtime
212 513
213Called whenever a selection has been made by the user, but before the 514Called whenever a selection has been made by the user, but before the
214selection text is copied, so changes to the beginning, end or type of the 515selection text is copied, so changes to the beginning, end or type of the
221 522
222Called whenever a selection has been copied, but before the selection is 523Called whenever a selection has been copied, but before the selection is
223requested from the server. The selection text can be queried and changed 524requested from the server. The selection text can be queried and changed
224by calling C<< $term->selection >>. 525by calling C<< $term->selection >>.
225 526
226Returning a true value aborts selection grabbing. It will still be hilighted. 527Returning a true value aborts selection grabbing. It will still be highlighted.
227 528
228=item on_sel_extend $term 529=item on_sel_extend $term
229 530
230Called whenever the user tries to extend the selection (e.g. with a double 531Called whenever the user tries to extend the selection (e.g. with a double
231click) and is either supposed to return false (normal operation), or 532click) and is either supposed to return false (normal operation), or
232should extend the selection itelf and return true to suppress the built-in 533should extend the selection itself and return true to suppress the built-in
233processing. 534processing. This can happen multiple times, as long as the callback
535returns true, it will be called on every further click by the user and is
536supposed to enlarge the selection more and more, if possible.
234 537
235See the F<selection> example extension. 538See the F<selection> example extension.
236 539
237=item on_view_change $term, $offset 540=item on_view_change $term, $offset
238 541
239Called whenever the view offset changes, i..e the user or program 542Called whenever the view offset changes, i.e. the user or program
240scrolls. Offset C<0> means display the normal terminal, positive values 543scrolls. Offset C<0> means display the normal terminal, positive values
241show this many lines of scrollback. 544show this many lines of scrollback.
242 545
243=item on_scroll_back $term, $lines, $saved 546=item on_scroll_back $term, $lines, $saved
244 547
248 551
249It is called before lines are scrolled out (so rows 0 .. min ($lines - 1, 552It is called before lines are scrolled out (so rows 0 .. min ($lines - 1,
250$nrow - 1) represent the lines to be scrolled out). C<$saved> is the total 553$nrow - 1) represent the lines to be scrolled out). C<$saved> is the total
251number of lines that will be in the scrollback buffer. 554number of lines that will be in the scrollback buffer.
252 555
556=item on_osc_seq $term, $op, $args
557
558Called on every OSC sequence and can be used to suppress it or modify its
559behaviour. The default should be to return an empty list. A true value
560suppresses execution of the request completely. Make sure you don't get
561confused by recursive invocations when you output an osc sequence within
562this callback.
563
564C<on_osc_seq_perl> should be used for new behaviour.
565
253=item on_osc_seq $term, $string 566=item on_osc_seq_perl $term, $string
254 567
255Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC = 568Called whenever the B<ESC ] 777 ; string ST> command sequence (OSC =
256operating system command) is processed. Cursor position and other state 569operating system command) is processed. Cursor position and other state
257information is up-to-date when this happens. For interoperability, the 570information is up-to-date when this happens. For interoperability, the
258string should start with the extension name and a colon, to distinguish 571string should start with the extension name and a colon, to distinguish
259it from commands for other extensions, and this might be enforced in the 572it from commands for other extensions, and this might be enforced in the
260future. 573future.
261 574
262Be careful not ever to trust (in a security sense) the data you receive, 575Be careful not ever to trust (in a security sense) the data you receive,
263as its source can not easily be controleld (e-mail content, messages from 576as its source can not easily be controlled (e-mail content, messages from
264other users on the same system etc.). 577other users on the same system etc.).
265 578
266=item on_add_lines $term, $string 579=item on_add_lines $term, $string
267 580
268Called whenever text is about to be output, with the text as argument. You 581Called whenever text is about to be output, with the text as argument. You
299 612
300=item on_refresh_end $term 613=item on_refresh_end $term
301 614
302Called just after the screen gets redrawn. See C<on_refresh_begin>. 615Called just after the screen gets redrawn. See C<on_refresh_begin>.
303 616
304=item on_keyboard_command $term, $string 617=item on_user_command $term, $string
305 618
306Called whenever the user presses a key combination that has a 619Called whenever a user-configured event is being activated (e.g. via
307C<perl:string> action bound to it (see description of the B<keysym> 620a C<perl:string> action bound to a key, see description of the B<keysym>
308resource in the @@RXVT_NAME@@(1) manpage). 621resource in the @@RXVT_NAME@@(1) manpage).
622
623The event is simply the action string. This interface is assumed to change
624slightly in the future.
625
626=item on_resize_all_windows $tern, $new_width, $new_height
627
628Called just after the new window size has been calculated, but before
629windows are actually being resized or hints are being set. If this hook
630returns TRUE, setting of the window hints is being skipped.
631
632=item on_x_event $term, $event
633
634Called on every X event received on the vt window (and possibly other
635windows). Should only be used as a last resort. Most event structure
636members are not passed.
637
638=item on_root_event $term, $event
639
640Like C<on_x_event>, but is called for events on the root window.
309 641
310=item on_focus_in $term 642=item on_focus_in $term
311 643
312Called whenever the window gets the keyboard focus, before rxvt-unicode 644Called whenever the window gets the keyboard focus, before rxvt-unicode
313does focus in processing. 645does focus in processing.
314 646
315=item on_focus_out $term 647=item on_focus_out $term
316 648
317Called wheneever the window loses keyboard focus, before rxvt-unicode does 649Called whenever the window loses keyboard focus, before rxvt-unicode does
318focus out processing. 650focus out processing.
651
652=item on_configure_notify $term, $event
653
654=item on_property_notify $term, $event
319 655
320=item on_key_press $term, $event, $keysym, $octets 656=item on_key_press $term, $event, $keysym, $octets
321 657
322=item on_key_release $term, $event, $keysym 658=item on_key_release $term, $event, $keysym
323 659
333 669
334Called whenever the corresponding X event is received for the terminal If 670Called whenever the corresponding X event is received for the terminal If
335the hook returns true, then the even will be ignored by rxvt-unicode. 671the hook returns true, then the even will be ignored by rxvt-unicode.
336 672
337The event is a hash with most values as named by Xlib (see the XEvent 673The event is a hash with most values as named by Xlib (see the XEvent
338manpage), with the additional members C<row> and C<col>, which are the row 674manpage), with the additional members C<row> and C<col>, which are the
339and column under the mouse cursor. 675(real, not screen-based) row and column under the mouse cursor.
340 676
341C<on_key_press> additionally receives the string rxvt-unicode would 677C<on_key_press> additionally receives the string rxvt-unicode would
342output, if any, in locale-specific encoding. 678output, if any, in locale-specific encoding.
343 679
344subwindow. 680subwindow.
681
682=item on_client_message $term, $event
683
684=item on_wm_protocols $term, $event
685
686=item on_wm_delete_window $term, $event
687
688Called when various types of ClientMessage events are received (all with
689format=32, WM_PROTOCOLS or WM_PROTOCOLS:WM_DELETE_WINDOW).
345 690
346=back 691=back
347 692
348=cut 693=cut
349 694
355use Scalar::Util (); 700use Scalar::Util ();
356use List::Util (); 701use List::Util ();
357 702
358our $VERSION = 1; 703our $VERSION = 1;
359our $TERM; 704our $TERM;
705our @TERM_INIT;
706our @TERM_EXT;
360our @HOOKNAME; 707our @HOOKNAME;
361our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME; 708our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
362our %OPTION; 709our %OPTION;
363 710
364our $LIBDIR; 711our $LIBDIR;
365our $RESNAME; 712our $RESNAME;
366our $RESCLASS; 713our $RESCLASS;
367our $RXVTNAME; 714our $RXVTNAME;
368 715
716our $NOCHAR = chr 0xffff;
717
369=head2 Variables in the C<urxvt> Package 718=head2 Variables in the C<urxvt> Package
370 719
371=over 4 720=over 4
372 721
373=item $urxvt::LIBDIR 722=item $urxvt::LIBDIR
385 734
386=item $urxvt::TERM 735=item $urxvt::TERM
387 736
388The current terminal. This variable stores the current C<urxvt::term> 737The current terminal. This variable stores the current C<urxvt::term>
389object, whenever a callback/hook is executing. 738object, whenever a callback/hook is executing.
739
740=item @urxvt::TERM_INIT
741
742All code references in this array will be called as methods of the next newly
743created C<urxvt::term> object (during the C<on_init> phase). The array
744gets cleared before the code references that were in it are being executed,
745so references can push themselves onto it again if they so desire.
746
747This complements to the perl-eval command line option, but gets executed
748first.
749
750=item @urxvt::TERM_EXT
751
752Works similar to C<@TERM_INIT>, but contains perl package/class names, which
753get registered as normal extensions after calling the hooks in C<@TERM_INIT>
754but before other extensions. Gets cleared just like C<@TERM_INIT>.
390 755
391=back 756=back
392 757
393=head2 Functions in the C<urxvt> Package 758=head2 Functions in the C<urxvt> Package
394 759
409Using this function has the advantage that its output ends up in the 774Using this function has the advantage that its output ends up in the
410correct place, e.g. on stderr of the connecting urxvtc client. 775correct place, e.g. on stderr of the connecting urxvtc client.
411 776
412Messages have a size limit of 1023 bytes currently. 777Messages have a size limit of 1023 bytes currently.
413 778
414=item $is_safe = urxvt::safe 779=item @terms = urxvt::termlist
415 780
416Returns true when it is safe to do potentially unsafe things, such as 781Returns all urxvt::term objects that exist in this process, regardless of
417evaluating perl code specified by the user. This is true when urxvt was 782whether they are started, being destroyed etc., so be careful. Only term
418started setuid or setgid. 783objects that have perl extensions attached will be returned (because there
784is no urxvt::term objet associated with others).
419 785
420=item $time = urxvt::NOW 786=item $time = urxvt::NOW
421 787
422Returns the "current time" (as per the event loop). 788Returns the "current time" (as per the event loop).
423 789
424=item urxvt::CurrentTime 790=item urxvt::CurrentTime
425 791
426=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask, 792=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
427Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask, 793Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
428Button4Mask, Button5Mask, AnyModifier 794Button4Mask, Button5Mask, AnyModifier
795
796=item urxvt::NoEventMask, KeyPressMask, KeyReleaseMask,
797ButtonPressMask, ButtonReleaseMask, EnterWindowMask, LeaveWindowMask,
798PointerMotionMask, PointerMotionHintMask, Button1MotionMask, Button2MotionMask,
799Button3MotionMask, Button4MotionMask, Button5MotionMask, ButtonMotionMask,
800KeymapStateMask, ExposureMask, VisibilityChangeMask, StructureNotifyMask,
801ResizeRedirectMask, SubstructureNotifyMask, SubstructureRedirectMask,
802FocusChangeMask, PropertyChangeMask, ColormapChangeMask, OwnerGrabButtonMask
803
804=item urxvt::KeyPress, KeyRelease, ButtonPress, ButtonRelease, MotionNotify,
805EnterNotify, LeaveNotify, FocusIn, FocusOut, KeymapNotify, Expose,
806GraphicsExpose, NoExpose, VisibilityNotify, CreateNotify, DestroyNotify,
807UnmapNotify, MapNotify, MapRequest, ReparentNotify, ConfigureNotify,
808ConfigureRequest, GravityNotify, ResizeRequest, CirculateNotify,
809CirculateRequest, PropertyNotify, SelectionClear, SelectionRequest,
810SelectionNotify, ColormapNotify, ClientMessage, MappingNotify
429 811
430Various constants for use in X calls and event processing. 812Various constants for use in X calls and event processing.
431 813
432=back 814=back
433 815
466 848
467=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour 849=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour
468 850
469=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour 851=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour
470 852
853=item $rend = urxvt::SET_COLOR $rend, $new_fg, $new_bg
854
471Replace the foreground/background colour in the rendition mask with the 855Replace the foreground/background colour in the rendition mask with the
472specified one. 856specified one.
473 857
474=item $value = urxvt::GET_CUSTOM $rend 858=item $value = urxvt::GET_CUSTOM $rend
475 859
484=back 868=back
485 869
486=cut 870=cut
487 871
488BEGIN { 872BEGIN {
489 urxvt->bootstrap;
490
491 # overwrite perl's warn 873 # overwrite perl's warn
492 *CORE::GLOBAL::warn = sub { 874 *CORE::GLOBAL::warn = sub {
493 my $msg = join "", @_; 875 my $msg = join "", @_;
494 $msg .= "\n" 876 $msg .= "\n"
495 unless $msg =~ /\n$/; 877 unless $msg =~ /\n$/;
496 urxvt::warn ($msg); 878 urxvt::warn ($msg);
497 }; 879 };
498
499 delete $ENV{IFS};
500 delete $ENV{CDPATH};
501 delete $ENV{BASH_ENV};
502 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
503} 880}
504 881
505my @hook_count; 882no warnings 'utf8';
883
506my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; 884my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
507 885
508sub verbose { 886sub verbose {
509 my ($level, $msg) = @_; 887 my ($level, $msg) = @_;
510 warn "$msg\n" if $level <= $verbosity; 888 warn "$msg\n" if $level <= $verbosity;
511} 889}
512 890
513my $extension_pkg = "extension0000";
514my %extension_pkg; 891my %extension_pkg;
515 892
516# load a single script into its own package, once only 893# load a single script into its own package, once only
517sub extension_package($) { 894sub extension_package($) {
518 my ($path) = @_; 895 my ($path) = @_;
519 896
520 $extension_pkg{$path} ||= do { 897 $extension_pkg{$path} ||= do {
521 my $pkg = "urxvt::" . ($extension_pkg++); 898 $path =~ /([^\/\\]+)$/;
899 my $pkg = $1;
900 $pkg =~ s/[^[:word:]]/_/g;
901 $pkg = "urxvt::ext::$pkg";
522 902
523 verbose 3, "loading extension '$path' into package '$pkg'"; 903 verbose 3, "loading extension '$path' into package '$pkg'";
524 904
525 open my $fh, "<:raw", $path 905 open my $fh, "<:raw", $path
526 or die "$path: $!"; 906 or die "$path: $!";
527 907
528 my $source = untaint 908 my $source =
529 "package $pkg; use strict; use utf8;\n" 909 "package $pkg; use strict; use utf8; no warnings 'utf8';\n"
530 . "use base urxvt::term::extension::;\n"
531 . "#line 1 \"$path\"\n{\n" 910 . "#line 1 \"$path\"\n{\n"
532 . (do { local $/; <$fh> }) 911 . (do { local $/; <$fh> })
533 . "\n};\n1"; 912 . "\n};\n1";
534 913
535 eval $source 914 eval $source
549 if ($htype == 0) { # INIT 928 if ($htype == 0) { # INIT
550 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 929 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
551 930
552 my %ext_arg; 931 my %ext_arg;
553 932
933 {
934 my @init = @TERM_INIT;
935 @TERM_INIT = ();
936 $_->($TERM) for @init;
937 my @pkg = @TERM_EXT;
938 @TERM_EXT = ();
939 $TERM->register_package ($_) for @pkg;
940 }
941
554 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 942 for (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
555 if ($_ eq "default") { 943 if ($_ eq "default") {
556 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback); 944 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline);
557 } elsif (/^-(.*)$/) { 945 } elsif (/^-(.*)$/) {
558 delete $ext_arg{$1}; 946 delete $ext_arg{$1};
559 } elsif (/^([^<]+)<(.*)>$/) { 947 } elsif (/^([^<]+)<(.*)>$/) {
560 push @{ $ext_arg{$1} }, $2; 948 push @{ $ext_arg{$1} }, $2;
561 } else { 949 } else {
562 $ext_arg{$_} ||= []; 950 $ext_arg{$_} ||= [];
563 } 951 }
564 } 952 }
565 953
566 while (my ($ext, $argv) = each %ext_arg) { 954 for my $ext (sort keys %ext_arg) {
567 my @files = grep -f $_, map "$_/$ext", @dirs; 955 my @files = grep -f $_, map "$_/$ext", @dirs;
568 956
569 if (@files) { 957 if (@files) {
570 $TERM->register_package (extension_package $files[0], $argv); 958 $TERM->register_package (extension_package $files[0], $ext_arg{$ext});
571 } else { 959 } else {
572 warn "perl extension '$ext' not found in perl library search path\n"; 960 warn "perl extension '$ext' not found in perl library search path\n";
573 } 961 }
574 } 962 }
575 963
581 969
582 if (my $cb = $TERM->{_hook}[$htype]) { 970 if (my $cb = $TERM->{_hook}[$htype]) {
583 verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")" 971 verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $TERM, @_) . ")"
584 if $verbosity >= 10; 972 if $verbosity >= 10;
585 973
586 keys %$cb; 974 for my $pkg (keys %$cb) {
587
588 while (my ($pkg, $cb) = each %$cb) {
589 $retval = eval { $cb->($TERM->{_pkg}{$pkg}, @_) } 975 my $retval_ = eval { $cb->{$pkg}->($TERM->{_pkg}{$pkg}, @_) };
590 and last; 976 $retval ||= $retval_;
591 977
592 if ($@) { 978 if ($@) {
593 $TERM->ungrab; # better to lose the grab than the session 979 $TERM->ungrab; # better to lose the grab than the session
594 warn $@; 980 warn $@;
595 } 981 }
596 } 982 }
983
984 verbose 11, "$HOOKNAME[$htype] returning <$retval>"
985 if $verbosity >= 11;
597 } 986 }
598 987
599 if ($htype == 1) { # DESTROY 988 if ($htype == 1) { # DESTROY
600 if (my $hook = delete $TERM->{_hook}) {
601 for my $htype (0..$#$hook) {
602 $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} }
603 or set_should_invoke $htype, 0;
604 }
605 }
606
607 # clear package objects 989 # clear package objects
608 %$_ = () for values %{ $TERM->{_pkg} }; 990 %$_ = () for values %{ $TERM->{_pkg} };
609 991
610 # clear package 992 # clear package
611 %$TERM = (); 993 %$TERM = ();
612 } 994 }
613 995
614 $retval 996 $retval
997}
998
999sub SET_COLOR($$$) {
1000 SET_BGCOLOR (SET_FGCOLOR ($_[0], $_[1]), $_[2])
1001}
1002
1003sub rend2mask {
1004 no strict 'refs';
1005 my ($str, $mask) = (@_, 0);
1006 my %color = ( fg => undef, bg => undef );
1007 my @failed;
1008 for my $spec ( split /\s+/, $str ) {
1009 if ( $spec =~ /^([fb]g)[_:-]?(\d+)/i ) {
1010 $color{lc($1)} = $2;
1011 } else {
1012 my $neg = $spec =~ s/^[-^]//;
1013 unless ( exists &{"RS_$spec"} ) {
1014 push @failed, $spec;
1015 next;
1016 }
1017 my $cur = &{"RS_$spec"};
1018 if ( $neg ) {
1019 $mask &= ~$cur;
1020 } else {
1021 $mask |= $cur;
1022 }
1023 }
1024 }
1025 ($mask, @color{qw(fg bg)}, \@failed)
615} 1026}
616 1027
617# urxvt::term::extension 1028# urxvt::term::extension
618 1029
619package urxvt::term::extension; 1030package urxvt::term::extension;
625 while (my ($name, $cb) = each %hook) { 1036 while (my ($name, $cb) = each %hook) {
626 my $htype = $HOOKTYPE{uc $name}; 1037 my $htype = $HOOKTYPE{uc $name};
627 defined $htype 1038 defined $htype
628 or Carp::croak "unsupported hook type '$name'"; 1039 or Carp::croak "unsupported hook type '$name'";
629 1040
1041 $self->set_should_invoke ($htype, +1)
630 unless (exists $self->{term}{_hook}[$htype]{$pkg}) { 1042 unless exists $self->{term}{_hook}[$htype]{$pkg};
631 $hook_count[$htype]++
632 or urxvt::set_should_invoke $htype, 1;
633 }
634 1043
635 $self->{term}{_hook}[$htype]{$pkg} = $cb; 1044 $self->{term}{_hook}[$htype]{$pkg} = $cb;
636 } 1045 }
637} 1046}
638 1047
643 for my $name (@hook) { 1052 for my $name (@hook) {
644 my $htype = $HOOKTYPE{uc $name}; 1053 my $htype = $HOOKTYPE{uc $name};
645 defined $htype 1054 defined $htype
646 or Carp::croak "unsupported hook type '$name'"; 1055 or Carp::croak "unsupported hook type '$name'";
647 1056
1057 $self->set_should_invoke ($htype, -1)
648 if (delete $self->{term}{_hook}[$htype]{$pkg}) { 1058 if delete $self->{term}{_hook}[$htype]{$pkg};
649 --$hook_count[$htype]
650 or urxvt::set_should_invoke $htype, 0;
651 }
652 } 1059 }
653} 1060}
654 1061
655our $AUTOLOAD; 1062our $AUTOLOAD;
656 1063
736sub DESTROY { 1143sub DESTROY {
737 $_[0][1]->stop; 1144 $_[0][1]->stop;
738} 1145}
739 1146
740sub condvar { 1147sub condvar {
741 bless \my $flag, urxvt::anyevent::condvar:: 1148 bless \my $flag, urxvt::anyevent::
742} 1149}
743 1150
744sub urxvt::anyevent::condvar::broadcast { 1151sub broadcast {
745 ${$_[0]}++; 1152 ${$_[0]}++;
746} 1153}
747 1154
748sub urxvt::anyevent::condvar::wait { 1155sub wait {
749 unless (${$_[0]}) { 1156 unless (${$_[0]}) {
750 Carp::croak "AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API"; 1157 Carp::croak "AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API";
751 } 1158 }
1159}
1160
1161sub one_event {
1162 Carp::croak "AnyEvent->one_event blocking wait unsupported in urxvt, use a non-blocking API";
752} 1163}
753 1164
754package urxvt::term; 1165package urxvt::term;
755 1166
756=head2 The C<urxvt::term> Class 1167=head2 The C<urxvt::term> Class
761 1172
762# find on_xxx subs in the package and register them 1173# find on_xxx subs in the package and register them
763# as hooks 1174# as hooks
764sub register_package { 1175sub register_package {
765 my ($self, $pkg, $argv) = @_; 1176 my ($self, $pkg, $argv) = @_;
1177
1178 no strict 'refs';
1179
1180 urxvt::verbose 6, "register package $pkg to $self";
1181
1182 @{"$pkg\::ISA"} = urxvt::term::extension::;
766 1183
767 my $proxy = bless { 1184 my $proxy = bless {
768 _pkg => $pkg, 1185 _pkg => $pkg,
769 argv => $argv, 1186 argv => $argv,
770 }, $pkg; 1187 }, $pkg;
786hash which defines the environment of the new terminal. 1203hash which defines the environment of the new terminal.
787 1204
788Croaks (and probably outputs an error message) if the new instance 1205Croaks (and probably outputs an error message) if the new instance
789couldn't be created. Returns C<undef> if the new instance didn't 1206couldn't be created. Returns C<undef> if the new instance didn't
790initialise perl, and the terminal object otherwise. The C<init> and 1207initialise perl, and the terminal object otherwise. The C<init> and
791C<start> hooks will be called during this call. 1208C<start> hooks will be called before this call returns, and are free to
1209refer to global data (which is race free).
792 1210
793=cut 1211=cut
794 1212
795sub new { 1213sub new {
796 my ($class, $env, @args) = @_; 1214 my ($class, $env, @args) = @_;
797 1215
1216 $env or Carp::croak "environment hash missing in call to urxvt::term->new";
1217 @args or Carp::croak "name argument missing in call to urxvt::term->new";
1218
798 _new ([ map "$_=$env->{$_}", keys %$env ], @args); 1219 _new ([ map "$_=$env->{$_}", keys %$env ], \@args);
799} 1220}
800 1221
801=item $term->destroy 1222=item $term->destroy
802 1223
803Destroy the terminal object (close the window, free resources 1224Destroy the terminal object (close the window, free resources
804etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event 1225etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event
805watchers (timers, io watchers) are still active. 1226watchers (timers, io watchers) are still active.
806 1227
1228=item $term->exec_async ($cmd[, @args])
1229
1230Works like the combination of the C<fork>/C<exec> builtins, which executes
1231("starts") programs in the background. This function takes care of setting
1232the user environment before exec'ing the command (e.g. C<PATH>) and should
1233be preferred over explicit calls to C<exec> or C<system>.
1234
1235Returns the pid of the subprocess or C<undef> on error.
1236
1237=cut
1238
1239sub exec_async {
1240 my $self = shift;
1241
1242 my $pid = fork;
1243
1244 return $pid
1245 if !defined $pid or $pid;
1246
1247 %ENV = %{ $self->env };
1248
1249 exec @_;
1250 urxvt::_exit 255;
1251}
1252
807=item $isset = $term->option ($optval[, $set]) 1253=item $isset = $term->option ($optval[, $set])
808 1254
809Returns true if the option specified by C<$optval> is enabled, and 1255Returns true if the option specified by C<$optval> is enabled, and
810optionally change it. All option values are stored by name in the hash 1256optionally change it. All option values are stored by name in the hash
811C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash. 1257C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
812 1258
813Here is a a likely non-exhaustive list of option names, please see the 1259Here is a likely non-exhaustive list of option names, please see the
814source file F</src/optinc.h> to see the actual list: 1260source file F</src/optinc.h> to see the actual list:
815 1261
816 borderLess console cursorBlink cursorUnderline hold iconic insecure 1262 borderLess console cursorBlink cursorUnderline hold iconic insecure
817 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage 1263 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
818 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating 1264 override-redirect pastableTabs pointerBlank reverseVideo scrollBar
819 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer 1265 scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput
820 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent 1266 scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs
821 tripleclickwords utmpInhibit visualBell 1267 transparent tripleclickwords utmpInhibit visualBell
822 1268
823=item $value = $term->resource ($name[, $newval]) 1269=item $value = $term->resource ($name[, $newval])
824 1270
825Returns the current resource value associated with a given name and 1271Returns the current resource value associated with a given name and
826optionally sets a new value. Setting values is most useful in the C<init> 1272optionally sets a new value. Setting values is most useful in the C<init>
835likely change). 1281likely change).
836 1282
837Please note that resource strings will currently only be freed when the 1283Please note that resource strings will currently only be freed when the
838terminal is destroyed, so changing options frequently will eat memory. 1284terminal is destroyed, so changing options frequently will eat memory.
839 1285
840Here is a a likely non-exhaustive list of resource names, not all of which 1286Here is a likely non-exhaustive list of resource names, not all of which
841are supported in every build, please see the source file F</src/rsinc.h> 1287are supported in every build, please see the source file F</src/rsinc.h>
842to see the actual list: 1288to see the actual list:
843 1289
844 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 1290 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
845 borderLess color cursorBlink cursorUnderline cutchars delete_key 1291 borderLess color cursorBlink cursorUnderline cutchars delete_key
846 display_name embed ext_bwidth fade font geometry hold iconName 1292 display_name embed ext_bwidth fade font geometry hold iconName
847 imFont imLocale inputMethod insecure int_bwidth intensityStyles 1293 imFont imLocale inputMethod insecure int_bwidth intensityStyles
848 italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier 1294 italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier
849 mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2 1295 mouseWheelScrollPage name override_redirect pastableTabs path perl_eval
850 perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd 1296 perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
851 reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating 1297 preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
852 scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput 1298 scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
853 scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle 1299 scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
854 shade term_name title transparent transparent_all tripleclickwords 1300 secondaryScreen secondaryScroll selectstyle shade term_name title
855 utmpInhibit visualBell 1301 transient_for transparent transparent_all tripleclickwords utmpInhibit
1302 visualBell
856 1303
857=cut 1304=cut
858 1305
859sub resource($$;$) { 1306sub resource($$;$) {
860 my ($self, $name) = (shift, shift); 1307 my ($self, $name) = (shift, shift);
861 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 1308 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
862 &urxvt::term::_resource 1309 &urxvt::term::_resource
863} 1310}
864 1311
1312=item $value = $term->x_resource ($pattern)
1313
1314Returns the X-Resource for the given pattern, excluding the program or
1315class name, i.e. C<< $term->x_resource ("boldFont") >> should return the
1316same value as used by this instance of rxvt-unicode. Returns C<undef> if no
1317resource with that pattern exists.
1318
1319This method should only be called during the C<on_start> hook, as there is
1320only one resource database per display, and later invocations might return
1321the wrong resources.
1322
865=item $success = $term->parse_keysym ($keysym_spec, $command_string) 1323=item $success = $term->parse_keysym ($keysym_spec, $command_string)
866 1324
867Adds a keymap translation exactly as specified via a resource. See the 1325Adds a keymap translation exactly as specified via a resource. See the
868C<keysym> resource in the @@RXVT_NAME@@(1) manpage. 1326C<keysym> resource in the @@RXVT_NAME@@(1) manpage.
869 1327
884=item ($row, $col) = $term->selection_end ([$row, $col]) 1342=item ($row, $col) = $term->selection_end ([$row, $col])
885 1343
886Return the current values of the selection mark, begin or end positions, 1344Return the current values of the selection mark, begin or end positions,
887and optionally set them to new values. 1345and optionally set them to new values.
888 1346
1347=item $term->selection_make ($eventtime[, $rectangular])
1348
1349Tries to make a selection as set by C<selection_beg> and
1350C<selection_end>. If C<$rectangular> is true (default: false), a
1351rectangular selection will be made. This is the prefered function to make
1352a selection.
1353
889=item $success = $term->selection_grab ($eventtime) 1354=item $success = $term->selection_grab ($eventtime)
890 1355
891Try to request the primary selection from the server (for example, as set 1356Try to request the primary selection text from the server (for example, as
892by the next method). 1357set by the next method). No visual feedback will be given. This function
1358is mostly useful from within C<on_sel_grab> hooks.
893 1359
894=item $oldtext = $term->selection ([$newtext]) 1360=item $oldtext = $term->selection ([$newtext])
895 1361
896Return the current selection text and optionally replace it by C<$newtext>. 1362Return the current selection text and optionally replace it by C<$newtext>.
897 1363
990Convert the given locale-encoded octets into a perl string. 1456Convert the given locale-encoded octets into a perl string.
991 1457
992=item $term->scr_xor_span ($beg_row, $beg_col, $end_row, $end_col[, $rstyle]) 1458=item $term->scr_xor_span ($beg_row, $beg_col, $end_row, $end_col[, $rstyle])
993 1459
994XORs the rendition values in the given span with the provided value 1460XORs the rendition values in the given span with the provided value
995(default: C<RS_RVid>). Useful in refresh hooks to provide effects similar 1461(default: C<RS_RVid>), which I<MUST NOT> contain font styles. Useful in
996to the selection. 1462refresh hooks to provide effects similar to the selection.
997 1463
998=item $term->scr_xor_rect ($beg_row, $beg_col, $end_row, $end_col[, $rstyle1[, $rstyle2]]) 1464=item $term->scr_xor_rect ($beg_row, $beg_col, $end_row, $end_col[, $rstyle1[, $rstyle2]])
999 1465
1000Similar to C<scr_xor_span>, but xors a rectangle instead. Trailing 1466Similar to C<scr_xor_span>, but xors a rectangle instead. Trailing
1001whitespace will additionally be xored with the C<$rstyle2>, which defaults 1467whitespace will additionally be xored with the C<$rstyle2>, which defaults
1002to C<RS_RVid | RS_Uline>, which removes reverse video again and underlines 1468to C<RS_RVid | RS_Uline>, which removes reverse video again and underlines
1003it instead. 1469it instead. Both styles I<MUST NOT> contain font styles.
1004 1470
1005=item $term->scr_bell 1471=item $term->scr_bell
1006 1472
1007Ring the bell! 1473Ring the bell!
1008 1474
1015 1481
1016Normally its not a good idea to use this function, as programs might be 1482Normally its not a good idea to use this function, as programs might be
1017confused by changes in cursor position or scrolling. Its useful inside a 1483confused by changes in cursor position or scrolling. Its useful inside a
1018C<on_add_lines> hook, though. 1484C<on_add_lines> hook, though.
1019 1485
1486=item $term->scr_change_screen ($screen)
1487
1488Switch to given screen - 0 primary, 1 secondary.
1489
1020=item $term->cmd_parse ($octets) 1490=item $term->cmd_parse ($octets)
1021 1491
1022Similar to C<scr_add_lines>, but the argument must be in the 1492Similar to C<scr_add_lines>, but the argument must be in the
1023locale-specific encoding of the terminal and can contain command sequences 1493locale-specific encoding of the terminal and can contain command sequences
1024(escape codes) that will be interpreted. 1494(escape codes) that will be interpreted.
1034Replaces the event mask of the pty watcher by the given event mask. Can 1504Replaces the event mask of the pty watcher by the given event mask. Can
1035be used to suppress input and output handling to the pty/tty. See the 1505be used to suppress input and output handling to the pty/tty. See the
1036description of C<< urxvt::timer->events >>. Make sure to always restore 1506description of C<< urxvt::timer->events >>. Make sure to always restore
1037the previous value. 1507the previous value.
1038 1508
1509=item $fd = $term->pty_fd
1510
1511Returns the master file descriptor for the pty in use, or C<-1> if no pty
1512is used.
1513
1039=item $windowid = $term->parent 1514=item $windowid = $term->parent
1040 1515
1041Return the window id of the toplevel window. 1516Return the window id of the toplevel window.
1042 1517
1043=item $windowid = $term->vt 1518=item $windowid = $term->vt
1044 1519
1045Return the window id of the terminal window. 1520Return the window id of the terminal window.
1046 1521
1522=item $term->vt_emask_add ($x_event_mask)
1523
1524Adds the specified events to the vt event mask. Useful e.g. when you want
1525to receive pointer events all the times:
1526
1527 $term->vt_emask_add (urxvt::PointerMotionMask);
1528
1529=item $term->focus_in
1530
1531=item $term->focus_out
1532
1533=item $term->key_press ($state, $keycode[, $time])
1534
1535=item $term->key_release ($state, $keycode[, $time])
1536
1537Deliver various fake events to to terminal.
1538
1047=item $window_width = $term->width 1539=item $window_width = $term->width
1048 1540
1049=item $window_height = $term->height 1541=item $window_height = $term->height
1050 1542
1051=item $font_width = $term->fwidth 1543=item $font_width = $term->fwidth
1064 1556
1065=item $max_scrollback = $term->saveLines 1557=item $max_scrollback = $term->saveLines
1066 1558
1067=item $nrow_plus_saveLines = $term->total_rows 1559=item $nrow_plus_saveLines = $term->total_rows
1068 1560
1069=item $lines_in_scrollback = $term->nsaved 1561=item $topmost_scrollback_row = $term->top_row
1070 1562
1071Return various integers describing terminal characteristics. 1563Return various integers describing terminal characteristics.
1072 1564
1073=item $x_display = $term->display_id 1565=item $x_display = $term->display_id
1074 1566
1081=item $env = $term->env 1573=item $env = $term->env
1082 1574
1083Returns a copy of the environment in effect for the terminal as a hashref 1575Returns a copy of the environment in effect for the terminal as a hashref
1084similar to C<\%ENV>. 1576similar to C<\%ENV>.
1085 1577
1578=item @envv = $term->envv
1579
1580Returns the environment as array of strings of the form C<VAR=VALUE>.
1581
1582=item @argv = $term->argv
1583
1584Return the argument vector as this terminal, similar to @ARGV, but
1585includes the program name as first element.
1586
1086=cut 1587=cut
1087 1588
1088sub env { 1589sub env {
1089 if (my $env = $_[0]->_env) {
1090 +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), @$env } 1590 +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), $_[0]->envv }
1091 } else {
1092 +{ %ENV }
1093 }
1094} 1591}
1095 1592
1096=item $modifiermask = $term->ModLevel3Mask 1593=item $modifiermask = $term->ModLevel3Mask
1097 1594
1098=item $modifiermask = $term->ModMetaMask 1595=item $modifiermask = $term->ModMetaMask
1100=item $modifiermask = $term->ModNumLockMask 1597=item $modifiermask = $term->ModNumLockMask
1101 1598
1102Return the modifier masks corresponding to the "ISO Level 3 Shift" (often 1599Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
1103AltGr), the meta key (often Alt) and the num lock key, if applicable. 1600AltGr), the meta key (often Alt) and the num lock key, if applicable.
1104 1601
1602=item $screen = $term->current_screen
1603
1604Returns the currently displayed screen (0 primary, 1 secondary).
1605
1606=item $cursor_is_hidden = $term->hidden_cursor
1607
1608Returns whether the cursor is currently hidden or not.
1609
1105=item $view_start = $term->view_start ([$newvalue]) 1610=item $view_start = $term->view_start ([$newvalue])
1106 1611
1107Returns the negative row number of the topmost line. Minimum value is 1612Returns the row number of the topmost displayed line. Maximum value is
1108C<0>, which displays the normal terminal contents. Larger values scroll 1613C<0>, which displays the normal terminal contents. Lower values scroll
1109this many lines into the scrollback buffer. 1614this many lines into the scrollback buffer.
1110 1615
1111=item $term->want_refresh 1616=item $term->want_refresh
1112 1617
1113Requests a screen refresh. At the next opportunity, rxvt-unicode will 1618Requests a screen refresh. At the next opportunity, rxvt-unicode will
1128line, starting at column C<$start_col> (default C<0>), which is useful 1633line, starting at column C<$start_col> (default C<0>), which is useful
1129to replace only parts of a line. The font index in the rendition will 1634to replace only parts of a line. The font index in the rendition will
1130automatically be updated. 1635automatically be updated.
1131 1636
1132C<$text> is in a special encoding: tabs and wide characters that use more 1637C<$text> is in a special encoding: tabs and wide characters that use more
1133than one cell when displayed are padded with urxvt::NOCHAR characters 1638than one cell when displayed are padded with C<$urxvt::NOCHAR> (chr 65535)
1134(C<chr 65535>). Characters with combining characters and other characters 1639characters. Characters with combining characters and other characters that
1135that do not fit into the normal tetx encoding will be replaced with 1640do not fit into the normal tetx encoding will be replaced with characters
1136characters in the private use area. 1641in the private use area.
1137 1642
1138You have to obey this encoding when changing text. The advantage is 1643You have to obey this encoding when changing text. The advantage is
1139that C<substr> and similar functions work on screen cells and not on 1644that C<substr> and similar functions work on screen cells and not on
1140characters. 1645characters.
1141 1646
1192Return the row number of the first/last row of the line, respectively. 1697Return the row number of the first/last row of the line, respectively.
1193 1698
1194=item $offset = $line->offset_of ($row, $col) 1699=item $offset = $line->offset_of ($row, $col)
1195 1700
1196Returns the character offset of the given row|col pair within the logical 1701Returns the character offset of the given row|col pair within the logical
1197line. 1702line. Works for rows outside the line, too, and returns corresponding
1703offsets outside the string.
1198 1704
1199=item ($row, $col) = $line->coord_of ($offset) 1705=item ($row, $col) = $line->coord_of ($offset)
1200 1706
1201Translates a string offset into terminal coordinates again. 1707Translates a string offset into terminal coordinates again.
1202 1708
1284where one character corresponds to one screen cell. See 1790where one character corresponds to one screen cell. See
1285C<< $term->ROW_t >> for details. 1791C<< $term->ROW_t >> for details.
1286 1792
1287=item $string = $term->special_decode $text 1793=item $string = $term->special_decode $text
1288 1794
1289Converts rxvt-unicodes text reprsentation into a perl string. See 1795Converts rxvt-unicodes text representation into a perl string. See
1290C<< $term->ROW_t >> for details. 1796C<< $term->ROW_t >> for details.
1291 1797
1292=item $success = $term->grab_button ($button, $modifiermask) 1798=item $success = $term->grab_button ($button, $modifiermask[, $window = $term->vt])
1293 1799
1800=item $term->ungrab_button ($button, $modifiermask[, $window = $term->vt])
1801
1294Registers a synchronous button grab. See the XGrabButton manpage. 1802Register/unregister a synchronous button grab. See the XGrabButton
1803manpage.
1295 1804
1296=item $success = $term->grab ($eventtime[, $sync]) 1805=item $success = $term->grab ($eventtime[, $sync])
1297 1806
1298Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or 1807Calls XGrabPointer and XGrabKeyboard in asynchronous (default) or
1299synchronous (C<$sync> is true). Also remembers the grab timestampe. 1808synchronous (C<$sync> is true). Also remembers the grab timestamp.
1300 1809
1301=item $term->allow_events_async 1810=item $term->allow_events_async
1302 1811
1303Calls XAllowEvents with AsyncBoth for the most recent grab. 1812Calls XAllowEvents with AsyncBoth for the most recent grab.
1304 1813
1314=item $term->ungrab 1823=item $term->ungrab
1315 1824
1316Calls XUngrab for the most recent grab. Is called automatically on 1825Calls XUngrab for the most recent grab. Is called automatically on
1317evaluation errors, as it is better to lose the grab in the error case as 1826evaluation errors, as it is better to lose the grab in the error case as
1318the session. 1827the session.
1828
1829=item $atom = $term->XInternAtom ($atom_name[, $only_if_exists])
1830
1831=item $atom_name = $term->XGetAtomName ($atom)
1832
1833=item @atoms = $term->XListProperties ($window)
1834
1835=item ($type,$format,$octets) = $term->XGetWindowProperty ($window, $property)
1836
1837=item $term->XChangeWindowProperty ($window, $property, $type, $format, $octets)
1838
1839=item $term->XDeleteProperty ($window, $property)
1840
1841=item $window = $term->DefaultRootWindow
1842
1843=item $term->XReparentWindow ($window, $parent, [$x, $y])
1844
1845=item $term->XMapWindow ($window)
1846
1847=item $term->XUnmapWindow ($window)
1848
1849=item $term->XMoveResizeWindow ($window, $x, $y, $width, $height)
1850
1851=item ($x, $y, $child_window) = $term->XTranslateCoordinates ($src, $dst, $x, $y)
1852
1853=item $term->XChangeInput ($window, $add_events[, $del_events])
1854
1855Various X or X-related functions. The C<$term> object only serves as
1856the source of the display, otherwise those functions map more-or-less
1857directory onto the X functions of the same name.
1319 1858
1320=back 1859=back
1321 1860
1322=cut 1861=cut
1323 1862
1387 my ($self, $text, $cb) = @_; 1926 my ($self, $text, $cb) = @_;
1388 1927
1389 $self->add_item ({ type => "button", text => $text, activate => $cb}); 1928 $self->add_item ({ type => "button", text => $text, activate => $cb});
1390} 1929}
1391 1930
1392=item $popup->add_toggle ($text, $cb, $initial_value) 1931=item $popup->add_toggle ($text, $initial_value, $cb)
1393 1932
1394Adds a toggle/checkbox item to the popup. Teh callback gets called 1933Adds a toggle/checkbox item to the popup. The callback gets called
1395whenever it gets toggled, with a boolean indicating its value as its first 1934whenever it gets toggled, with a boolean indicating its new value as its
1396argument. 1935first argument.
1397 1936
1398=cut 1937=cut
1399 1938
1400sub add_toggle { 1939sub add_toggle {
1401 my ($self, $text, $cb, $value) = @_; 1940 my ($self, $text, $value, $cb) = @_;
1402 1941
1403 my $item; $item = { 1942 my $item; $item = {
1404 type => "button", 1943 type => "button",
1405 text => " $text", 1944 text => " $text",
1406 value => $value, 1945 value => $value,
1425 my $env = $self->{term}->env; 1964 my $env = $self->{term}->env;
1426 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. 1965 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
1427 delete $env->{LC_ALL}; 1966 delete $env->{LC_ALL};
1428 $env->{LC_CTYPE} = $self->{term}->locale; 1967 $env->{LC_CTYPE} = $self->{term}->locale;
1429 1968
1430 urxvt::term->new ($env, $self->{term}->resource ("name"), 1969 urxvt::term->new ($env, "popup",
1431 "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1970 "--perl-lib" => "", "--perl-ext-common" => "",
1971 "-pty-fd" => -1, "-sl" => 0,
1972 "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect",
1432 "--transient-for" => $self->{term}->parent, 1973 "--transient-for" => $self->{term}->parent,
1433 "-display" => $self->{term}->display_id, 1974 "-display" => $self->{term}->display_id,
1434 "-pe" => "urxvt-popup") 1975 "-pe" => "urxvt-popup")
1435 or die "unable to create popup window\n"; 1976 or die "unable to create popup window\n";
1436} 1977}
1441 delete $self->{term}{_destroy}{$self}; 1982 delete $self->{term}{_destroy}{$self};
1442 $self->{term}->ungrab; 1983 $self->{term}->ungrab;
1443} 1984}
1444 1985
1445=back 1986=back
1987
1988=cut
1989
1990package urxvt::watcher;
1446 1991
1447=head2 The C<urxvt::timer> Class 1992=head2 The C<urxvt::timer> Class
1448 1993
1449This class implements timer watchers/events. Time is represented as a 1994This class implements timer watchers/events. Time is represented as a
1450fractional number of seconds since the epoch. Example: 1995fractional number of seconds since the epoch. Example:
1488Start the timer. 2033Start the timer.
1489 2034
1490=item $timer = $timer->start ($tstamp) 2035=item $timer = $timer->start ($tstamp)
1491 2036
1492Set the event trigger time to C<$tstamp> and start the timer. 2037Set the event trigger time to C<$tstamp> and start the timer.
2038
2039=item $timer = $timer->after ($delay)
2040
2041Like C<start>, but sets the expiry timer to c<urxvt::NOW + $delay>.
1493 2042
1494=item $timer = $timer->stop 2043=item $timer = $timer->stop
1495 2044
1496Stop the timer. 2045Stop the timer.
1497 2046
1526Set the callback to be called when io events are triggered. C<$reventmask> 2075Set the callback to be called when io events are triggered. C<$reventmask>
1527is a bitset as described in the C<events> method. 2076is a bitset as described in the C<events> method.
1528 2077
1529=item $iow = $iow->fd ($fd) 2078=item $iow = $iow->fd ($fd)
1530 2079
1531Set the filedescriptor (not handle) to watch. 2080Set the file descriptor (not handle) to watch.
1532 2081
1533=item $iow = $iow->events ($eventmask) 2082=item $iow = $iow->events ($eventmask)
1534 2083
1535Set the event mask to watch. The only allowed values are 2084Set the event mask to watch. The only allowed values are
1536C<urxvt::EVENT_READ> and C<urxvt::EVENT_WRITE>, which might be ORed 2085C<urxvt::EVENT_READ> and C<urxvt::EVENT_WRITE>, which might be ORed
1540 2089
1541Start watching for requested events on the given handle. 2090Start watching for requested events on the given handle.
1542 2091
1543=item $iow = $iow->stop 2092=item $iow = $iow->stop
1544 2093
1545Stop watching for events on the given filehandle. 2094Stop watching for events on the given file handle.
2095
2096=back
2097
2098=head2 The C<urxvt::iw> Class
2099
2100This class implements idle watchers, that get called automatically when
2101the process is idle. They should return as fast as possible, after doing
2102some useful work.
2103
2104=over 4
2105
2106=item $iw = new urxvt::iw
2107
2108Create a new idle watcher object in stopped state.
2109
2110=item $iw = $iw->cb (sub { my ($iw) = @_; ... })
2111
2112Set the callback to be called when the watcher triggers.
2113
2114=item $timer = $timer->start
2115
2116Start the watcher.
2117
2118=item $timer = $timer->stop
2119
2120Stop the watcher.
2121
2122=back
2123
2124=head2 The C<urxvt::pw> Class
2125
2126This class implements process watchers. They create an event whenever a
2127process exits, after which they stop automatically.
2128
2129 my $pid = fork;
2130 ...
2131 $term->{pw} = urxvt::pw
2132 ->new
2133 ->start ($pid)
2134 ->cb (sub {
2135 my ($pw, $exit_status) = @_;
2136 ...
2137 });
2138
2139=over 4
2140
2141=item $pw = new urxvt::pw
2142
2143Create a new process watcher in stopped state.
2144
2145=item $pw = $pw->cb (sub { my ($pw, $exit_status) = @_; ... })
2146
2147Set the callback to be called when the timer triggers.
2148
2149=item $pw = $timer->start ($pid)
2150
2151Tells the watcher to start watching for process C<$pid>.
2152
2153=item $pw = $pw->stop
2154
2155Stop the watcher.
1546 2156
1547=back 2157=back
1548 2158
1549=head1 ENVIRONMENT 2159=head1 ENVIRONMENT
1550 2160
1557 2167
1558=item == 0 - fatal messages 2168=item == 0 - fatal messages
1559 2169
1560=item >= 3 - script loading and management 2170=item >= 3 - script loading and management
1561 2171
1562=item >=10 - all events received 2172=item >=10 - all called hooks
2173
2174=item >=11 - hook return values
1563 2175
1564=back 2176=back
1565 2177
1566=head1 AUTHOR 2178=head1 AUTHOR
1567 2179
1569 http://software.schmorp.de/pkg/rxvt-unicode 2181 http://software.schmorp.de/pkg/rxvt-unicode
1570 2182
1571=cut 2183=cut
1572 2184
15731 21851
2186
2187# vim: sw=3:

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines