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.57 by root, Sun Jan 8 08:43:11 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
… …
464 . "use base urxvt::term::proxy::;\n" 471 . "use base urxvt::term::proxy::;\n"
465 . "#line 1 \"$path\"\n{\n" 472 . "#line 1 \"$path\"\n{\n"
466 . (do { local $/; <$fh> }) 473 . (do { local $/; <$fh> })
467 . "\n};\n1"; 474 . "\n};\n1";
468 475
476 $source =~ /(.*)/s and $source = $1; # untaint
477
469 eval $source or die "$path: $@"; 478 eval $source or die "$path: $@";
470 479
471 $pkg 480 $pkg
472 } 481 }
473} 482}
… …
479 local $TERM = shift; 488 local $TERM = shift;
480 my $htype = shift; 489 my $htype = shift;
481 490
482 if ($htype == 0) { # INIT 491 if ($htype == 0) { # INIT
483 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 492 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
493
494 my %want_ext;
484 495
485 for my $ext (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) { 496 for (map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2) {
497 if ($_ eq "default") {
498 $want_ext{$_}++ for qw(selection option-popup);
499 } elsif (/^-(.*)$/) {
500 delete $want_ext{$1};
501 } else {
502 $want_ext{$_}++;
503 }
504 }
505
506 for my $ext (keys %want_ext) {
486 my @files = grep -f $_, map "$_/$ext", @dirs; 507 my @files = grep -f $_, map "$_/$ext", @dirs;
487 508
488 if (@files) { 509 if (@files) {
489 register_package extension_package $files[0]; 510 register_package extension_package $files[0];
490 } else { 511 } else {
491 warn "perl extension '$ext' not found in perl library search path\n"; 512 warn "perl extension '$ext' not found in perl library search path\n";
492 } 513 }
493 } 514 }
515
516 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
517 warn $@ if $@;
494 } 518 }
495 519
496 $retval = undef; 520 $retval = undef;
497 521
498 if (my $cb = $TERM->{_hook}[$htype]) { 522 if (my $cb = $TERM->{_hook}[$htype]) {
… …
533 } 557 }
534 558
535 $retval 559 $retval
536} 560}
537 561
562# urxvt::term::proxy
563
538sub urxvt::term::proxy::AUTOLOAD { 564sub urxvt::term::proxy::AUTOLOAD {
539 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 565 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
540 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 566 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
541 567
542 eval qq{ 568 eval qq{
… …
548 } or die "FATAL: unable to compile method forwarder: $@"; 574 } or die "FATAL: unable to compile method forwarder: $@";
549 575
550 goto &$urxvt::term::proxy::AUTOLOAD; 576 goto &$urxvt::term::proxy::AUTOLOAD;
551} 577}
552 578
579# urxvt::destroy_hook
580
553sub urxvt::destroy_hook::DESTROY { 581sub urxvt::destroy_hook::DESTROY {
554 ${$_[0]}->(); 582 ${$_[0]}->();
555} 583}
556 584
557sub urxvt::destroy_hook(&) { 585sub urxvt::destroy_hook(&) {
558 bless \shift, urxvt::destroy_hook:: 586 bless \shift, urxvt::destroy_hook::
559} 587}
560 588
589package urxvt::anyevent;
590
591=head2 The C<urxvt::anyevent> Class
592
593The sole purpose of this class is to deliver an interface to the
594C<AnyEvent> module - any module using it will work inside urxvt without
595further work. The only exception is that you cannot wait on condition
596variables, but non-blocking condvar use is ok. What this means is that you
597cannot use blocking APIs, but the non-blocking variant should work.
598
599=cut
600
601our $VERSION = 1;
602
603$INC{"urxvt/anyevent.pm"} = 1; # mark us as there
604push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
605
606sub timer {
607 my ($class, %arg) = @_;
608
609 my $cb = $arg{cb};
610
611 urxvt::timer
612 ->new
613 ->start (urxvt::NOW + $arg{after})
614 ->cb (sub {
615 $_[0]->stop; # need to cancel manually
616 $cb->();
617 })
618}
619
620sub io {
621 my ($class, %arg) = @_;
622
623 my $cb = $arg{cb};
624
625 bless [$arg{fh}, urxvt::iow
626 ->new
627 ->fd (fileno $arg{fh})
628 ->events (($arg{poll} =~ /r/ ? 1 : 0)
629 | ($arg{poll} =~ /w/ ? 2 : 0))
630 ->start
631 ->cb (sub {
632 $cb->(($_[1] & 1 ? 'r' : '')
633 . ($_[1] & 2 ? 'w' : ''));
634 })],
635 urxvt::anyevent::
636}
637
638sub DESTROY {
639 $_[0][1]->stop;
640}
641
642sub condvar {
643 bless \my $flag, urxvt::anyevent::condvar::
644}
645
646sub urxvt::anyevent::condvar::broadcast {
647 ${$_[0]}++;
648}
649
650sub urxvt::anyevent::condvar::wait {
651 unless (${$_[0]}) {
652 require Carp;
653 Carp::croak ("AnyEvent->condvar blocking wait unsupported in urxvt, use a non-blocking API");
654 }
655}
656
657package urxvt::term;
658
561=head2 The C<urxvt::term> Class 659=head2 The C<urxvt::term> Class
562 660
563=over 4 661=over 4
564 662
565=item $term->destroy 663=item $term->destroy
566 664
567Destroy the terminal object (close the window, free resources etc.). 665Destroy the terminal object (close the window, free resources etc.).
666
667=item $isset = $term->option ($optval[, $set])
668
669Returns true if the option specified by C<$optval> is enabled, and
670optionally change it. All option values are stored by name in the hash
671C<%urxvt::OPTION>. Options not enabled in this binary are not in the hash.
672
673Here is a a likely non-exhaustive list of option names, please see the
674source file F</src/optinc.h> to see the actual list:
675
676 borderLess console cursorBlink cursorUnderline hold iconic insecure
677 intensityStyles jumpScroll loginShell mapAlert meta8 mouseWheelScrollPage
678 pastableTabs pointerBlank reverseVideo scrollBar scrollBar_floating
679 scrollBar_right scrollTtyKeypress scrollTtyOutput scrollWithBuffer
680 secondaryScreen secondaryScroll skipBuiltinGlyphs transparent
681 tripleclickwords utmpInhibit visualBell
568 682
569=item $value = $term->resource ($name[, $newval]) 683=item $value = $term->resource ($name[, $newval])
570 684
571Returns the current resource value associated with a given name and 685Returns the current resource value associated with a given name and
572optionally sets a new value. Setting values is most useful in the C<init> 686optionally sets a new value. Setting values is most useful in the C<init>
… …
582 696
583Please note that resource strings will currently only be freed when the 697Please note that resource strings will currently only be freed when the
584terminal is destroyed, so changing options frequently will eat memory. 698terminal is destroyed, so changing options frequently will eat memory.
585 699
586Here is a a likely non-exhaustive list of resource names, not all of which 700Here 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 701are supported in every build, please see the source file F</src/rsinc.h>
588list: 702to see the actual list:
589 703
590 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 704 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
591 borderLess color cursorBlink cursorUnderline cutchars delete_key 705 borderLess color cursorBlink cursorUnderline cutchars delete_key
592 display_name embed ext_bwidth fade font geometry hold iconName 706 display_name embed ext_bwidth fade font geometry hold iconName
593 imFont imLocale inputMethod insecure int_bwidth intensityStyles 707 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
600 shade term_name title transparent transparent_all tripleclickwords 714 shade term_name title transparent transparent_all tripleclickwords
601 utmpInhibit visualBell 715 utmpInhibit visualBell
602 716
603=cut 717=cut
604 718
605sub urxvt::term::resource($$;$) { 719sub resource($$;$) {
606 my ($self, $name) = (shift, shift); 720 my ($self, $name) = (shift, shift);
607 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 721 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
608 &urxvt::term::_resource 722 &urxvt::term::_resource
609} 723}
610 724
… …
697C<$event> I<must> be the event causing the menu to pop up (a button event, 811C<$event> I<must> be the event causing the menu to pop up (a button event,
698currently). 812currently).
699 813
700=cut 814=cut
701 815
702sub urxvt::term::popup { 816sub popup {
703 my ($self, $event) = @_; 817 my ($self, $event) = @_;
704 818
705 $self->grab ($event->{time}, 1) 819 $self->grab ($event->{time}, 1)
706 or return; 820 or return;
707 821
… …
897 1011
898=back 1012=back
899 1013
900=cut 1014=cut
901 1015
902sub urxvt::term::line { 1016sub line {
903 my ($self, $row) = @_; 1017 my ($self, $row) = @_;
904 1018
905 my $maxrow = $self->nrow - 1; 1019 my $maxrow = $self->nrow - 1;
906 1020
907 my ($beg, $end) = ($row, $row); 1021 my ($beg, $end) = ($row, $row);
… …
985Converts rxvt-unicodes text reprsentation into a perl string. See 1099Converts rxvt-unicodes text reprsentation into a perl string. See
986C<< $term->ROW_t >> for details. 1100C<< $term->ROW_t >> for details.
987 1101
988=back 1102=back
989 1103
1104=cut
1105
1106package urxvt::popup;
1107
990=head2 The C<urxvt::popup> Class 1108=head2 The C<urxvt::popup> Class
991 1109
992=over 4 1110=over 4
993 1111
994=cut 1112=cut
995
996package urxvt::popup;
997 1113
998sub add_item { 1114sub add_item {
999 my ($self, $item) = @_; 1115 my ($self, $item) = @_;
1000 1116
1117 $item->{rend}{normal} = "\x1b[0;30;47m" unless exists $item->{rend}{normal};
1118 $item->{rend}{hover} = "\x1b[0;30;46m" unless exists $item->{rend}{hover};
1119 $item->{rend}{active} = "\x1b[m" unless exists $item->{rend}{active};
1120
1121 $item->{render} ||= sub { $_[0]{text} };
1122
1001 push @{ $self->{item} }, $item; 1123 push @{ $self->{item} }, $item;
1124}
1125
1126sub add_separator {
1127 my ($self, $sep) = @_;
1128
1129 $sep ||= "═";
1130
1131 $self->add_item ({
1132 rend => { normal => "\x1b[0;30;47m", hover => "\x1b[0;30;47m", active => "\x1b[0;30;47m" },
1133 text => "",
1134 render => sub { $sep x $urxvt::TERM->ncol },
1135 activate => sub { },
1136 });
1137}
1138
1139sub add_title {
1140 my ($self, $title) = @_;
1141
1142 $self->add_item ({
1143 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
1144 text => $title,
1145 activate => sub { },
1146 });
1002} 1147}
1003 1148
1004sub add_button { 1149sub add_button {
1005 my ($self, $text, $cb) = @_; 1150 my ($self, $text, $cb) = @_;
1006 1151
1007 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb, 1152 $self->add_item ({ type => "button", text => "[ $text ]", activate => $cb});
1008 render => sub { $_[0]{text} },
1009 });
1010} 1153}
1011 1154
1012sub add_toggle { 1155sub add_toggle {
1013 my ($self, $text, $cb, $value) = @_; 1156 my ($self, $text, $cb, $value) = @_;
1014 1157
1015 $self->add_item ({ type => "button", text => " $text", value => $value, 1158 my $item; $item = {
1159 type => "button",
1160 text => " $text",
1161 value => $value,
1016 render => sub { ($_[0]{value} ? "✔" : " ") . substr $_[0]{text}, 1 }, 1162 render => sub { ($item->{value} ? "* " : " ") . $text },
1017 activate => sub { $cb->($_[0]{value} = !$_[0]{value}); }, 1163 activate => sub { $cb->($item->{value} = !$item->{value}); },
1018 }); 1164 };
1165
1166 $self->add_item ($item);
1019} 1167}
1020 1168
1021sub show { 1169sub show {
1022 my ($self) = @_; 1170 my ($self) = @_;
1023 1171

Diff Legend

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