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.49 by root, Sun Jan 8 00:07:18 2006 UTC vs.
Revision 1.56 by root, Sun Jan 8 05:52:42 2006 UTC

… …
37 37
38 @@RXVT_NAME@@ -pe <extensionname> 38 @@RXVT_NAME@@ -pe <extensionname>
39 39
40=over 4 40=over 4
41 41
42=item selection 42=item selection (enabled by default)
43 43
44Intelligent selection. This extension tries to be more intelligent when 44Intelligent selection. This extension tries to be more intelligent when
45the user extends selections (double-click). Right now, it tries to select 45the user extends selections (double-click). Right now, it tries to select
46urls and complete shell-quoted arguments, which is very convenient, too, 46urls and complete shell-quoted arguments, which is very convenient, too,
47if your F<ls> supports C<--quoting-style=shell>. 47if your F<ls> supports C<--quoting-style=shell>.
… …
55Rot-13 the selection when activated. Used via keyboard trigger: 55Rot-13 the selection when activated. Used via keyboard trigger:
56 56
57 URxvt.keysym.C-M-r: perl:selection:rot13 57 URxvt.keysym.C-M-r: perl:selection:rot13
58 58
59=back 59=back
60
61=item option-popup (enabled by default)
62
63Binds a popup menu to Ctrl-Button3 that lets you toggle (some) options at
64runtime.
60 65
61=item digital-clock 66=item digital-clock
62 67
63Displays a digital clock using the built-in overlay. 68Displays a digital clock using the built-in overlay.
64 69
… …
337 342
338=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask, 343=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
339Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask, 344Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
340Button4Mask, Button5Mask, AnyModifier 345Button4Mask, Button5Mask, AnyModifier
341 346
342Various constants for use in X events. 347Various constants for use in X calls and event processing.
343 348
344=back 349=back
345 350
346=head2 RENDITION 351=head2 RENDITION
347 352
… …
402use utf8; 407use utf8;
403use strict; 408use strict;
404use Scalar::Util (); 409use Scalar::Util ();
405use List::Util (); 410use List::Util ();
406 411
412our $VERSION = 1;
407our $TERM; 413our $TERM;
408our @HOOKNAME; 414our @HOOKNAME;
409our %OPTION; 415our %OPTION;
410our $LIBDIR; 416our $LIBDIR;
411 417
… …
481 my $htype = shift; 487 my $htype = shift;
482 488
483 if ($htype == 0) { # INIT 489 if ($htype == 0) { # INIT
484 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 490 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
485 491
492 my %want_ext;
493
486 my @ext = (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2); 494 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
487
488 while (@ext) {
489 my $ext = shift @ext;
490 if ($ext eq "default") { 495 if ($_ eq "default") {
491 unshift @ext, qw(selection); 496 $want_ext{$_}++ for qw(selection option-popup);
497 } elsif (/^-(.*)$/) {
498 delete $want_ext{$1};
492 } else { 499 } else {
493 my @files = grep -f $_, map "$_/$ext", @dirs; 500 $want_ext{$_}++;
494
495 if (@files) {
496 register_package extension_package $files[0];
497 } else {
498 warn "perl extension '$ext' not found in perl library search path\n";
499 }
500 } 501 }
501 } 502 }
503
504 for my $ext (keys %want_ext) {
505 my @files = grep -f $_, map "$_/$ext", @dirs;
506
507 if (@files) {
508 register_package extension_package $files[0];
509 } else {
510 warn "perl extension '$ext' not found in perl library search path\n";
511 }
512 }
513
514 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
515 warn $@ if $@;
502 } 516 }
503 517
504 $retval = undef; 518 $retval = undef;
505 519
506 if (my $cb = $TERM->{_hook}[$htype]) { 520 if (my $cb = $TERM->{_hook}[$htype]) {
… …
541 } 555 }
542 556
543 $retval 557 $retval
544} 558}
545 559
560# urxvt::term::proxy
561
546sub urxvt::term::proxy::AUTOLOAD { 562sub urxvt::term::proxy::AUTOLOAD {
547 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 563 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
548 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 564 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
549 565
550 eval qq{ 566 eval qq{
… …
556 } or die "FATAL: unable to compile method forwarder: $@"; 572 } or die "FATAL: unable to compile method forwarder: $@";
557 573
558 goto &$urxvt::term::proxy::AUTOLOAD; 574 goto &$urxvt::term::proxy::AUTOLOAD;
559} 575}
560 576
577# urxvt::destroy_hook
578
561sub urxvt::destroy_hook::DESTROY { 579sub urxvt::destroy_hook::DESTROY {
562 ${$_[0]}->(); 580 ${$_[0]}->();
563} 581}
564 582
565sub urxvt::destroy_hook(&) { 583sub urxvt::destroy_hook(&) {
566 bless \shift, urxvt::destroy_hook:: 584 bless \shift, urxvt::destroy_hook::
567} 585}
586
587package urxvt::anyevent;
588
589=head2 The C<urxvt::anyevent> Class
590
591The sole purpose of this class is to deliver an interface to the
592C<AnyEvent> module - any module using it will work inside urxvt without
593further work. The only exception is that you cannot wait on condition
594variables, but non-blocking condvar use is ok. What this means is that you
595cannot use blocking APIs, but the non-blocking variant should work.
596
597=cut
598
599our $VERSION = 1;
600
601$INC{"urxvt/anyevent.pm"} = 1; # mark us as there
602push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
603
604sub timer {
605 my ($class, %arg) = @_;
606
607 my $cb = $arg{cb};
608
609 urxvt::timer
610 ->new
611 ->start (urxvt::NOW + $arg{after})
612 ->cb (sub {
613 $_[0]->stop; # need to cancel manually
614 $cb->();
615 })
616}
617
618sub io {
619 my ($class, %arg) = @_;
620
621 my $cb = $arg{cb};
622
623 bless [$arg{fh}, urxvt::iow
624 ->new
625 ->fd (fileno $arg{fh})
626 ->events (($arg{poll} =~ /r/ ? 1 : 0)
627 | ($arg{poll} =~ /w/ ? 2 : 0))
628 ->start
629 ->cb (sub {
630 $cb->(($_[1] & 1 ? 'r' : '')
631 . ($_[1] & 2 ? 'w' : ''));
632 })],
633 urxvt::anyevent::
634}
635
636sub DESTROY {
637 $_[0][1]->stop;
638}
639
640sub condvar {
641 bless \my $flag, urxvt::anyevent::condvar::
642}
643
644sub urxvt::anyevent::condvar::broadcast {
645 ${$_[0]}++;
646}
647
648sub urxvt::anyevent::condvar::wait {
649 unless (${$_[0]}) {
650 require Carp;
651 Carp::croak ("AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API");
652 }
653}
654
655package urxvt::term;
568 656
569=head2 The C<urxvt::term> Class 657=head2 The C<urxvt::term> Class
570 658
571=over 4 659=over 4
572 660
… …
624 shade term_name title transparent transparent_all tripleclickwords 712 shade term_name title transparent transparent_all tripleclickwords
625 utmpInhibit visualBell 713 utmpInhibit visualBell
626 714
627=cut 715=cut
628 716
629sub urxvt::term::resource($$;$) { 717sub resource($$;$) {
630 my ($self, $name) = (shift, shift); 718 my ($self, $name) = (shift, shift);
631 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 719 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
632 &urxvt::term::_resource 720 &urxvt::term::_resource
633} 721}
634 722
… …
721C<$event> I<must> be the event causing the menu to pop up (a button event, 809C<$event> I<must> be the event causing the menu to pop up (a button event,
722currently). 810currently).
723 811
724=cut 812=cut
725 813
726sub urxvt::term::popup { 814sub popup {
727 my ($self, $event) = @_; 815 my ($self, $event) = @_;
728 816
729 $self->grab ($event->{time}, 1) 817 $self->grab ($event->{time}, 1)
730 or return; 818 or return;
731 819
… …
921 1009
922=back 1010=back
923 1011
924=cut 1012=cut
925 1013
926sub urxvt::term::line { 1014sub line {
927 my ($self, $row) = @_; 1015 my ($self, $row) = @_;
928 1016
929 my $maxrow = $self->nrow - 1; 1017 my $maxrow = $self->nrow - 1;
930 1018
931 my ($beg, $end) = ($row, $row); 1019 my ($beg, $end) = ($row, $row);
… …
1009Converts rxvt-unicodes text reprsentation into a perl string. See 1097Converts rxvt-unicodes text reprsentation into a perl string. See
1010C<< $term->ROW_t >> for details. 1098C<< $term->ROW_t >> for details.
1011 1099
1012=back 1100=back
1013 1101
1102=cut
1103
1104package urxvt::popup;
1105
1014=head2 The C<urxvt::popup> Class 1106=head2 The C<urxvt::popup> Class
1015 1107
1016=over 4 1108=over 4
1017 1109
1018=cut 1110=cut
1019
1020package urxvt::popup;
1021 1111
1022sub add_item { 1112sub add_item {
1023 my ($self, $item) = @_; 1113 my ($self, $item) = @_;
1024 1114
1115 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};
1116 $item->{rend}{hover} = "\x1b[0;30;46m" unless exists $item->{rend}{hover};
1117 $item->{rend}{active} = "\x1b[m" unless exists $item->{rend}{active};
1118
1119 $item->{render} ||= sub { $_[0]{text} };
1120
1025 push @{ $self->{item} }, $item; 1121 push @{ $self->{item} }, $item;
1122}
1123
1124sub add_separator {
1125 my ($self, $sep) = @_;
1126
1127 $sep ||= "═";
1128
1129 $self->add_item ({
1130 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1131 text => "",
1132 render => sub { $sep x $urxvt::TERM->ncol },
1133 activate => sub { },
1134 });
1135}
1136
1137sub add_title {
1138 my ($self, $title) = @_;
1139
1140 $self->add_item ({
1141 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
1142 text => $title,
1143 activate => sub { },
1144 });
1026} 1145}
1027 1146
1028sub add_button { 1147sub add_button {
1029 my ($self, $text, $cb) = @_; 1148 my ($self, $text, $cb) = @_;
1030 1149
1031 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb, 1150 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1032 render => sub { $_[0]{text} },
1033 });
1034} 1151}
1035 1152
1036sub add_toggle { 1153sub add_toggle {
1037 my ($self, $text, $cb, $value) = @_; 1154 my ($self, $text, $cb, $value) = @_;
1038 1155
1039 my $item; $item = { 1156 my $item; $item = {
1040 type => "button", 1157 type => "button",
1041 text => " $text", 1158 text => " $text",
1042 value => $value, 1159 value => $value,
1043 render => sub { ($item->{value} ? "✔" : " ") . $text }, 1160 render => sub { ($item->{value} ? "* " : " ") . $text },
1044 activate => sub { $cb->($item->{value} = !$item->{value}); }, 1161 activate => sub { $cb->($item->{value} = !$item->{value}); },
1045 }; 1162 };
1046 1163
1047 $self->add_item ($item); 1164 $self->add_item ($item);
1048} 1165}

Diff Legend

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