… | |
… | |
89 | |
89 | |
90 | Binds a popup menu to Ctrl-Button3 that lets you convert the selection |
90 | Binds a popup menu to Ctrl-Button3 that lets you convert the selection |
91 | text into various other formats/action (such as uri unescaping, perl |
91 | text into various other formats/action (such as uri unescaping, perl |
92 | evalution, web-browser starting etc.), depending on content. |
92 | evalution, web-browser starting etc.), depending on content. |
93 | |
93 | |
94 | Other extensions can extend this popup menu by pushing a code reference onto |
94 | Other extensions can extend this popup menu by pushing a code reference |
95 | C<@urxvt::ext::selection_popup::hook>, that is called whenever the popup is displayed. |
95 | onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the |
|
|
96 | popup is displayed. |
96 | |
97 | |
97 | It's sole argument is the popup menu, which can be modified. The selection |
98 | It's sole argument is the popup menu, which can be modified. The selection |
98 | is in C<$_>, which can be used to decide wether to add something or not. |
99 | is in C<$_>, which can be used to decide wether to add something or not. |
99 | It should either return nothing or a string and a code reference. The |
100 | It should either return nothing or a string and a code reference. The |
100 | string will be used as button text and the code reference will be called |
101 | string will be used as button text and the code reference will be called |
… | |
… | |
102 | |
103 | |
103 | The following will add an entry C<a to b> that transforms all C<a>s in |
104 | The following will add an entry C<a to b> that transforms all C<a>s in |
104 | the selection to C<b>s, but only if the selection currently contains any |
105 | the selection to C<b>s, but only if the selection currently contains any |
105 | C<a>s: |
106 | C<a>s: |
106 | |
107 | |
107 | push urxvt::ext::selection_popup::hook, sub { |
108 | push @{ $self->{term}{selection_popup_hook} }, sub { |
108 | /a/ ? ("a to be" => sub { s/a/b/g } |
109 | /a/ ? ("a to be" => sub { s/a/b/g } |
109 | : () |
110 | : () |
110 | }; |
111 | }; |
111 | |
112 | |
112 | =item searchable-scrollback<hotkey> (enabled by default) |
113 | =item searchable-scrollback<hotkey> (enabled by default) |
… | |
… | |
143 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/ |
144 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/ |
144 | |
145 | |
145 | And this example matches the same,but replaces it with vi-commands you can |
146 | And this example matches the same,but replaces it with vi-commands you can |
146 | paste directly into your (vi :) editor: |
147 | paste directly into your (vi :) editor: |
147 | |
148 | |
148 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/\\x1b:e \\Q$1\\E\\x0d:$2\\x0d/ |
149 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/ |
149 | |
150 | |
150 | Of course, this can be modified to suit your needs and your editor :) |
151 | Of course, this can be modified to suit your needs and your editor :) |
151 | |
152 | |
152 | To expand the example above to typical perl error messages ("XXX at |
153 | To expand the example above to typical perl error messages ("XXX at |
153 | FILENAME line YYY."), you need a slightly more elaborate solution: |
154 | FILENAME line YYY."), you need a slightly more elaborate solution: |
154 | |
155 | |
155 | URxvt.selection.pattern-0: ( at .*? line \\d+\\.) |
156 | URxvt.selection.pattern-0: ( at .*? line \\d+[,.]) |
156 | URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)\\.$/\x1b:e \\Q$1\E\\x0d:$2\\x0d/ |
157 | URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/ |
157 | |
158 | |
158 | The first line tells the selection code to treat the unchanging part of |
159 | The first line tells the selection code to treat the unchanging part of |
159 | every error message as a selection pattern, and the second line transforms |
160 | every error message as a selection pattern, and the second line transforms |
160 | the message into vi commands to load the file. |
161 | the message into vi commands to load the file. |
161 | |
162 | |
… | |
… | |
324 | |
325 | |
325 | =item on_start $term |
326 | =item on_start $term |
326 | |
327 | |
327 | Called at the very end of initialisation of a new terminal, just before |
328 | Called at the very end of initialisation of a new terminal, just before |
328 | returning to the mainloop. |
329 | returning to the mainloop. |
|
|
330 | |
|
|
331 | =item on_child_start $term, $pid |
|
|
332 | |
|
|
333 | Called just after the child process has been C<fork>ed. |
|
|
334 | |
|
|
335 | =item on_child_exit $term, $status |
|
|
336 | |
|
|
337 | Called just after the child process has exited. C<$status> is the status |
|
|
338 | from C<waitpid>. |
329 | |
339 | |
330 | =item on_sel_make $term, $eventtime |
340 | =item on_sel_make $term, $eventtime |
331 | |
341 | |
332 | Called whenever a selection has been made by the user, but before the |
342 | Called whenever a selection has been made by the user, but before the |
333 | selection text is copied, so changes to the beginning, end or type of the |
343 | selection text is copied, so changes to the beginning, end or type of the |
… | |
… | |
630 | my $msg = join "", @_; |
640 | my $msg = join "", @_; |
631 | $msg .= "\n" |
641 | $msg .= "\n" |
632 | unless $msg =~ /\n$/; |
642 | unless $msg =~ /\n$/; |
633 | urxvt::warn ($msg); |
643 | urxvt::warn ($msg); |
634 | }; |
644 | }; |
635 | |
|
|
636 | # %ENV is the original startup environment |
|
|
637 | delete $ENV{IFS}; |
|
|
638 | delete $ENV{CDPATH}; |
|
|
639 | delete $ENV{BASH_ENV}; |
|
|
640 | $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; |
|
|
641 | } |
645 | } |
642 | |
646 | |
643 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
647 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
644 | |
648 | |
645 | sub verbose { |
649 | sub verbose { |
… | |
… | |
750 | } |
754 | } |
751 | |
755 | |
752 | $retval |
756 | $retval |
753 | } |
757 | } |
754 | |
758 | |
755 | sub exec_async(@) { |
|
|
756 | my $pid = fork; |
|
|
757 | |
|
|
758 | return |
|
|
759 | if !defined $pid or $pid; |
|
|
760 | |
|
|
761 | %ENV = %{ $TERM->env }; |
|
|
762 | |
|
|
763 | exec @_; |
|
|
764 | _exit 255; |
|
|
765 | } |
|
|
766 | |
|
|
767 | # urxvt::term::extension |
759 | # urxvt::term::extension |
768 | |
760 | |
769 | package urxvt::term::extension; |
761 | package urxvt::term::extension; |
770 | |
762 | |
771 | sub enable { |
763 | sub enable { |
… | |
… | |
947 | =item $term->destroy |
939 | =item $term->destroy |
948 | |
940 | |
949 | Destroy the terminal object (close the window, free resources |
941 | Destroy the terminal object (close the window, free resources |
950 | etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event |
942 | etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event |
951 | watchers (timers, io watchers) are still active. |
943 | watchers (timers, io watchers) are still active. |
|
|
944 | |
|
|
945 | =item $term->exec_async ($cmd[, @args]) |
|
|
946 | |
|
|
947 | Works like the combination of the C<fork>/C<exec> builtins, which executes |
|
|
948 | ("starts") programs in the background. This function takes care of setting |
|
|
949 | the user environment before exec'ing the command (e.g. C<PATH>) and should |
|
|
950 | be preferred over explicit calls to C<exec> or C<system>. |
|
|
951 | |
|
|
952 | Returns the pid of the subprocess or C<undef> on error. |
|
|
953 | |
|
|
954 | =cut |
|
|
955 | |
|
|
956 | sub exec_async { |
|
|
957 | my $self = shift; |
|
|
958 | |
|
|
959 | my $pid = fork; |
|
|
960 | |
|
|
961 | return $pid |
|
|
962 | if !defined $pid or $pid; |
|
|
963 | |
|
|
964 | %ENV = %{ $self->env }; |
|
|
965 | |
|
|
966 | exec @_; |
|
|
967 | urxvt::_exit 255; |
|
|
968 | } |
952 | |
969 | |
953 | =item $isset = $term->option ($optval[, $set]) |
970 | =item $isset = $term->option ($optval[, $set]) |
954 | |
971 | |
955 | Returns true if the option specified by C<$optval> is enabled, and |
972 | Returns true if the option specified by C<$optval> is enabled, and |
956 | optionally change it. All option values are stored by name in the hash |
973 | optionally change it. All option values are stored by name in the hash |
… | |
… | |
1601 | delete $env->{LC_ALL}; |
1618 | delete $env->{LC_ALL}; |
1602 | $env->{LC_CTYPE} = $self->{term}->locale; |
1619 | $env->{LC_CTYPE} = $self->{term}->locale; |
1603 | |
1620 | |
1604 | urxvt::term->new ($env, "popup", |
1621 | urxvt::term->new ($env, "popup", |
1605 | "--perl-lib" => "", "--perl-ext-common" => "", |
1622 | "--perl-lib" => "", "--perl-ext-common" => "", |
|
|
1623 | "-pty-fd" => -1, "-sl" => 0, |
1606 | "-pty-fd" => -1, "-sl" => 0, "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1624 | "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1607 | "--transient-for" => $self->{term}->parent, |
1625 | "--transient-for" => $self->{term}->parent, |
1608 | "-display" => $self->{term}->display_id, |
1626 | "-display" => $self->{term}->display_id, |
1609 | "-pe" => "urxvt-popup") |
1627 | "-pe" => "urxvt-popup") |
1610 | or die "unable to create popup window\n"; |
1628 | or die "unable to create popup window\n"; |
1611 | } |
1629 | } |