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.234 by root, Sat May 17 15:25:04 2014 UTC vs.
Revision 1.255 by root, Wed Jun 17 11:59:37 2015 UTC

43 43
44Or by adding them to the resource for extensions loaded by default: 44Or by adding them to the resource for extensions loaded by default:
45 45
46 URxvt.perl-ext-common: default,selection-autotransform 46 URxvt.perl-ext-common: default,selection-autotransform
47 47
48Extensions that add command line parameters or resources on their own are 48Extensions may add additional resources and C<actions>, i.e., methods
49loaded automatically when used. 49which can be bound to a key and invoked by the user. An extension can
50define the resources it support using so called META comments,
51described below. Similarly to builtin resources, extension resources
52can also be specified on the command line as long options (with C<.>
53replaced by C<->), in which case the corresponding extension is loaded
54automatically. For this to work the extension B<must> define META
55comments for its resources.
50 56
51=head1 API DOCUMENTATION 57=head1 API DOCUMENTATION
52 58
53=head2 General API Considerations 59=head2 General API Considerations
54 60
106C<urxvt::term> class on this object. 112C<urxvt::term> class on this object.
107 113
108Additional methods only supported for extension objects are described in 114Additional methods only supported for extension objects are described in
109the C<urxvt::extension> section below. 115the C<urxvt::extension> section below.
110 116
117=head2 META comments
118
119Rxvt-unicode recognizes special meta comments in extensions that define
120different types of metadata.
121
122Currently, it recognises only one such comment:
123
124=over 4
125
126=item #:META:RESOURCE:name:type:desc
127
128The RESOURCE comment defines a resource used by the extension, where
129C<name> is the resource name, C<type> is the resource type, C<boolean>
130or C<string>, and C<desc> is the resource description.
131
132=back
133
111=head2 Hooks 134=head2 Hooks
112 135
113The following subroutines can be declared in extension files, and will be 136The following subroutines can be declared in extension files, and will be
114called whenever the relevant event happens. 137called whenever the relevant event happens.
115 138
281 304
282=item on_refresh_end $term 305=item on_refresh_end $term
283 306
284Called just after the screen gets redrawn. See C<on_refresh_begin>. 307Called just after the screen gets redrawn. See C<on_refresh_begin>.
285 308
309=item on_action $term, $string
310
311Called whenever an action is invoked for the corresponding extension
312(e.g. via a C<extension:string> builtin action bound to a key, see
313description of the B<keysym> resource in the urxvt(1) manpage). The
314event is simply the action string. Note that an action event is always
315associated to a single extension.
316
286=item on_user_command $term, $string *DEPRECATED* 317=item on_user_command $term, $string *DEPRECATED*
287 318
288Called whenever a user-configured event is being activated (e.g. via 319Called whenever a user-configured event is being activated (e.g. via
289a C<perl:string> action bound to a key, see description of the B<keysym> 320a C<perl:string> action bound to a key, see description of the B<keysym>
290resource in the urxvt(1) manpage). 321resource in the urxvt(1) manpage).
291 322
292The event is simply the action string. This interface is going away in 323The event is simply the action string. This interface is going away in
293preference to the C<< ->register_keysym_action >> method. 324preference to the C<on_action> hook.
294 325
295=item on_resize_all_windows $term, $new_width, $new_height 326=item on_resize_all_windows $term, $new_width, $new_height
296 327
297Called just after the new window size has been calculated, but before 328Called just after the new window size has been calculated, but before
298windows are actually being resized or hints are being set. If this hook 329windows are actually being resized or hints are being set. If this hook
555no warnings 'utf8'; 586no warnings 'utf8';
556 587
557sub parse_resource { 588sub parse_resource {
558 my ($term, $name, $isarg, $longopt, $flag, $value) = @_; 589 my ($term, $name, $isarg, $longopt, $flag, $value) = @_;
559 590
560 $name =~ y/-/./ if $isarg;
561
562 $term->scan_extensions; 591 $term->scan_extensions;
563 592
564 my $r = $term->{meta}{resource}; 593 my $r = $term->{meta}{resource};
565 keys %$r; # reset iterator 594 keys %$r; # reset iterator
566 while (my ($pattern, $v) = each %$r) { 595 while (my ($k, $v) = each %$r) {
567 if ( 596 my $pattern = $k;
597 $pattern =~ y/./-/ if $isarg;
598 my $prefix = $name;
599 my $suffix;
568 $pattern =~ /\.$/ 600 if ($pattern =~ /\-$/) {
569 ? $pattern eq substr $name, 0, length $pattern 601 $prefix = substr $name, 0, length $pattern;
570 : $pattern eq $name 602 $suffix = substr $name, length $pattern;
571 ) { 603 }
604 if ($pattern eq $prefix) {
572 $name = "$urxvt::RESCLASS.$name"; 605 $name = "$urxvt::RESCLASS.$k$suffix";
573 606
574 push @{ $term->{perl_ext_3} }, $v->[0]; 607 push @{ $term->{perl_ext_3} }, $v->[0];
575 608
576 if ($v->[1] eq "boolean") { 609 if ($v->[1] eq "boolean") {
577 $term->put_option_db ($name, $flag ? "true" : "false"); 610 $term->put_option_db ($name, $flag ? "true" : "false");
675 @TERM_EXT = (); 708 @TERM_EXT = ();
676 $TERM->register_package ($_) for @pkg; 709 $TERM->register_package ($_) for @pkg;
677 } 710 }
678 711
679 for ( 712 for (
713 (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2),
680 @{ delete $TERM->{perl_ext_3} }, 714 @{ delete $TERM->{perl_ext_3} }
681 grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2
682 ) { 715 ) {
683 if ($_ eq "default") { 716 if ($_ eq "default") {
717
718 $ext_arg{$_} = []
684 $ext_arg{$_} ||= [] for qw(selection option-popup selection-popup searchable-scrollback readline); 719 for qw(selection option-popup selection-popup readline searchable-scrollback);
720
721 for ($TERM->_keysym_resources) {
722 next if /^(?:string|command|builtin|builtin-string|perl)/;
723 next unless /^([A-Za-z0-9_\-]+):/;
724
725 my $ext = $1;
726
727 $ext_arg{$ext} = [];
728 }
729
685 } elsif (/^-(.*)$/) { 730 } elsif (/^-(.*)$/) {
686 delete $ext_arg{$1}; 731 delete $ext_arg{$1};
732
687 } elsif (/^([^<]+)<(.*)>$/) { 733 } elsif (/^([^<]+)<(.*)>$/) {
688 push @{ $ext_arg{$1} }, $2; 734 push @{ $ext_arg{$1} }, $2;
735
689 } else { 736 } else {
690 $ext_arg{$_} ||= []; 737 $ext_arg{$_} ||= [];
691 } 738 }
692 } 739 }
693 740
918 } 965 }
919 966
920 bless \%disable, "urxvt::extension::on_disable" 967 bless \%disable, "urxvt::extension::on_disable"
921} 968}
922 969
970=item $self->bind_action ($hotkey, $action)
971
923=item $self->x_resource ($pattern) 972=item $self->x_resource ($pattern)
924 973
925=item $self->x_resource_boolean ($pattern) 974=item $self->x_resource_boolean ($pattern)
926 975
927These methods support an additional C<%> prefix when called on an 976These methods support an additional C<%> prefix for C<$action> or
928extension object - see the description of these methods in the 977C<$pattern> when called on an extension object, compared to the
978C<urxvt::term> methods of the same name - see the description of these
929C<urxvt::term> class for details. 979methods in the C<urxvt::term> class for details.
930 980
931=cut 981=cut
982
983sub bind_action {
984 my ($self, $hotkey, $action) = @_;
985 $action =~ s/^%:/$_[0]{_name}:/;
986 $self->{term}->bind_action ($hotkey, $action)
987}
932 988
933sub x_resource { 989sub x_resource {
934 my ($self, $name) = @_; 990 my ($self, $name) = @_;
935 $name =~ s/^%(\.|$)/$_[0]{_name}$1/; 991 $name =~ s/^%(\.|$)/$_[0]{_name}$1/;
936 $self->{term}->x_resource ($name) 992 $self->{term}->x_resource ($name)
1077sub scan_extensions { 1133sub scan_extensions {
1078 my ($self) = @_; 1134 my ($self) = @_;
1079 1135
1080 return if exists $self->{meta}; 1136 return if exists $self->{meta};
1081 1137
1082 my @libdirs = perl_libdirs $self; 1138 my @urxvtdirs = perl_libdirs $self;
1139# my @cpandirs = grep -d, map "$_/URxvt/Ext", @INC;
1083 1140
1084 return if $self->{meta_libdirs} eq join "\x00", @libdirs;
1085
1086 my %meta;
1087
1088 $self->{meta_libdirs} = join "\x00", @libdirs;
1089 $self->{meta} = \%meta; 1141 $self->{meta} = \my %meta;
1090
1091 my %ext;
1092 1142
1093 # first gather extensions 1143 # first gather extensions
1094 for my $dir (reverse @libdirs) { 1144
1145 my $gather = sub {
1146 my ($dir, $core) = @_;
1147
1095 opendir my $fh, $dir 1148 opendir my $fh, $dir
1096 or next; 1149 or return;
1150
1097 for my $ext (readdir $fh) { 1151 for my $ext (readdir $fh) {
1098 $ext !~ /^\./ 1152 $ext !~ /^\./
1153 or next;
1154
1099 and open my $fh, "<", "$dir/$ext" 1155 open my $fh, "<", "$dir/$ext"
1156 or next;
1157
1158 -f $fh
1159 or next;
1160
1161 $ext =~ s/\.uext$// or $core
1100 or next; 1162 or next;
1101 1163
1102 my %ext = (dir => $dir); 1164 my %ext = (dir => $dir);
1103 1165
1104 while (<$fh>) { 1166 while (<$fh>) {
1108 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { 1170 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) {
1109 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; 1171 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n";
1110 } else { 1172 } else {
1111 $ext{resource}{$pattern} = [$ext, $type, $desc]; 1173 $ext{resource}{$pattern} = [$ext, $type, $desc];
1112 } 1174 }
1113 } elsif (/^#:META:BINDING:(.*)/) {
1114 my ($keysym, $action) = split /:/, $1;
1115 $ext{binding}{$keysym} = $action;
1116 } elsif (/^\s*(?:#|$)/) { 1175 } elsif (/^\s*(?:#|$)/) {
1117 # skip other comments and empty lines 1176 # skip other comments and empty lines
1118 } else { 1177 } else {
1119 last; # stop parsing on first non-empty non-comment line 1178 last; # stop parsing on first non-empty non-comment line
1120 } 1179 }
1121 } 1180 }
1122 1181
1123 $meta{$ext} = \%ext; 1182 $meta{ext}{$ext} = \%ext;
1124 } 1183 }
1125 } 1184 };
1126 1185
1186# $gather->($_, 0) for @cpandirs;
1187 $gather->($_, 1) for @urxvtdirs;
1188
1127 # and now merge resources and bindings 1189 # and now merge resources
1190
1191 $meta{resource} = \my %resource;
1192
1128 while (my ($k, $v) = each %ext) { 1193 while (my ($k, $v) = each %{ $meta{ext} }) {
1129 #TODO: should check for extensions overriding each other 1194 #TODO: should check for extensions overriding each other
1130 %{ $meta{resource} } = (%{ $meta{resource} }, %{ $v->{resource} }); 1195 %resource = (%resource, %{ $v->{resource} });
1131 %{ $meta{binding} } = (%{ $meta{binding} }, %{ $v->{binding} });
1132 } 1196 }
1133} 1197}
1134 1198
1135=item $term = new urxvt::term $envhashref, $rxvtname, [arg...] 1199=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
1136 1200
1252Returns the X-Resource for the given pattern, excluding the program or 1316Returns the X-Resource for the given pattern, excluding the program or
1253class name, i.e. C<< $term->x_resource ("boldFont") >> should return the 1317class name, i.e. C<< $term->x_resource ("boldFont") >> should return the
1254same value as used by this instance of rxvt-unicode. Returns C<undef> if no 1318same value as used by this instance of rxvt-unicode. Returns C<undef> if no
1255resource with that pattern exists. 1319resource with that pattern exists.
1256 1320
1257Extensions that define extra resource or command line arguments also need 1321Extensions that define extra resources also need to call this method
1258to call this method to access their values. 1322to access their values.
1259 1323
1260If the method is called on an extension object (basically, from an 1324If the method is called on an extension object (basically, from an
1261extension), then the special prefix C<%.> will be replaced by the name of 1325extension), then the special prefix C<%.> will be replaced by the name of
1262the extension and a dot, and the lone string C<%> will be replaced by the 1326the extension and a dot, and the lone string C<%> will be replaced by the
1263extension name itself. This makes it possible to code extensions so you 1327extension name itself. This makes it possible to code extensions so you
1264can rename them and get a new set of commandline switches and resources 1328can rename them and get a new set of resources without having to change
1265without having to change the actual code. 1329the actual code.
1266 1330
1267This method should only be called during the C<on_start> hook, as there is 1331This method should only be called during the C<on_start> hook, as there is
1268only one resource database per display, and later invocations might return 1332only one resource database per display, and later invocations might return
1269the wrong resources. 1333the wrong resources.
1270 1334
1282 my $res = &x_resource; 1346 my $res = &x_resource;
1283 1347
1284 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0 1348 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0
1285} 1349}
1286 1350
1351=item $action = $term->lookup_keysym ($keysym, $state)
1352
1353Returns the action bound to key combination C<($keysym, $state)>,
1354if a binding for it exists, and C<undef> otherwise.
1355
1287=item $success = $term->bind_action ($key, $octets) 1356=item $success = $term->bind_action ($key, $action)
1288 1357
1289Adds a key binding exactly as specified via a C<keysym> resource. See the 1358Adds a key binding exactly as specified via a C<keysym> resource. See the
1290C<keysym> resource in the urxvt(1) manpage. 1359C<keysym> resource in the urxvt(1) manpage.
1360
1361To add default bindings for actions, an extension should call C<<
1362->bind_action >> in its C<init> hook for every such binding. Doing it
1363in the C<init> hook allows users to override or remove the binding
1364again.
1365
1366Example: the C<searchable-scrollback> by default binds itself
1367on C<Meta-s>, using C<< $self->bind_action >>, which calls C<<
1368$term->bind_action >>.
1369
1370 sub init {
1371 my ($self) = @_;
1372
1373 $self->bind_action ("M-s" => "%:start");
1374 }
1291 1375
1292=item $rend = $term->rstyle ([$new_rstyle]) 1376=item $rend = $term->rstyle ([$new_rstyle])
1293 1377
1294Return and optionally change the current rendition. Text that is output by 1378Return and optionally change the current rendition. Text that is output by
1295the terminal application will use this style. 1379the terminal application will use this style.
1453 1537
1454=item $term->scr_add_lines ($string) 1538=item $term->scr_add_lines ($string)
1455 1539
1456Write the given text string to the screen, as if output by the application 1540Write the given text string to the screen, as if output by the application
1457running inside the terminal. It may not contain command sequences (escape 1541running inside the terminal. It may not contain command sequences (escape
1458codes), but is free to use line feeds, carriage returns and tabs. The 1542codes - see C<cmd_parse> for that), but is free to use line feeds,
1459string is a normal text string, not in locale-dependent encoding. 1543carriage returns and tabs. The string is a normal text string, not in
1544locale-dependent encoding.
1460 1545
1461Normally its not a good idea to use this function, as programs might be 1546Normally its not a good idea to use this function, as programs might be
1462confused by changes in cursor position or scrolling. Its useful inside a 1547confused by changes in cursor position or scrolling. Its useful inside a
1463C<on_add_lines> hook, though. 1548C<on_add_lines> hook, though.
1464 1549
1472locale-specific encoding of the terminal and can contain command sequences 1557locale-specific encoding of the terminal and can contain command sequences
1473(escape codes) that will be interpreted. 1558(escape codes) that will be interpreted.
1474 1559
1475=item $term->tt_write ($octets) 1560=item $term->tt_write ($octets)
1476 1561
1477Write the octets given in C<$octets> to the tty (i.e. as program input). To 1562Write the octets given in C<$octets> to the tty (i.e. as user input
1563to the program, see C<cmd_parse> for the opposite direction). To pass
1478pass characters instead of octets, you should convert your strings first 1564characters instead of octets, you should convert your strings first to the
1479to the locale-specific encoding using C<< $term->locale_encode >>. 1565locale-specific encoding using C<< $term->locale_encode >>.
1480 1566
1481=item $term->tt_write_user_input ($octets) 1567=item $term->tt_write_user_input ($octets)
1482 1568
1483Like C<tt_write>, but should be used when writing strings in response to 1569Like C<tt_write>, but should be used when writing strings in response to
1484the user pressing a key, to invokes the additional actions requested by 1570the user pressing a key, to invoke the additional actions requested by
1485the user for that case (C<tt_write> doesn't do that). 1571the user for that case (C<tt_write> doesn't do that).
1486 1572
1487The typical use case would be inside C<on_action> hooks. 1573The typical use case would be inside C<on_action> hooks.
1488 1574
1489=item $term->tt_paste ($octets) 1575=item $term->tt_paste ($octets)
1531 1617
1532=item $term->key_release ($state, $keycode[, $time]) 1618=item $term->key_release ($state, $keycode[, $time])
1533 1619
1534Deliver various fake events to to terminal. 1620Deliver various fake events to to terminal.
1535 1621
1536=item $window_width = $term->width 1622=item $window_width = $term->width ([$new_value])
1537 1623
1538=item $window_height = $term->height 1624=item $window_height = $term->height ([$new_value])
1539 1625
1540=item $font_width = $term->fwidth 1626=item $font_width = $term->fwidth ([$new_value])
1541 1627
1542=item $font_height = $term->fheight 1628=item $font_height = $term->fheight ([$new_value])
1543 1629
1544=item $font_ascent = $term->fbase 1630=item $font_ascent = $term->fbase ([$new_value])
1545 1631
1546=item $terminal_rows = $term->nrow 1632=item $terminal_rows = $term->nrow ([$new_value])
1547 1633
1548=item $terminal_columns = $term->ncol 1634=item $terminal_columns = $term->ncol ([$new_value])
1549 1635
1550=item $has_focus = $term->focus 1636=item $has_focus = $term->focus ([$new_value])
1551 1637
1552=item $is_mapped = $term->mapped 1638=item $is_mapped = $term->mapped ([$new_value])
1553 1639
1554=item $max_scrollback = $term->saveLines 1640=item $max_scrollback = $term->saveLines ([$new_value])
1555 1641
1556=item $nrow_plus_saveLines = $term->total_rows 1642=item $nrow_plus_saveLines = $term->total_rows ([$new_value])
1557 1643
1558=item $topmost_scrollback_row = $term->top_row 1644=item $topmost_scrollback_row = $term->top_row ([$new_value])
1559 1645
1560Return various integers describing terminal characteristics. 1646Return various integers describing terminal characteristics. If an
1647argument is given, changes the value and returns the previous one.
1561 1648
1562=item $x_display = $term->display_id 1649=item $x_display = $term->display_id
1563 1650
1564Return the DISPLAY used by rxvt-unicode. 1651Return the DISPLAY used by rxvt-unicode.
1565 1652
1615Requests a screen refresh. At the next opportunity, rxvt-unicode will 1702Requests a screen refresh. At the next opportunity, rxvt-unicode will
1616compare the on-screen display with its stored representation. If they 1703compare the on-screen display with its stored representation. If they
1617differ, it redraws the differences. 1704differ, it redraws the differences.
1618 1705
1619Used after changing terminal contents to display them. 1706Used after changing terminal contents to display them.
1707
1708=item $term->refresh_check
1709
1710Checks if a refresh has been requested and, if so, schedules one.
1620 1711
1621=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]]) 1712=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])
1622 1713
1623Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >> 1714Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >>
1624is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost 1715is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines