… | |
… | |
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 | |
… | |
… | |
163 | |
164 | |
164 | Uses per-line display filtering (C<on_line_update>) to underline urls and |
165 | Uses per-line display filtering (C<on_line_update>) to underline urls and |
165 | make them clickable. When middle-clicked, the program specified in the |
166 | make them clickable. When middle-clicked, the program specified in the |
166 | resource C<urlLauncher> (default C<x-www-browser>) will be started with |
167 | resource C<urlLauncher> (default C<x-www-browser>) will be started with |
167 | the URL as first argument. |
168 | the URL as first argument. |
|
|
169 | |
|
|
170 | =item automove-background |
|
|
171 | |
|
|
172 | This is basically a one-line extension that dynamically changes the background pixmap offset |
|
|
173 | to the window position, in effect creating the same effect as pseudo transparency with |
|
|
174 | a custom pixmap. No scaling is supported in this mode. Exmaple: |
|
|
175 | |
|
|
176 | @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background |
168 | |
177 | |
169 | =item block-graphics-to-ascii |
178 | =item block-graphics-to-ascii |
170 | |
179 | |
171 | A not very useful example of filtering all text output to the terminal, |
180 | A not very useful example of filtering all text output to the terminal, |
172 | by replacing all line-drawing characters (U+2500 .. U+259F) by a |
181 | by replacing all line-drawing characters (U+2500 .. U+259F) by a |
… | |
… | |
316 | |
325 | |
317 | =item on_start $term |
326 | =item on_start $term |
318 | |
327 | |
319 | 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 |
320 | 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>. |
321 | |
339 | |
322 | =item on_sel_make $term, $eventtime |
340 | =item on_sel_make $term, $eventtime |
323 | |
341 | |
324 | 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 |
325 | 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 |
… | |
… | |
622 | my $msg = join "", @_; |
640 | my $msg = join "", @_; |
623 | $msg .= "\n" |
641 | $msg .= "\n" |
624 | unless $msg =~ /\n$/; |
642 | unless $msg =~ /\n$/; |
625 | urxvt::warn ($msg); |
643 | urxvt::warn ($msg); |
626 | }; |
644 | }; |
627 | |
|
|
628 | # %ENV is the original startup environment |
|
|
629 | delete $ENV{IFS}; |
|
|
630 | delete $ENV{CDPATH}; |
|
|
631 | delete $ENV{BASH_ENV}; |
|
|
632 | $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; |
|
|
633 | } |
645 | } |
634 | |
646 | |
635 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
647 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
636 | |
648 | |
637 | sub verbose { |
649 | sub verbose { |
… | |
… | |
742 | } |
754 | } |
743 | |
755 | |
744 | $retval |
756 | $retval |
745 | } |
757 | } |
746 | |
758 | |
747 | sub exec_async(@) { |
|
|
748 | my $pid = fork; |
|
|
749 | |
|
|
750 | return |
|
|
751 | if !defined $pid or $pid; |
|
|
752 | |
|
|
753 | %ENV = %{ $TERM->env }; |
|
|
754 | |
|
|
755 | exec @_; |
|
|
756 | _exit 255; |
|
|
757 | } |
|
|
758 | |
|
|
759 | # urxvt::term::extension |
759 | # urxvt::term::extension |
760 | |
760 | |
761 | package urxvt::term::extension; |
761 | package urxvt::term::extension; |
762 | |
762 | |
763 | sub enable { |
763 | sub enable { |
… | |
… | |
940 | |
940 | |
941 | Destroy the terminal object (close the window, free resources |
941 | Destroy the terminal object (close the window, free resources |
942 | 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 |
943 | watchers (timers, io watchers) are still active. |
943 | watchers (timers, io watchers) are still active. |
944 | |
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 | } |
|
|
969 | |
945 | =item $isset = $term->option ($optval[, $set]) |
970 | =item $isset = $term->option ($optval[, $set]) |
946 | |
971 | |
947 | 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 |
948 | 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 |
949 | C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash. |
974 | C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash. |
… | |
… | |
951 | Here is a a likely non-exhaustive list of option names, please see the |
976 | Here is a a likely non-exhaustive list of option names, please see the |
952 | source file F</src/optinc.h> to see the actual list: |
977 | source file F</src/optinc.h> to see the actual list: |
953 | |
978 | |
954 | borderLess console cursorBlink cursorUnderline hold iconic insecure |
979 | borderLess console cursorBlink cursorUnderline hold iconic insecure |
955 | intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage |
980 | intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage |
956 | pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating |
981 | override-redirect pastableTabs pointerBlank reverseVideo scrollBar |
957 | scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer |
982 | scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput |
958 | secondaryScreen secondaryScroll skipBuiltinGlyphs transparent |
983 | scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs |
959 | tripleclickwords utmpInhibit visualBell |
984 | transparent tripleclickwords utmpInhibit visualBell |
960 | |
985 | |
961 | =item $value = $term->resource ($name[, $newval]) |
986 | =item $value = $term->resource ($name[, $newval]) |
962 | |
987 | |
963 | Returns the current resource value associated with a given name and |
988 | Returns the current resource value associated with a given name and |
964 | optionally sets a new value. Setting values is most useful in the C<init> |
989 | optionally sets a new value. Setting values is most useful in the C<init> |
… | |
… | |
981 | |
1006 | |
982 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
1007 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
983 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
1008 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
984 | display_name embed ext_bwidth fade font geometry hold iconName |
1009 | display_name embed ext_bwidth fade font geometry hold iconName |
985 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
1010 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
986 | italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier |
1011 | italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier |
987 | mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2 |
1012 | mouseWheelScrollPage name override_redirect pastableTabs path perl_eval |
988 | perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd |
1013 | perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay |
989 | reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating |
1014 | preeditType print_pipe pty_fd reverseVideo saveLines scrollBar |
990 | scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput |
1015 | scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness |
991 | scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle |
1016 | scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle |
992 | shade term_name title transparent transparent_all tripleclickwords |
1017 | secondaryScreen secondaryScroll selectstyle shade term_name title |
993 | utmpInhibit visualBell |
1018 | transient_for transparent transparent_all tripleclickwords utmpInhibit |
|
|
1019 | visualBell |
994 | |
1020 | |
995 | =cut |
1021 | =cut |
996 | |
1022 | |
997 | sub resource($$;$) { |
1023 | sub resource($$;$) { |
998 | my ($self, $name) = (shift, shift); |
1024 | my ($self, $name) = (shift, shift); |
… | |
… | |
1591 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1617 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1592 | delete $env->{LC_ALL}; |
1618 | delete $env->{LC_ALL}; |
1593 | $env->{LC_CTYPE} = $self->{term}->locale; |
1619 | $env->{LC_CTYPE} = $self->{term}->locale; |
1594 | |
1620 | |
1595 | urxvt::term->new ($env, "popup", |
1621 | urxvt::term->new ($env, "popup", |
1596 | "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, |
1622 | "--perl-lib" => "", "--perl-ext-common" => "", |
|
|
1623 | "-pty-fd" => -1, "-sl" => 0, |
|
|
1624 | "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1597 | "--transient-for" => $self->{term}->parent, |
1625 | "--transient-for" => $self->{term}->parent, |
1598 | "-display" => $self->{term}->display_id, |
1626 | "-display" => $self->{term}->display_id, |
1599 | "-pe" => "urxvt-popup") |
1627 | "-pe" => "urxvt-popup") |
1600 | or die "unable to create popup window\n"; |
1628 | or die "unable to create popup window\n"; |
1601 | } |
1629 | } |