ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.99 by root, Tue Jan 17 17:09:26 2006 UTC vs.
Revision 1.103 by root, Wed Jan 18 11:05:09 2006 UTC

… …
88=item selection-popup (enabled by default) 88=item selection-popup (enabled by default)
89 89
90Binds a popup menu to Ctrl-Button3 that lets you convert the selection 90Binds a popup menu to Ctrl-Button3 that lets you convert the selection
91text into various other formats/action (such as uri unescaping, perl 91text into various other formats/action (such as uri unescaping, perl
92evalution, web-browser starting etc.), depending on content. 92evalution, web-browser starting etc.), depending on content.
93
94Other extensions can extend this popup menu by pushing a code reference onto
95C<@urxvt::ext::selection_popup::hook>, that is called whenever the popup is displayed.
96
97It's sole argument is the popup menu, which can be modified. The selection
98is in C<$_>, which can be used to decide wether to add something or not.
99It should either return nothing or a string and a code reference. The
100string will be used as button text and the code reference will be called
101when the button gets activated and should transform C<$_>.
102
103The following will add an entry C<a to b> that transforms all C<a>s in
104the selection to C<b>s, but only if the selection currently contains any
105C<a>s:
106
107 push urxvt::ext::selection_popup::hook, sub {
108 /a/ ? ("a to be" => sub { s/a/b/g }
109 : ()
110 };
93 111
94=item searchable-scrollback<hotkey> (enabled by default) 112=item searchable-scrollback<hotkey> (enabled by default)
95 113
96Adds regex search functionality to the scrollback buffer, triggered 114Adds regex search functionality to the scrollback buffer, triggered
97by a hotkey (default: C<M-s>). While in search mode, normal terminal 115by a hotkey (default: C<M-s>). While in search mode, normal terminal
… …
416=item on_focus_out $term 434=item on_focus_out $term
417 435
418Called wheneever the window loses keyboard focus, before rxvt-unicode does 436Called wheneever the window loses keyboard focus, before rxvt-unicode does
419focus out processing. 437focus out processing.
420 438
439=item on_configure_notify $term, $event
440
421=item on_key_press $term, $event, $keysym, $octets 441=item on_key_press $term, $event, $keysym, $octets
422 442
423=item on_key_release $term, $event, $keysym 443=item on_key_release $term, $event, $keysym
424 444
425=item on_button_press $term, $event 445=item on_button_press $term, $event
… …
595=back 615=back
596 616
597=cut 617=cut
598 618
599BEGIN { 619BEGIN {
600 urxvt->bootstrap;
601
602 # overwrite perl's warn 620 # overwrite perl's warn
603 *CORE::GLOBAL::warn = sub { 621 *CORE::GLOBAL::warn = sub {
604 my $msg = join "", @_; 622 my $msg = join "", @_;
605 $msg .= "\n" 623 $msg .= "\n"
606 unless $msg =~ /\n$/; 624 unless $msg =~ /\n$/;
… …
619sub verbose { 637sub verbose {
620 my ($level, $msg) = @_; 638 my ($level, $msg) = @_;
621 warn "$msg\n" if $level <= $verbosity; 639 warn "$msg\n" if $level <= $verbosity;
622} 640}
623 641
624my $extension_pkg = "extension0000";
625my %extension_pkg; 642my %extension_pkg;
626 643
627# load a single script into its own package, once only 644# load a single script into its own package, once only
628sub extension_package($) { 645sub extension_package($) {
629 my ($path) = @_; 646 my ($path) = @_;
630 647
648 no strict 'refs';
649
631 $extension_pkg{$path} ||= do { 650 $extension_pkg{$path} ||= do {
632 my $pkg = "urxvt::" . ($extension_pkg++); 651 $path =~ /([^\/\\]+)$/;
652 my $pkg = $1;
653 $pkg =~ s/[^[:word:]]/_/g;
654 $pkg = "urxvt::ext::$pkg";
633 655
634 verbose 3, "loading extension '$path' into package '$pkg'"; 656 verbose 3, "loading extension '$path' into package '$pkg'";
635 657
636 open my $fh, "<:raw", $path 658 open my $fh, "<:raw", $path
637 or die "$path: $!"; 659 or die "$path: $!";
638 660
661 @{"$pkg\::ISA"} = urxvt::term::extension::;
662
639 my $source = 663 my $source =
640 "package $pkg; use strict; use utf8;\n" 664 "package $pkg; use strict; use utf8;\n"
641 . "use base urxvt::term::extension::;\n"
642 . "#line 1 \"$path\"\n{\n" 665 . "#line 1 \"$path\"\n{\n"
643 . (do { local $/; <$fh> }) 666 . (do { local $/; <$fh> })
644 . "\n};\n1"; 667 . "\n};\n1";
645 668
646 eval $source 669 eval $source
… …
1567 my $env = $self->{term}->env; 1590 my $env = $self->{term}->env;
1568 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE. 1591 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
1569 delete $env->{LC_ALL}; 1592 delete $env->{LC_ALL};
1570 $env->{LC_CTYPE} = $self->{term}->locale; 1593 $env->{LC_CTYPE} = $self->{term}->locale;
1571 1594
1572 urxvt::term->new ($env, $self->{term}->resource ("name"), 1595 urxvt::term->new ($env, "popup",
1573 "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1596 "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1574 "--transient-for" => $self->{term}->parent, 1597 "--transient-for" => $self->{term}->parent,
1575 "-display" => $self->{term}->display_id, 1598 "-display" => $self->{term}->display_id,
1576 "-pe" => "urxvt-popup") 1599 "-pe" => "urxvt-popup")
1577 or die "unable to create popup window\n"; 1600 or die "unable to create popup window\n";
… …
1630Start the timer. 1653Start the timer.
1631 1654
1632=item $timer = $timer->start ($tstamp) 1655=item $timer = $timer->start ($tstamp)
1633 1656
1634Set the event trigger time to C<$tstamp> and start the timer. 1657Set the event trigger time to C<$tstamp> and start the timer.
1658
1659=item $timer = $timer->after ($delay)
1660
1661Like C<start>, but sets the expiry timer to c<urxvt::NOW + $delay>.
1635 1662
1636=item $timer = $timer->stop 1663=item $timer = $timer->stop
1637 1664
1638Stop the timer. 1665Stop the timer.
1639 1666

Diff Legend

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