[ViewVC] Diff of: cvs/rxvt-unicode/src/urxvt.pm

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.102 by root, Wed Jan 18 10:31:37 2006 UTC vs.
Revision 1.111 by root, Thu Jan 19 19:52:54 2006 UTC

 find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>.
 You can activate them like this:
   @@RXVT_NAME@@ -pe <extensionname>
+Or by adding them to the resource for extensions loaded by default:
+  URxvt.perl-ext-common: default,automove-background,selection-autotransform
 =over 4
 =item selection (enabled by default)
 Binds a popup menu to Ctrl-Button3 that lets you convert the selection
 text into various other formats/action (such as uri unescaping, perl
 evalution, web-browser starting etc.), depending on content.
-Other extensions can extend this popup menu by pushing a code reference onto
+Other extensions can extend this popup menu by pushing a code reference
-C<@urxvt::ext::selection_popup::hook>, that is called whenever the popup is displayed.
+onto C<@{ $term->{selection_popup_hook} }>, that is called whenever the
+popup is displayed.
 It's sole argument is the popup menu, which can be modified. The selection
 is in C<$_>, which can be used to decide wether to add something or not.
 It should either return nothing or a string and a code reference. The
 string will be used as button text and the code reference will be called
 The following will add an entry C<a to b> that transforms all C<a>s in
 the selection to C<b>s, but only if the selection currently contains any
 C<a>s:
-   push urxvt::ext::selection_popup::hook, sub {
+   push @{ $self->{term}{selection_popup_hook} }, sub {
       /a/ ? ("a to be" => sub { s/a/b/g }
           : ()
    };
 =item searchable-scrollback<hotkey> (enabled by default)
    URxvt.selection-autotransform.0: s/^([^:[:space:]]+):(\\d+):?$/vi +$2 \\Q$1\\E\\x0d/
 And this example matches the same,but replaces it with vi-commands you can
 paste directly into your (vi :) editor:
-   URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/\\x1b:e \\Q$1\\E\\x0d:$2\\x0d/
+   URxvt.selection-autotransform.0: s/^([^:[:space:]]+(\\d+):?$/:e \\Q$1\\E\\x0d:$2\\x0d/
 Of course, this can be modified to suit your needs and your editor :)
 To expand the example above to typical perl error messages ("XXX at
 FILENAME line YYY."), you need a slightly more elaborate solution:
-   URxvt.selection.pattern-0: ( at .*? line \\d+\\.)
+   URxvt.selection.pattern-0: ( at .*? line \\d+[,.])
-   URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)\\.$/\x1b:e \\Q$1\E\\x0d:$2\\x0d/
+   URxvt.selection-autotransform.0: s/^ at (.*?) line (\\d+)[,.]$/:e \\Q$1\E\\x0d:$2\\x0d/
 The first line tells the selection code to treat the unchanging part of
 every error message as a selection pattern, and the second line transforms
 the message into vi commands to load the file.
 Uses per-line display filtering (C<on_line_update>) to underline urls and
 make them clickable. When middle-clicked, the program specified in the
 resource C<urlLauncher> (default C<x-www-browser>) will be started with
 the URL as first argument.
+=item automove-background
+This is basically a one-line extension that dynamically changes the background pixmap offset
+to the window position, in effect creating the same effect as pseudo transparency with
+a custom pixmap. No scaling is supported in this mode. Exmaple:
+   @@RXVT_NAME@@ -pixmap background.xpm -pe automove-background
 =item block-graphics-to-ascii
 A not very useful example of filtering all text output to the terminal,
 by replacing all line-drawing characters (U+2500 .. U+259F) by a
 =item on_start $term
 Called at the very end of initialisation of a new terminal, just before
 returning to the mainloop.
+=item on_child_start $term, $pid
+Called just after the child process has been C<fork>ed.
+=item on_child_exit $term, $status
+Called just after the child process has exited. C<$status> is the status
+from C<waitpid>.
 =item on_sel_make $term, $eventtime
 Called whenever a selection has been made by the user, but before the
 selection text is copied, so changes to the beginning, end or type of the
       my $msg = join "", @_;
       $msg .= "\n"
          unless $msg =~ /\n$/;
       urxvt::warn ($msg);
    };
-   # %ENV is the original startup environment
-   delete $ENV{IFS};
-   delete $ENV{CDPATH};
-   delete $ENV{BASH_ENV};
-   $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
 }
 my $verbosity = $ENV{URXVT_PERL_VERBOSITY};
 sub verbose {
    }
    $retval
 }
-sub exec_async(@) {
-   my $pid = fork;
-   return
-      if !defined $pid or $pid;
-   %ENV = %{ $TERM->env };
-   exec @_;
-   _exit 255;
-}
 # urxvt::term::extension
 package urxvt::term::extension;
 sub enable {
 Destroy the terminal object (close the window, free resources
 etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event
 watchers (timers, io watchers) are still active.
+=item $term->exec_async ($cmd[, @args])
+Works like the combination of the C<fork>/C<exec> builtins, which executes
+("starts") programs in the background. This function takes care of setting
+the user environment before exec'ing the command (e.g. C<PATH>) and should
+be preferred over explicit calls to C<exec> or C<system>.
+Returns the pid of the subprocess or C<undef> on error.
+=cut
+sub exec_async {
+   my $self = shift;
+   my $pid = fork;
+   return $pid
+      if !defined $pid or $pid;
+   %ENV = %{ $self->env };
+   exec @_;
+   urxvt::_exit 255;
+}
 =item $isset = $term->option ($optval[, $set])
 Returns true if the option specified by C<$optval> is enabled, and
 optionally change it. All option values are stored by name in the hash
 C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
 Here is a a likely non-exhaustive list of option names, please see the
 source file F</src/optinc.h> to see the actual list:
  borderLess console cursorBlink cursorUnderline hold iconic insecure
  intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
- pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
+ override-redirect pastableTabs pointerBlank reverseVideo scrollBar
- scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
+ scrollBar_floating scrollBar_right scrollTtyKeypress scrollTtyOutput
- secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
+ scrollWithBuffer secondaryScreen secondaryScroll skipBuiltinGlyphs
- tripleclickwords utmpInhibit visualBell
+ transparent tripleclickwords utmpInhibit visualBell
 =item $value = $term->resource ($name[, $newval])
 Returns the current resource value associated with a given name and
 optionally sets a new value. Setting values is most useful in the C<init>
   answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
   borderLess color cursorBlink cursorUnderline cutchars delete_key
   display_name embed ext_bwidth fade font geometry hold iconName
   imFont imLocale inputMethod insecure int_bwidth intensityStyles
-  italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier
+  italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier
-  mouseWheelScrollPage name pastableTabs path perl_eval perl_ext_1 perl_ext_2
+  mouseWheelScrollPage name override_redirect pastableTabs path perl_eval
-  perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd
+  perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
-  reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating
+  preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
-  scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput
+  scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
-  scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle
+  scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
-  shade term_name title transparent transparent_all tripleclickwords
+  secondaryScreen secondaryScroll selectstyle shade term_name title
-  utmpInhibit visualBell
+  transient_for transparent transparent_all tripleclickwords utmpInhibit
+  visualBell
 =cut
 sub resource($$;$) {
    my ($self, $name) = (shift, shift);
    my $env = $self->{term}->env;
    # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
    delete $env->{LC_ALL};
    $env->{LC_CTYPE} = $self->{term}->locale;
-   urxvt::term->new ($env, $self->{term}->resource ("name"),
+   urxvt::term->new ($env, "popup",
-                     "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
+                     "--perl-lib" => "", "--perl-ext-common" => "",
+                     "-pty-fd" => -1, "-sl" => 0,
+                     "-b" => 1, "-bd" => "grey80", "-bl", "-override-redirect",
                      "--transient-for" => $self->{term}->parent,
                      "-display" => $self->{term}->display_id,
                      "-pe" => "urxvt-popup")
       or die "unable to create popup window\n";
 }
 Start the timer.
 =item $timer = $timer->start ($tstamp)
 Set the event trigger time to C<$tstamp> and start the timer.
+=item $timer = $timer->after ($delay)
+Like C<start>, but sets the expiry timer to c<urxvt::NOW + $delay>.
 =item $timer = $timer->stop
 Stop the timer.

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.102 by root, Wed Jan 18 10:31:37 2006 UTC vs. Revision 1.111 by root, Thu Jan 19 19:52:54 2006 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.102 by root, Wed Jan 18 10:31:37 2006 UTC vs.
Revision 1.111 by root, Thu Jan 19 19:52:54 2006 UTC