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.51 by root, Sun Jan 8 00:27:47 2006 UTC vs.
Revision 1.55 by root, Sun Jan 8 05:50:27 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
… …
502 register_package extension_package $files[0]; 508 register_package extension_package $files[0];
503 } else { 509 } else {
504 warn "perl extension '$ext' not found in perl library search path\n"; 510 warn "perl extension '$ext' not found in perl library search path\n";
505 } 511 }
506 } 512 }
513
514 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
515 warn $@ if $@;
507 } 516 }
508 517
509 $retval = undef; 518 $retval = undef;
510 519
511 if (my $cb = $TERM->{_hook}[$htype]) { 520 if (my $cb = $TERM->{_hook}[$htype]) {
… …
546 } 555 }
547 556
548 $retval 557 $retval
549} 558}
550 559
560# urxvt::term::proxy
561
551sub urxvt::term::proxy::AUTOLOAD { 562sub urxvt::term::proxy::AUTOLOAD {
552 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 563 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
553 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 564 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
554 565
555 eval qq{ 566 eval qq{
… …
561 } or die "FATAL: unable to compile method forwarder: $@"; 572 } or die "FATAL: unable to compile method forwarder: $@";
562 573
563 goto &$urxvt::term::proxy::AUTOLOAD; 574 goto &$urxvt::term::proxy::AUTOLOAD;
564} 575}
565 576
577# urxvt::destroy_hook
578
566sub urxvt::destroy_hook::DESTROY { 579sub urxvt::destroy_hook::DESTROY {
567 ${$_[0]}->(); 580 ${$_[0]}->();
568} 581}
569 582
570sub urxvt::destroy_hook(&) { 583sub urxvt::destroy_hook(&) {
571 bless \shift, urxvt::destroy_hook:: 584 bless \shift, urxvt::destroy_hook::
572} 585}
586
587# urxvt::anyevent
588
589package urxvt::anyevent;
590
591our $VERSION = 1;
592
593$INC{"urxvt/anyevent.pm"} = 1; # mark us as there
594push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
595
596sub timer {
597 my ($class, %arg) = @_;
598
599 my $cb = $arg{cb};
600
601 urxvt::timer
602 ->new
603 ->start (urxvt::NOW + $arg{after})
604 ->cb (sub {
605 $_[0]->stop; # need to cancel manually
606 $cb->();
607 })
608}
609
610sub io {
611 my ($class, %arg) = @_;
612
613 my $cb = $arg{cb};
614
615 bless [$arg{fh}, urxvt::iow
616 ->new
617 ->fd (fileno $arg{fh})
618 ->events (($arg{poll} =~ /r/ ? 1 : 0)
619 | ($arg{poll} =~ /w/ ? 2 : 0))
620 ->start
621 ->cb (sub {
622 $cb->(($_[1] & 1 ? 'r' : '')
623 . ($_[1] & 2 ? 'w' : ''));
624 })],
625 urxvt::anyevent::
626}
627
628sub DESTROY {
629 $_[0][1]->stop;
630}
631
632sub condvar {
633 bless \my $flag, urxvt::anyevent::condvar::
634}
635
636sub urxvt::anyevent::condvar::broadcast {
637 ${$_[0]}++;
638}
639
640sub urxvt::anyevent::condvar::wait {
641 unless (${$_[0]}) {
642 require Carp;
643 Carp::croak ("AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API");
644 }
645}
646
647package urxvt::term;
573 648
574=head2 The C<urxvt::term> Class 649=head2 The C<urxvt::term> Class
575 650
576=over 4 651=over 4
577 652
… …
629 shade term_name title transparent transparent_all tripleclickwords 704 shade term_name title transparent transparent_all tripleclickwords
630 utmpInhibit visualBell 705 utmpInhibit visualBell
631 706
632=cut 707=cut
633 708
634sub urxvt::term::resource($$;$) { 709sub resource($$;$) {
635 my ($self, $name) = (shift, shift); 710 my ($self, $name) = (shift, shift);
636 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 711 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
637 &urxvt::term::_resource 712 &urxvt::term::_resource
638} 713}
639 714
… …
726C<$event> I<must> be the event causing the menu to pop up (a button event, 801C<$event> I<must> be the event causing the menu to pop up (a button event,
727currently). 802currently).
728 803
729=cut 804=cut
730 805
731sub urxvt::term::popup { 806sub popup {
732 my ($self, $event) = @_; 807 my ($self, $event) = @_;
733 808
734 $self->grab ($event->{time}, 1) 809 $self->grab ($event->{time}, 1)
735 or return; 810 or return;
736 811
… …
926 1001
927=back 1002=back
928 1003
929=cut 1004=cut
930 1005
931sub urxvt::term::line { 1006sub line {
932 my ($self, $row) = @_; 1007 my ($self, $row) = @_;
933 1008
934 my $maxrow = $self->nrow - 1; 1009 my $maxrow = $self->nrow - 1;
935 1010
936 my ($beg, $end) = ($row, $row); 1011 my ($beg, $end) = ($row, $row);
… …
1014Converts rxvt-unicodes text reprsentation into a perl string. See 1089Converts rxvt-unicodes text reprsentation into a perl string. See
1015C<< $term->ROW_t >> for details. 1090C<< $term->ROW_t >> for details.
1016 1091
1017=back 1092=back
1018 1093
1094=cut
1095
1096package urxvt::popup;
1097
1019=head2 The C<urxvt::popup> Class 1098=head2 The C<urxvt::popup> Class
1020 1099
1021=over 4 1100=over 4
1022 1101
1023=cut 1102=cut
1024
1025package urxvt::popup;
1026 1103
1027sub add_item { 1104sub add_item {
1028 my ($self, $item) = @_; 1105 my ($self, $item) = @_;
1029 1106
1107 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};
1108 $item->{rend}{hover} = "\x1b[0;30;46m" unless exists $item->{rend}{hover};
1109 $item->{rend}{active} = "\x1b[m" unless exists $item->{rend}{active};
1110
1111 $item->{render} ||= sub { $_[0]{text} };
1112
1030 push @{ $self->{item} }, $item; 1113 push @{ $self->{item} }, $item;
1114}
1115
1116sub add_separator {
1117 my ($self, $sep) = @_;
1118
1119 $sep ||= "═";
1120
1121 $self->add_item ({
1122 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1123 text => "",
1124 render => sub { $sep x $urxvt::TERM->ncol },
1125 activate => sub { },
1126 });
1127}
1128
1129sub add_title {
1130 my ($self, $title) = @_;
1131
1132 $self->add_item ({
1133 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
1134 text => $title,
1135 activate => sub { },
1136 });
1031} 1137}
1032 1138
1033sub add_button { 1139sub add_button {
1034 my ($self, $text, $cb) = @_; 1140 my ($self, $text, $cb) = @_;
1035 1141
1036 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb, 1142 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1037 render => sub { $_[0]{text} },
1038 });
1039} 1143}
1040 1144
1041sub add_toggle { 1145sub add_toggle {
1042 my ($self, $text, $cb, $value) = @_; 1146 my ($self, $text, $cb, $value) = @_;
1043 1147
1044 my $item; $item = { 1148 my $item; $item = {
1045 type => "button", 1149 type => "button",
1046 text => " $text", 1150 text => " $text",
1047 value => $value, 1151 value => $value,
1048 render => sub { ($item->{value} ? "✔" : " ") . $text }, 1152 render => sub { ($item->{value} ? "* " : " ") . $text },
1049 activate => sub { $cb->($item->{value} = !$item->{value}); }, 1153 activate => sub { $cb->($item->{value} = !$item->{value}); },
1050 }; 1154 };
1051 1155
1052 $self->add_item ($item); 1156 $self->add_item ($item);
1053} 1157}

Diff Legend

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