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.45 by root, Sat Jan 7 20:23:52 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
… …
331 336
332=item $time = urxvt::NOW 337=item $time = urxvt::NOW
333 338
334Returns the "current time" (as per the event loop). 339Returns the "current time" (as per the event loop).
335 340
341=item urxvt::CurrentTime
342
343=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
344Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
345Button4Mask, Button5Mask, AnyModifier
346
347Various constants for use in X calls and event processing.
348
336=back 349=back
337 350
338=head2 RENDITION 351=head2 RENDITION
339 352
340Rendition bitsets contain information about colour, font, font styles and 353Rendition bitsets contain information about colour, font, font styles and
… …
389 402
390=cut 403=cut
391 404
392package urxvt; 405package urxvt;
393 406
407use utf8;
394use strict; 408use strict;
395use Scalar::Util (); 409use Scalar::Util ();
410use List::Util ();
396 411
412our $VERSION = 1;
397our $TERM; 413our $TERM;
398our @HOOKNAME; 414our @HOOKNAME;
415our %OPTION;
399our $LIBDIR; 416our $LIBDIR;
400 417
401BEGIN { 418BEGIN {
402 urxvt->bootstrap; 419 urxvt->bootstrap;
403 420
… …
469 local $TERM = shift; 486 local $TERM = shift;
470 my $htype = shift; 487 my $htype = shift;
471 488
472 if ($htype == 0) { # INIT 489 if ($htype == 0) { # INIT
473 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl"); 490 my @dirs = ((split /:/, $TERM->resource ("perl_lib")), "$LIBDIR/perl");
491
492 my %want_ext;
474 493
475 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) {
476 my @files = grep -f $_, map "$_/$ext", @dirs; 505 my @files = grep -f $_, map "$_/$ext", @dirs;
477 506
478 if (@files) { 507 if (@files) {
479 register_package extension_package $files[0]; 508 register_package extension_package $files[0];
480 } else { 509 } else {
481 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";
482 } 511 }
483 } 512 }
513
514 eval "#line 1 \"--perl-eval resource/argument\"\n" . $TERM->resource ("perl_eval");
515 warn $@ if $@;
484 } 516 }
485 517
486 $retval = undef; 518 $retval = undef;
487 519
488 if (my $cb = $TERM->{_hook}[$htype]) { 520 if (my $cb = $TERM->{_hook}[$htype]) {
… …
523 } 555 }
524 556
525 $retval 557 $retval
526} 558}
527 559
560# urxvt::term::proxy
561
528sub urxvt::term::proxy::AUTOLOAD { 562sub urxvt::term::proxy::AUTOLOAD {
529 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/ 563 $urxvt::term::proxy::AUTOLOAD =~ /:([^:]+)$/
530 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable"; 564 or die "FATAL: \$AUTOLOAD '$urxvt::term::proxy::AUTOLOAD' unparsable";
531 565
532 eval qq{ 566 eval qq{
… …
538 } or die "FATAL: unable to compile method forwarder: $@"; 572 } or die "FATAL: unable to compile method forwarder: $@";
539 573
540 goto &$urxvt::term::proxy::AUTOLOAD; 574 goto &$urxvt::term::proxy::AUTOLOAD;
541} 575}
542 576
577# urxvt::destroy_hook
578
543sub urxvt::destroy_hook::DESTROY { 579sub urxvt::destroy_hook::DESTROY {
544 ${$_[0]}->(); 580 ${$_[0]}->();
545} 581}
546 582
547sub urxvt::destroy_hook(&) { 583sub urxvt::destroy_hook(&) {
548 bless \shift, urxvt::destroy_hook:: 584 bless \shift, urxvt::destroy_hook::
549} 585}
550 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
551=head2 The C<urxvt::term> Class 649=head2 The C<urxvt::term> Class
552 650
553=over 4 651=over 4
554 652
555=item $term->destroy 653=item $term->destroy
556 654
557Destroy 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
558 672
559=item $value = $term->resource ($name[, $newval]) 673=item $value = $term->resource ($name[, $newval])
560 674
561Returns the current resource value associated with a given name and 675Returns the current resource value associated with a given name and
562optionally 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>
… …
572 686
573Please note that resource strings will currently only be freed when the 687Please note that resource strings will currently only be freed when the
574terminal is destroyed, so changing options frequently will eat memory. 688terminal is destroyed, so changing options frequently will eat memory.
575 689
576Here 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
577are 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>
578list: 692to see the actual list:
579 693
580 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont 694 answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
581 borderLess color cursorBlink cursorUnderline cutchars delete_key 695 borderLess color cursorBlink cursorUnderline cutchars delete_key
582 display_name embed ext_bwidth fade font geometry hold iconName 696 display_name embed ext_bwidth fade font geometry hold iconName
583 imFont imLocale inputMethod insecure int_bwidth intensityStyles 697 imFont imLocale inputMethod insecure int_bwidth intensityStyles
… …
590 shade term_name title transparent transparent_all tripleclickwords 704 shade term_name title transparent transparent_all tripleclickwords
591 utmpInhibit visualBell 705 utmpInhibit visualBell
592 706
593=cut 707=cut
594 708
595sub urxvt::term::resource($$;$) { 709sub resource($$;$) {
596 my ($self, $name) = (shift, shift); 710 my ($self, $name) = (shift, shift);
597 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 711 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
598 &urxvt::term::_resource 712 &urxvt::term::_resource
599} 713}
600 714
… …
687C<$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,
688currently). 802currently).
689 803
690=cut 804=cut
691 805
692sub urxvt::term::popup { 806sub popup {
693 my ($self, $event) = @_; 807 my ($self, $event) = @_;
694 808
695 $self->grab ($event->{time}, 1) 809 $self->grab ($event->{time}, 1)
696 or return; 810 or return;
697 811
… …
775=item $nrow_plus_saveLines = $term->total_rows 889=item $nrow_plus_saveLines = $term->total_rows
776 890
777=item $lines_in_scrollback = $term->nsaved 891=item $lines_in_scrollback = $term->nsaved
778 892
779Return various integers describing terminal characteristics. 893Return various integers describing terminal characteristics.
894
895=item $modifiermask = $term->ModLevel3Mask
896
897=item $modifiermask = $term->ModMetaMask
898
899=item $modifiermask = $term->ModNumLockMask
900
901Return the modifier masks corresponding to the "ISO Level 3 Shift" (often
902AltGr), the meta key (often Alt) and the num lock key, if applicable.
780 903
781=item $view_start = $term->view_start ([$newvalue]) 904=item $view_start = $term->view_start ([$newvalue])
782 905
783Returns the negative row number of the topmost line. Minimum value is 906Returns the negative row number of the topmost line. Minimum value is
784C<0>, which displays the normal terminal contents. Larger values scroll 907C<0>, which displays the normal terminal contents. Larger values scroll
… …
878 1001
879=back 1002=back
880 1003
881=cut 1004=cut
882 1005
883sub urxvt::term::line { 1006sub line {
884 my ($self, $row) = @_; 1007 my ($self, $row) = @_;
885 1008
886 my $maxrow = $self->nrow - 1; 1009 my $maxrow = $self->nrow - 1;
887 1010
888 my ($beg, $end) = ($row, $row); 1011 my ($beg, $end) = ($row, $row);
… …
966Converts rxvt-unicodes text reprsentation into a perl string. See 1089Converts rxvt-unicodes text reprsentation into a perl string. See
967C<< $term->ROW_t >> for details. 1090C<< $term->ROW_t >> for details.
968 1091
969=back 1092=back
970 1093
1094=cut
1095
1096package urxvt::popup;
1097
971=head2 The C<urxvt::popup> Class 1098=head2 The C<urxvt::popup> Class
972 1099
973=over 4 1100=over 4
974 1101
975=cut 1102=cut
976
977package urxvt::popup;
978 1103
979sub add_item { 1104sub add_item {
980 my ($self, $item) = @_; 1105 my ($self, $item) = @_;
981 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
982 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 });
983} 1137}
984 1138
985sub add_button { 1139sub add_button {
986 my ($self, $text, $cb) = @_; 1140 my ($self, $text, $cb) = @_;
987 1141
988 $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);
989} 1157}
990 1158
991sub show { 1159sub show {
992 my ($self) = @_; 1160 my ($self) = @_;
993 1161
994 local $urxvt::popup::self = $self; 1162 local $urxvt::popup::self = $self;
995 1163
996 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1164 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
997 "--transient-for" => $self->{term}->parent, 1165 "--transient-for" => $self->{term}->parent,
998 "-pe" => "urxvt_popup") 1166 "-pe" => "urxvt-popup")
999 or die "unable to create popup window\n"; 1167 or die "unable to create popup window\n";
1000} 1168}
1001 1169
1002sub DESTROY { 1170sub DESTROY {
1003 my ($self) = @_; 1171 my ($self) = @_;

Diff Legend

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