… | |
… | |
143 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/ |
143 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/ |
144 | |
144 | |
145 | And this example matches the same,but replaces it with vi-commands you can |
145 | And this example matches the same,but replaces it with vi-commands you can |
146 | paste directly into your (vi :) editor: |
146 | paste directly into your (vi :) editor: |
147 | |
147 | |
148 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/\\x1b:e \\Q$1\\E\\x0d:$2\\x0d/ |
148 | URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/ |
149 | |
149 | |
150 | Of course, this can be modified to suit your needs and your editor :) |
150 | Of course, this can be modified to suit your needs and your editor :) |
151 | |
151 | |
152 | To expand the example above to typical perl error messages ("XXX at |
152 | To expand the example above to typical perl error messages ("XXX at |
153 | FILENAME line YYY."), you need a slightly more elaborate solution: |
153 | FILENAME line YYY."), you need a slightly more elaborate solution: |
154 | |
154 | |
155 | URxvt.selection.pattern-0: ( at .*? line \\d+\\.) |
155 | URxvt.selection.pattern-0: ( at .*? line \\d+[,.]) |
156 | URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)\\.$/\x1b:e \\Q$1\E\\x0d:$2\\x0d/ |
156 | URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/ |
157 | |
157 | |
158 | The first line tells the selection code to treat the unchanging part of |
158 | 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 |
159 | every error message as a selection pattern, and the second line transforms |
160 | the message into vi commands to load the file. |
160 | the message into vi commands to load the file. |
161 | |
161 | |
… | |
… | |
324 | |
324 | |
325 | =item on_start $term |
325 | =item on_start $term |
326 | |
326 | |
327 | Called at the very end of initialisation of a new terminal, just before |
327 | Called at the very end of initialisation of a new terminal, just before |
328 | returning to the mainloop. |
328 | returning to the mainloop. |
|
|
329 | |
|
|
330 | =item on_child_start $term, $pid |
|
|
331 | |
|
|
332 | Called just after the child process has been C<fork>ed. |
|
|
333 | |
|
|
334 | =item on_child_exit $term, $status |
|
|
335 | |
|
|
336 | Called just after the child process has exited. C<$status> is the status |
|
|
337 | from C<waitpid>. |
329 | |
338 | |
330 | =item on_sel_make $term, $eventtime |
339 | =item on_sel_make $term, $eventtime |
331 | |
340 | |
332 | Called whenever a selection has been made by the user, but before the |
341 | 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 |
342 | selection text is copied, so changes to the beginning, end or type of the |
… | |
… | |
630 | my $msg = join "", @_; |
639 | my $msg = join "", @_; |
631 | $msg .= "\n" |
640 | $msg .= "\n" |
632 | unless $msg =~ /\n$/; |
641 | unless $msg =~ /\n$/; |
633 | urxvt::warn ($msg); |
642 | urxvt::warn ($msg); |
634 | }; |
643 | }; |
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 | } |
644 | } |
642 | |
645 | |
643 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
646 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
644 | |
647 | |
645 | sub verbose { |
648 | sub verbose { |
… | |
… | |
750 | } |
753 | } |
751 | |
754 | |
752 | $retval |
755 | $retval |
753 | } |
756 | } |
754 | |
757 | |
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 |
758 | # urxvt::term::extension |
768 | |
759 | |
769 | package urxvt::term::extension; |
760 | package urxvt::term::extension; |
770 | |
761 | |
771 | sub enable { |
762 | sub enable { |
… | |
… | |
948 | |
939 | |
949 | Destroy the terminal object (close the window, free resources |
940 | Destroy the terminal object (close the window, free resources |
950 | etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event |
941 | etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event |
951 | watchers (timers, io watchers) are still active. |
942 | watchers (timers, io watchers) are still active. |
952 | |
943 | |
|
|
944 | =item $term->exec_async ($cmd[, @args]) |
|
|
945 | |
|
|
946 | Works like the combination of the C<fork>/C<exec> builtins, which executes |
|
|
947 | ("starts") programs in the background. This function takes care of setting |
|
|
948 | the user environment before exec'ing the command (e.g. C<PATH>) and should |
|
|
949 | be preferred over explicit calls to C<exec> or C<system>. |
|
|
950 | |
|
|
951 | Returns the pid of the subprocess or C<undef> on error. |
|
|
952 | |
|
|
953 | =cut |
|
|
954 | |
|
|
955 | sub exec_async { |
|
|
956 | my $self = shift; |
|
|
957 | |
|
|
958 | my $pid = fork; |
|
|
959 | |
|
|
960 | return $pid |
|
|
961 | if !defined $pid or $pid; |
|
|
962 | |
|
|
963 | %ENV = %{ $self->env }; |
|
|
964 | |
|
|
965 | exec @_; |
|
|
966 | urxvt::_exit 255; |
|
|
967 | } |
|
|
968 | |
953 | =item $isset = $term->option ($optval[, $set]) |
969 | =item $isset = $term->option ($optval[, $set]) |
954 | |
970 | |
955 | Returns true if the option specified by C<$optval> is enabled, and |
971 | 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 |
972 | 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. |
973 | 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 |
975 | 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: |
976 | source file F</src/optinc.h> to see the actual list: |
961 | |
977 | |
962 | borderLess console cursorBlink cursorUnderline hold iconic insecure |
978 | borderLess console cursorBlink cursorUnderline hold iconic insecure |
963 | intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage |
979 | intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage |
964 | pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating |
980 | override-redirect pastableTabs pointerBlank reverseVideo scrollBar |
965 | scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer |
981 | scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput |
966 | secondaryScreen secondaryScroll skipBuiltinGlyphs transparent |
982 | scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs |
967 | tripleclickwords utmpInhibit visualBell |
983 | transparent tripleclickwords utmpInhibit visualBell |
968 | |
984 | |
969 | =item $value = $term->resource ($name[, $newval]) |
985 | =item $value = $term->resource ($name[, $newval]) |
970 | |
986 | |
971 | Returns the current resource value associated with a given name and |
987 | 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> |
988 | optionally sets a new value. Setting values is most useful in the C<init> |
… | |
… | |
989 | |
1005 | |
990 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
1006 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
991 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
1007 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
992 | display_name embed ext_bwidth fade font geometry hold iconName |
1008 | display_name embed ext_bwidth fade font geometry hold iconName |
993 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
1009 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
994 | italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier |
1010 | italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier |
995 | mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2 |
1011 | mouseWheelScrollPage name override_redirect pastableTabs path perl_eval |
996 | perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd |
1012 | perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay |
997 | reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating |
1013 | preeditType print_pipe pty_fd reverseVideo saveLines scrollBar |
998 | scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput |
1014 | scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness |
999 | scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle |
1015 | scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle |
1000 | shade term_name title transparent transparent_all tripleclickwords |
1016 | secondaryScreen secondaryScroll selectstyle shade term_name title |
1001 | utmpInhibit visualBell |
1017 | transient_for transparent transparent_all tripleclickwords utmpInhibit |
|
|
1018 | visualBell |
1002 | |
1019 | |
1003 | =cut |
1020 | =cut |
1004 | |
1021 | |
1005 | sub resource($$;$) { |
1022 | sub resource($$;$) { |
1006 | my ($self, $name) = (shift, shift); |
1023 | my ($self, $name) = (shift, shift); |
… | |
… | |
1599 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1616 | # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. |
1600 | delete $env->{LC_ALL}; |
1617 | delete $env->{LC_ALL}; |
1601 | $env->{LC_CTYPE} = $self->{term}->locale; |
1618 | $env->{LC_CTYPE} = $self->{term}->locale; |
1602 | |
1619 | |
1603 | urxvt::term->new ($env, "popup", |
1620 | urxvt::term->new ($env, "popup", |
1604 | "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, |
1621 | "--perl-lib" => "", "--perl-ext-common" => "", |
|
|
1622 | "-pty-fd" => -1, "-sl" => 0, |
|
|
1623 | "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect", |
1605 | "--transient-for" => $self->{term}->parent, |
1624 | "--transient-for" => $self->{term}->parent, |
1606 | "-display" => $self->{term}->display_id, |
1625 | "-display" => $self->{term}->display_id, |
1607 | "-pe" => "urxvt-popup") |
1626 | "-pe" => "urxvt-popup") |
1608 | or die "unable to create popup window\n"; |
1627 | or die "unable to create popup window\n"; |
1609 | } |
1628 | } |