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.101 by root, Wed Jan 18 10:11:03 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
… …
593=back 613=back
594 614
595=cut 615=cut
596 616
597BEGIN { 617BEGIN {
598 urxvt->bootstrap;
599
600 # overwrite perl's warn 618 # overwrite perl's warn
601 *CORE::GLOBAL::warn = sub { 619 *CORE::GLOBAL::warn = sub {
602 my $msg = join "", @_; 620 my $msg = join "", @_;
603 $msg .= "\n" 621 $msg .= "\n"
604 unless $msg =~ /\n$/; 622 unless $msg =~ /\n$/;
… …
617sub verbose { 635sub verbose {
618 my ($level, $msg) = @_; 636 my ($level, $msg) = @_;
619 warn "$msg\n" if $level <= $verbosity; 637 warn "$msg\n" if $level <= $verbosity;
620} 638}
621 639
622my $extension_pkg = "extension0000";
623my %extension_pkg; 640my %extension_pkg;
624 641
625# load a single script into its own package, once only 642# load a single script into its own package, once only
626sub extension_package($) { 643sub extension_package($) {
627 my ($path) = @_; 644 my ($path) = @_;
628 645
646 no strict 'refs';
647
629 $extension_pkg{$path} ||= do { 648 $extension_pkg{$path} ||= do {
630 my $pkg = "urxvt::" . ($extension_pkg++); 649 $path =~ /([^\/\\]+)$/;
650 my $pkg = $1;
651 $pkg =~ s/[^[:word:]]/_/g;
652 $pkg = "urxvt::ext::$pkg";
631 653
632 verbose 3, "loading extension '$path' into package '$pkg'"; 654 verbose 3, "loading extension '$path' into package '$pkg'";
633 655
634 open my $fh, "<:raw", $path 656 open my $fh, "<:raw", $path
635 or die "$path: $!"; 657 or die "$path: $!";
636 658
659 @{"$pkg\::ISA"} = urxvt::term::extension::;
660
637 my $source = 661 my $source =
638 "package $pkg; use strict; use utf8;\n" 662 "package $pkg; use strict; use utf8;\n"
639 . "use base urxvt::term::extension::;\n"
640 . "#line 1 \"$path\"\n{\n" 663 . "#line 1 \"$path\"\n{\n"
641 . (do { local $/; <$fh> }) 664 . (do { local $/; <$fh> })
642 . "\n};\n1"; 665 . "\n};\n1";
643 666
644 eval $source 667 eval $source

Diff Legend

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