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.48 by root, Sat Jan 7 21:43:17 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;
415our %OPTION;
409our $LIBDIR; 416our $LIBDIR;
410 417
411BEGIN { 418BEGIN {
412 urxvt->bootstrap; 419 urxvt->bootstrap;
413 420
… …
479 local $TERM = shift; 486 local $TERM = shift;
480 my $htype = shift; 487 my $htype = shift;
481 488
482 if ($htype == 0) { # INIT 489 if ($htype == 0) { # INIT
483 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 490 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
491
492 my %want_ext;
484 493
485 for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 494 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
495 if ($_ eq "default") {
496 $want_ext{$_}++ for qw(selection option-popup);
497 } elsif (/^-(.*)$/) {
498 delete $want_ext{$1};
499 } else {
500 $want_ext{$_}++;
501 }
502 }
503
504 for my $ext (keys %want_ext) {
486 my @files = grep -f $_, map "$_/$ext", @dirs; 505 my @files = grep -f $_, map "$_/$ext", @dirs;
487 506
488 if (@files) { 507 if (@files) {
489 register_package extension_package $files[0]; 508 register_package extension_package $files[0];
490 } else { 509 } else {
491 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";
492 } 511 }
493 } 512 }
513
514 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
515 warn $@ if $@;
494 } 516 }
495 517
496 $retval = undef; 518 $retval = undef;
497 519
498 if (my $cb = $TERM->{_hook}[$htype]) { 520 if (my $cb = $TERM->{_hook}[$htype]) {
… …
533 } 555 }
534 556
535 $retval 557 $retval
536} 558}
537 559
560# urxvt::term::proxy
561
538sub urxvt::term::proxy::AUTOLOAD { 562sub urxvt::term::proxy::AUTOLOAD {
539 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 563 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
540 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 564 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
541 565
542 eval qq{ 566 eval qq{
… …
548 } or die "FATAL: unable to compile method forwarder: $@"; 572 } or die "FATAL: unable to compile method forwarder: $@";
549 573
550 goto &$urxvt::term::proxy::AUTOLOAD; 574 goto &$urxvt::term::proxy::AUTOLOAD;
551} 575}
552 576
577# urxvt::destroy_hook
578
553sub urxvt::destroy_hook::DESTROY { 579sub urxvt::destroy_hook::DESTROY {
554 ${$_[0]}->(); 580 ${$_[0]}->();
555} 581}
556 582
557sub urxvt::destroy_hook(&) { 583sub urxvt::destroy_hook(&) {
558 bless \shift, urxvt::destroy_hook:: 584 bless \shift, urxvt::destroy_hook::
559} 585}
560 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;
648
561=head2 The C<urxvt::term> Class 649=head2 The C<urxvt::term> Class
562 650
563=over 4 651=over 4
564 652
565=item $term->destroy 653=item $term->destroy
566 654
567Destroy the terminal object (close the window, free resources etc.). 655Destroy the terminal object (close the window, free resources etc.).
656
657=item $isset = $term->option ($optval[, $set])
658
659Returns true if the option specified by C<$optval> is enabled, and
660optionally change it. All option values are stored by name in the hash
661C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
662
663Here is a a likely non-exhaustive list of option names, please see the
664source file F</src/optinc.h> to see the actual list:
665
666 borderLess console cursorBlink cursorUnderline hold iconic insecure
667 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
668 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
669 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
670 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
671 tripleclickwords utmpInhibit visualBell
568 672
569=item $value = $term->resource ($name[, $newval]) 673=item $value = $term->resource ($name[, $newval])
570 674
571Returns the current resource value associated with a given name and 675Returns the current resource value associated with a given name and
572optionally sets a new value. Setting values is most useful in the C<init> 676optionally sets a new value. Setting values is most useful in the C<init>
… …
582 686
583Please note that resource strings will currently only be freed when the 687Please note that resource strings will currently only be freed when the
584terminal is destroyed, so changing options frequently will eat memory. 688terminal is destroyed, so changing options frequently will eat memory.
585 689
586Here is a a likely non-exhaustive list of resource names, not all of which 690Here is a a likely non-exhaustive list of resource names, not all of which
587are supported in every build, please see the source to see the actual 691are supported in every build, please see the source file F</src/rsinc.h>
588list: 692to see the actual list:
589 693
590 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 694 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
591 borderLess color cursorBlink cursorUnderline cutchars delete_key 695 borderLess color cursorBlink cursorUnderline cutchars delete_key
592 display_name embed ext_bwidth fade font geometry hold iconName 696 display_name embed ext_bwidth fade font geometry hold iconName
593 imFont imLocale inputMethod insecure int_bwidth intensityStyles 697 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
600 shade term_name title transparent transparent_all tripleclickwords 704 shade term_name title transparent transparent_all tripleclickwords
601 utmpInhibit visualBell 705 utmpInhibit visualBell
602 706
603=cut 707=cut
604 708
605sub urxvt::term::resource($$;$) { 709sub resource($$;$) {
606 my ($self, $name) = (shift, shift); 710 my ($self, $name) = (shift, shift);
607 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 711 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
608 &urxvt::term::_resource 712 &urxvt::term::_resource
609} 713}
610 714
… …
697C<$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,
698currently). 802currently).
699 803
700=cut 804=cut
701 805
702sub urxvt::term::popup { 806sub popup {
703 my ($self, $event) = @_; 807 my ($self, $event) = @_;
704 808
705 $self->grab ($event->{time}, 1) 809 $self->grab ($event->{time}, 1)
706 or return; 810 or return;
707 811
… …
897 1001
898=back 1002=back
899 1003
900=cut 1004=cut
901 1005
902sub urxvt::term::line { 1006sub line {
903 my ($self, $row) = @_; 1007 my ($self, $row) = @_;
904 1008
905 my $maxrow = $self->nrow - 1; 1009 my $maxrow = $self->nrow - 1;
906 1010
907 my ($beg, $end) = ($row, $row); 1011 my ($beg, $end) = ($row, $row);
… …
985Converts rxvt-unicodes text reprsentation into a perl string. See 1089Converts rxvt-unicodes text reprsentation into a perl string. See
986C<< $term->ROW_t >> for details. 1090C<< $term->ROW_t >> for details.
987 1091
988=back 1092=back
989 1093
1094=cut
1095
1096package urxvt::popup;
1097
990=head2 The C<urxvt::popup> Class 1098=head2 The C<urxvt::popup> Class
991 1099
992=over 4 1100=over 4
993 1101
994=cut 1102=cut
995
996package urxvt::popup;
997 1103
998sub add_item { 1104sub add_item {
999 my ($self, $item) = @_; 1105 my ($self, $item) = @_;
1000 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
1001 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 });
1002} 1137}
1003 1138
1004sub add_button { 1139sub add_button {
1005 my ($self, $text, $cb) = @_; 1140 my ($self, $text, $cb) = @_;
1006 1141
1007 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb, 1142 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1008 render => sub { $_[0]{text} },
1009 });
1010} 1143}
1011 1144
1012sub add_toggle { 1145sub add_toggle {
1013 my ($self, $text, $cb, $value) = @_; 1146 my ($self, $text, $cb, $value) = @_;
1014 1147
1015 $self->add_item ({ type => "button", text => " $text", value => $value, 1148 my $item; $item = {
1149 type => "button",
1150 text => " $text",
1151 value => $value,
1016 render => sub { ($_[0]{value} ? "✔" : " ") . substr $_[0]{text}, 1 }, 1152 render => sub { ($item->{value} ? "* " : " ") . $text },
1017 activate => sub { $cb->($_[0]{value} = !$_[0]{value}); }, 1153 activate => sub { $cb->($item->{value} = !$item->{value}); },
1018 }); 1154 };
1155
1156 $self->add_item ($item);
1019} 1157}
1020 1158
1021sub show { 1159sub show {
1022 my ($self) = @_; 1160 my ($self) = @_;
1023 1161

Diff Legend

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