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.98 by root, Tue Jan 17 17:01:54 2006 UTC vs.
Revision 1.102 by root, Wed Jan 18 10:31:37 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
… …
165overlays or changes. 183overlays or changes.
166 184
167=item selection-pastebin 185=item selection-pastebin
168 186
169This is a little rarely useful extension that Uploads the selection as 187This is a little rarely useful extension that Uploads the selection as
170textfile to a remote site (or does other things). 188textfile to a remote site (or does other things). (The implementation is
189not currently secure for use in a multiuser environment as it writes to
190F</tmp> directly.).
171 191
172It listens to the C<selection-pastebin:remote-pastebin> keyboard command, 192It listens to the C<selection-pastebin:remote-pastebin> keyboard command,
173i.e. 193i.e.
174 194
175 URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin 195 URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin
… …
413 433
414=item on_focus_out $term 434=item on_focus_out $term
415 435
416Called wheneever the window loses keyboard focus, before rxvt-unicode does 436Called wheneever the window loses keyboard focus, before rxvt-unicode does
417focus out processing. 437focus out processing.
438
439=item on_configure_notify $term, $event
418 440
419=item on_key_press $term, $event, $keysym, $octets 441=item on_key_press $term, $event, $keysym, $octets
420 442
421=item on_key_release $term, $event, $keysym 443=item on_key_release $term, $event, $keysym
422 444
… …
593=back 615=back
594 616
595=cut 617=cut
596 618
597BEGIN { 619BEGIN {
598 urxvt->bootstrap;
599
600 # overwrite perl's warn 620 # overwrite perl's warn
601 *CORE::GLOBAL::warn = sub { 621 *CORE::GLOBAL::warn = sub {
602 my $msg = join "", @_; 622 my $msg = join "", @_;
603 $msg .= "\n" 623 $msg .= "\n"
604 unless $msg =~ /\n$/; 624 unless $msg =~ /\n$/;
… …
617sub verbose { 637sub verbose {
618 my ($level, $msg) = @_; 638 my ($level, $msg) = @_;
619 warn "$msg\n" if $level <= $verbosity; 639 warn "$msg\n" if $level <= $verbosity;
620} 640}
621 641
622my $extension_pkg = "extension0000";
623my %extension_pkg; 642my %extension_pkg;
624 643
625# load a single script into its own package, once only 644# load a single script into its own package, once only
626sub extension_package($) { 645sub extension_package($) {
627 my ($path) = @_; 646 my ($path) = @_;
628 647
648 no strict 'refs';
649
629 $extension_pkg{$path} ||= do { 650 $extension_pkg{$path} ||= do {
630 my $pkg = "urxvt::" . ($extension_pkg++); 651 $path =~ /([^\/\\]+)$/;
652 my $pkg = $1;
653 $pkg =~ s/[^[:word:]]/_/g;
654 $pkg = "urxvt::ext::$pkg";
631 655
632 verbose 3, "loading extension '$path' into package '$pkg'"; 656 verbose 3, "loading extension '$path' into package '$pkg'";
633 657
634 open my $fh, "<:raw", $path 658 open my $fh, "<:raw", $path
635 or die "$path: $!"; 659 or die "$path: $!";
636 660
661 @{"$pkg\::ISA"} = urxvt::term::extension::;
662
637 my $source = 663 my $source =
638 "package $pkg; use strict; use utf8;\n" 664 "package $pkg; use strict; use utf8;\n"
639 . "use base urxvt::term::extension::;\n"
640 . "#line 1 \"$path\"\n{\n" 665 . "#line 1 \"$path\"\n{\n"
641 . (do { local $/; <$fh> }) 666 . (do { local $/; <$fh> })
642 . "\n};\n1"; 667 . "\n};\n1";
643 668
644 eval $source 669 eval $source

Diff Legend

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