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.47 by root, Sat Jan 7 21:22:02 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
… …
397 402
398=cut 403=cut
399 404
400package urxvt; 405package urxvt;
401 406
407use utf8;
402use strict; 408use strict;
403use Scalar::Util (); 409use Scalar::Util ();
410use List::Util ();
404 411
412our $VERSION = 1;
405our $TERM; 413our $TERM;
406our @HOOKNAME; 414our @HOOKNAME;
415our %OPTION;
407our $LIBDIR; 416our $LIBDIR;
408 417
409BEGIN { 418BEGIN {
410 urxvt->bootstrap; 419 urxvt->bootstrap;
411 420
… …
477 local $TERM = shift; 486 local $TERM = shift;
478 my $htype = shift; 487 my $htype = shift;
479 488
480 if ($htype == 0) { # INIT 489 if ($htype == 0) { # INIT
481 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 490 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
491
492 my %want_ext;
482 493
483 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) {
484 my @files = grep -f $_, map "$_/$ext", @dirs; 505 my @files = grep -f $_, map "$_/$ext", @dirs;
485 506
486 if (@files) { 507 if (@files) {
487 register_package extension_package $files[0]; 508 register_package extension_package $files[0];
488 } else { 509 } else {
489 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";
490 } 511 }
491 } 512 }
513
514 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
515 warn $@ if $@;
492 } 516 }
493 517
494 $retval = undef; 518 $retval = undef;
495 519
496 if (my $cb = $TERM->{_hook}[$htype]) { 520 if (my $cb = $TERM->{_hook}[$htype]) {
… …
531 } 555 }
532 556
533 $retval 557 $retval
534} 558}
535 559
560# urxvt::term::proxy
561
536sub urxvt::term::proxy::AUTOLOAD { 562sub urxvt::term::proxy::AUTOLOAD {
537 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 563 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
538 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 564 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
539 565
540 eval qq{ 566 eval qq{
… …
546 } or die "FATAL: unable to compile method forwarder: $@"; 572 } or die "FATAL: unable to compile method forwarder: $@";
547 573
548 goto &$urxvt::term::proxy::AUTOLOAD; 574 goto &$urxvt::term::proxy::AUTOLOAD;
549} 575}
550 576
577# urxvt::destroy_hook
578
551sub urxvt::destroy_hook::DESTROY { 579sub urxvt::destroy_hook::DESTROY {
552 ${$_[0]}->(); 580 ${$_[0]}->();
553} 581}
554 582
555sub urxvt::destroy_hook(&) { 583sub urxvt::destroy_hook(&) {
556 bless \shift, urxvt::destroy_hook:: 584 bless \shift, urxvt::destroy_hook::
557} 585}
558 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
559=head2 The C<urxvt::term> Class 649=head2 The C<urxvt::term> Class
560 650
561=over 4 651=over 4
562 652
563=item $term->destroy 653=item $term->destroy
564 654
565Destroy 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
566 672
567=item $value = $term->resource ($name[, $newval]) 673=item $value = $term->resource ($name[, $newval])
568 674
569Returns the current resource value associated with a given name and 675Returns the current resource value associated with a given name and
570optionally 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>
… …
580 686
581Please note that resource strings will currently only be freed when the 687Please note that resource strings will currently only be freed when the
582terminal is destroyed, so changing options frequently will eat memory. 688terminal is destroyed, so changing options frequently will eat memory.
583 689
584Here 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
585are 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>
586list: 692to see the actual list:
587 693
588 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 694 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
589 borderLess color cursorBlink cursorUnderline cutchars delete_key 695 borderLess color cursorBlink cursorUnderline cutchars delete_key
590 display_name embed ext_bwidth fade font geometry hold iconName 696 display_name embed ext_bwidth fade font geometry hold iconName
591 imFont imLocale inputMethod insecure int_bwidth intensityStyles 697 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
598 shade term_name title transparent transparent_all tripleclickwords 704 shade term_name title transparent transparent_all tripleclickwords
599 utmpInhibit visualBell 705 utmpInhibit visualBell
600 706
601=cut 707=cut
602 708
603sub urxvt::term::resource($$;$) { 709sub resource($$;$) {
604 my ($self, $name) = (shift, shift); 710 my ($self, $name) = (shift, shift);
605 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 711 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
606 &urxvt::term::_resource 712 &urxvt::term::_resource
607} 713}
608 714
… …
695C<$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,
696currently). 802currently).
697 803
698=cut 804=cut
699 805
700sub urxvt::term::popup { 806sub popup {
701 my ($self, $event) = @_; 807 my ($self, $event) = @_;
702 808
703 $self->grab ($event->{time}, 1) 809 $self->grab ($event->{time}, 1)
704 or return; 810 or return;
705 811
… …
895 1001
896=back 1002=back
897 1003
898=cut 1004=cut
899 1005
900sub urxvt::term::line { 1006sub line {
901 my ($self, $row) = @_; 1007 my ($self, $row) = @_;
902 1008
903 my $maxrow = $self->nrow - 1; 1009 my $maxrow = $self->nrow - 1;
904 1010
905 my ($beg, $end) = ($row, $row); 1011 my ($beg, $end) = ($row, $row);
… …
983Converts rxvt-unicodes text reprsentation into a perl string. See 1089Converts rxvt-unicodes text reprsentation into a perl string. See
984C<< $term->ROW_t >> for details. 1090C<< $term->ROW_t >> for details.
985 1091
986=back 1092=back
987 1093
1094=cut
1095
1096package urxvt::popup;
1097
988=head2 The C<urxvt::popup> Class 1098=head2 The C<urxvt::popup> Class
989 1099
990=over 4 1100=over 4
991 1101
992=cut 1102=cut
993
994package urxvt::popup;
995 1103
996sub add_item { 1104sub add_item {
997 my ($self, $item) = @_; 1105 my ($self, $item) = @_;
998 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
999 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 });
1000} 1137}
1001 1138
1002sub add_button { 1139sub add_button {
1003 my ($self, $text, $cb) = @_; 1140 my ($self, $text, $cb) = @_;
1004 1141
1005 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb }); 1142 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1143}
1144
1145sub add_toggle {
1146 my ($self, $text, $cb, $value) = @_;
1147
1148 my $item; $item = {
1149 type => "button",
1150 text => " $text",
1151 value => $value,
1152 render => sub { ($item->{value} ? "* " : " ") . $text },
1153 activate => sub { $cb->($item->{value} = !$item->{value}); },
1154 };
1155
1156 $self->add_item ($item);
1006} 1157}
1007 1158
1008sub show { 1159sub show {
1009 my ($self) = @_; 1160 my ($self) = @_;
1010 1161

Diff Legend

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