… | |
… | |
34 | find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>. |
34 | find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>. |
35 | |
35 | |
36 | You can activate them like this: |
36 | You can activate them like this: |
37 | |
37 | |
38 | @@RXVT_NAME@@ -pe <extensionname> |
38 | @@RXVT_NAME@@ -pe <extensionname> |
|
|
39 | |
|
|
40 | Or by adding them to the resource for extensions loaded by default: |
|
|
41 | |
|
|
42 | URxvt.perl-ext-common: default,automove-background,selection-autotransform |
39 | |
43 | |
40 | =over 4 |
44 | =over 4 |
41 | |
45 | |
42 | =item selection (enabled by default) |
46 | =item selection (enabled by default) |
43 | |
47 | |
… | |
… | |
89 | |
93 | |
90 | Binds a popup menu to Ctrl-Button3 that lets you convert the selection |
94 | 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 |
95 | text into various other formats/action (such as uri unescaping, perl |
92 | evalution, web-browser starting etc.), depending on content. |
96 | evalution, web-browser starting etc.), depending on content. |
93 | |
97 | |
94 | Other extensions can extend this popup menu by pushing a code reference onto |
98 | 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. |
99 | onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the |
|
|
100 | popup is displayed. |
96 | |
101 | |
97 | It's sole argument is the popup menu, which can be modified. The selection |
102 | 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. |
103 | 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 |
104 | 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 |
105 | string will be used as button text and the code reference will be called |
… | |
… | |
102 | |
107 | |
103 | The following will add an entry C<a to b> that transforms all C<a>s in |
108 | 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 |
109 | the selection to C<b>s, but only if the selection currently contains any |
105 | C<a>s: |
110 | C<a>s: |
106 | |
111 | |
107 | push urxvt::ext::selection_popup::hook, sub { |
112 | push @{ $self->{term}{selection_popup_hook} }, sub { |
108 | /a/ ? ("a to be" => sub { s/a/b/g } |
113 | /a/ ? ("a to be" => sub { s/a/b/g } |
109 | : () |
114 | : () |
110 | }; |
115 | }; |
111 | |
116 | |
112 | =item searchable-scrollback<hotkey> (enabled by default) |
117 | =item searchable-scrollback<hotkey> (enabled by default) |
… | |
… | |
143 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/ |
148 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/ |
144 | |
149 | |
145 | And this example matches the same,but replaces it with vi-commands you can |
150 | And this example matches the same,but replaces it with vi-commands you can |
146 | paste directly into your (vi :) editor: |
151 | paste directly into your (vi :) editor: |
147 | |
152 | |
148 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/\\x1b:e \\Q$1\\E\\x0d:$2\\x0d/ |
153 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/ |
149 | |
154 | |
150 | Of course, this can be modified to suit your needs and your editor :) |
155 | Of course, this can be modified to suit your needs and your editor :) |
151 | |
156 | |
152 | To expand the example above to typical perl error messages ("XXX at |
157 | To expand the example above to typical perl error messages ("XXX at |
153 | FILENAME line YYY."), you need a slightly more elaborate solution: |
158 | FILENAME line YYY."), you need a slightly more elaborate solution: |
154 | |
159 | |
155 | URxvt.selection.pattern-0: ( at .*? line \\d+\\.) |
160 | URxvt.selection.pattern-0: ( at .*? line \\d+[,.]) |
156 | URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)\\.$/\x1b:e \\Q$1\E\\x0d:$2\\x0d/ |
161 | URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/ |
157 | |
162 | |
158 | The first line tells the selection code to treat the unchanging part of |
163 | 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 |
164 | every error message as a selection pattern, and the second line transforms |
160 | the message into vi commands to load the file. |
165 | the message into vi commands to load the file. |
161 | |
166 | |
… | |
… | |
324 | |
329 | |
325 | =item on_start $term |
330 | =item on_start $term |
326 | |
331 | |
327 | Called at the very end of initialisation of a new terminal, just before |
332 | Called at the very end of initialisation of a new terminal, just before |
328 | returning to the mainloop. |
333 | returning to the mainloop. |
|
|
334 | |
|
|
335 | =item on_child_start $term, $pid |
|
|
336 | |
|
|
337 | Called just after the child process has been C<fork>ed. |
|
|
338 | |
|
|
339 | =item on_child_exit $term, $status |
|
|
340 | |
|
|
341 | Called just after the child process has exited. C<$status> is the status |
|
|
342 | from C<waitpid>. |
329 | |
343 | |
330 | =item on_sel_make $term, $eventtime |
344 | =item on_sel_make $term, $eventtime |
331 | |
345 | |
332 | Called whenever a selection has been made by the user, but before the |
346 | 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 |
347 | selection text is copied, so changes to the beginning, end or type of the |
… | |
… | |
630 | my $msg = join "", @_; |
644 | my $msg = join "", @_; |
631 | $msg .= "\n" |
645 | $msg .= "\n" |
632 | unless $msg =~ /\n$/; |
646 | unless $msg =~ /\n$/; |
633 | urxvt::warn ($msg); |
647 | urxvt::warn ($msg); |
634 | }; |
648 | }; |
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 | } |
649 | } |
642 | |
650 | |
643 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
651 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
644 | |
652 | |
645 | sub verbose { |
653 | sub verbose { |
… | |
… | |
750 | } |
758 | } |
751 | |
759 | |
752 | $retval |
760 | $retval |
753 | } |
761 | } |
754 | |
762 | |
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 |
763 | # urxvt::term::extension |
768 | |
764 | |
769 | package urxvt::term::extension; |
765 | package urxvt::term::extension; |
770 | |
766 | |
771 | sub enable { |
767 | sub enable { |
… | |
… | |
948 | |
944 | |
949 | Destroy the terminal object (close the window, free resources |
945 | Destroy the terminal object (close the window, free resources |
950 | etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event |
946 | etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event |
951 | watchers (timers, io watchers) are still active. |
947 | watchers (timers, io watchers) are still active. |
952 | |
948 | |
|
|
949 | =item $term->exec_async ($cmd[, @args]) |
|
|
950 | |
|
|
951 | Works like the combination of the C<fork>/C<exec> builtins, which executes |
|
|
952 | ("starts") programs in the background. This function takes care of setting |
|
|
953 | the user environment before exec'ing the command (e.g. C<PATH>) and should |
|
|
954 | be preferred over explicit calls to C<exec> or C<system>. |
|
|
955 | |
|
|
956 | Returns the pid of the subprocess or C<undef> on error. |
|
|
957 | |
|
|
958 | =cut |
|
|
959 | |
|
|
960 | sub exec_async { |
|
|
961 | my $self = shift; |
|
|
962 | |
|
|
963 | my $pid = fork; |
|
|
964 | |
|
|
965 | return $pid |
|
|
966 | if !defined $pid or $pid; |
|
|
967 | |
|
|
968 | %ENV = %{ $self->env }; |
|
|
969 | |
|
|
970 | exec @_; |
|
|
971 | urxvt::_exit 255; |
|
|
972 | } |
|
|
973 | |
953 | =item $isset = $term->option ($optval[, $set]) |
974 | =item $isset = $term->option ($optval[, $set]) |
954 | |
975 | |
955 | Returns true if the option specified by C<$optval> is enabled, and |
976 | 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 |
977 | optionally change it. All option values are stored by name in the hash |
957 | C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash. |
978 | C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash. |
… | |
… | |
959 | Here is a a likely non-exhaustive list of option names, please see the |
980 | Here is a a likely non-exhaustive list of option names, please see the |
960 | source file F</src/optinc.h> to see the actual list: |
981 | source file F</src/optinc.h> to see the actual list: |
961 | |
982 | |
962 | borderLess console cursorBlink cursorUnderline hold iconic insecure |
983 | borderLess console cursorBlink cursorUnderline hold iconic insecure |
963 | intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage |
984 | intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage |
964 | pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating |
985 | override-redirect pastableTabs pointerBlank reverseVideo scrollBar |
965 | scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer |
986 | scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput |
966 | secondaryScreen secondaryScroll skipBuiltinGlyphs transparent |
987 | scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs |
967 | tripleclickwords utmpInhibit visualBell |
988 | transparent tripleclickwords utmpInhibit visualBell |
968 | |
989 | |
969 | =item $value = $term->resource ($name[, $newval]) |
990 | =item $value = $term->resource ($name[, $newval]) |
970 | |
991 | |
971 | Returns the current resource value associated with a given name and |
992 | Returns the current resource value associated with a given name and |
972 | optionally sets a new value. Setting values is most useful in the C<init> |
993 | optionally sets a new value. Setting values is most useful in the C<init> |
… | |
… | |
989 | |
1010 | |
990 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
1011 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
991 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
1012 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
992 | display_name embed ext_bwidth fade font geometry hold iconName |
1013 | display_name embed ext_bwidth fade font geometry hold iconName |
993 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
1014 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
994 | italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier |
1015 | italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier |
995 | mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2 |
1016 | mouseWheelScrollPage name override_redirect pastableTabs path perl_eval |
996 | perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd |
1017 | perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay |
997 | reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating |
1018 | preeditType print_pipe pty_fd reverseVideo saveLines scrollBar |
998 | scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput |
1019 | scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness |
999 | scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle |
1020 | scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle |
1000 | shade term_name title transparent transparent_all tripleclickwords |
1021 | secondaryScreen secondaryScroll selectstyle shade term_name title |
1001 | utmpInhibit visualBell |
1022 | transient_for transparent transparent_all tripleclickwords utmpInhibit |
|
|
1023 | visualBell |
1002 | |
1024 | |
1003 | =cut |
1025 | =cut |
1004 | |
1026 | |
1005 | sub resource($$;$) { |
1027 | sub resource($$;$) { |
1006 | my ($self, $name) = (shift, shift); |
1028 | my ($self, $name) = (shift, shift); |
… | |
… | |
1599 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1621 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1600 | delete $env->{LC_ALL}; |
1622 | delete $env->{LC_ALL}; |
1601 | $env->{LC_CTYPE} = $self->{term}->locale; |
1623 | $env->{LC_CTYPE} = $self->{term}->locale; |
1602 | |
1624 | |
1603 | urxvt::term->new ($env, "popup", |
1625 | urxvt::term->new ($env, "popup", |
1604 | "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, |
1626 | "--perl-lib" => "", "--perl-ext-common" => "", |
|
|
1627 | "-pty-fd" => -1, "-sl" => 0, |
|
|
1628 | "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1605 | "--transient-for" => $self->{term}->parent, |
1629 | "--transient-for" => $self->{term}->parent, |
1606 | "-display" => $self->{term}->display_id, |
1630 | "-display" => $self->{term}->display_id, |
1607 | "-pe" => "urxvt-popup") |
1631 | "-pe" => "urxvt-popup") |
1608 | or die "unable to create popup window\n"; |
1632 | or die "unable to create popup window\n"; |
1609 | } |
1633 | } |