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.238 by root, Sun May 18 18:15:04 2014 UTC vs.
Revision 1.256 by sf-exg, Thu Jul 14 05:10:06 2016 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
280code is run after this hook, and takes precedence. 303code is run after this hook, and takes precedence.
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>.
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.
285 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>
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];
608
609 return 1 unless $isarg;
575 610
576 if ($v->[1] eq "boolean") { 611 if ($v->[1] eq "boolean") {
577 $term->put_option_db ($name, $flag ? "true" : "false"); 612 $term->put_option_db ($name, $flag ? "true" : "false");
578 return 1; 613 return 1;
579 } else { 614 } else {
675 @TERM_EXT = (); 710 @TERM_EXT = ();
676 $TERM->register_package ($_) for @pkg; 711 $TERM->register_package ($_) for @pkg;
677 } 712 }
678 713
679 for ( 714 for (
680 grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 715 (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2),
716 @{ delete $TERM->{perl_ext_3} }
681 ) { 717 ) {
682 if ($_ eq "default") { 718 if ($_ eq "default") {
683 719
684 $ext_arg{$_} = [] 720 $ext_arg{$_} = []
685 for
686 qw(selection option-popup selection-popup readline), 721 for qw(selection option-popup selection-popup readline searchable-scrollback);
687 map $_->[0], values %{ $TERM->{meta}{binding} },
688 @{ delete $TERM->{perl_ext_3} };
689 722
690 for ($TERM->_keysym_resources) { 723 for ($TERM->_keysym_resources) {
691 next if /^(?:string|command|builtin|builtin-string|perl)/; 724 next if /^(?:string|command|builtin|builtin-string|perl)/;
692 next unless /^([A-Za-z0-9_\-]+):/; 725 next unless /^([A-Za-z0-9_\-]+):/;
693 726
694 my $ext = $1; 727 my $ext = $1;
695 $ext =~ y/-/_/;
696 728
697 $ext_arg{$ext} = []; 729 $ext_arg{$ext} = [];
698 } 730 }
699 731
700 } elsif (/^-(.*)$/) { 732 } elsif (/^-(.*)$/) {
703 } elsif (/^([^<]+)<(.*)>$/) { 735 } elsif (/^([^<]+)<(.*)>$/) {
704 push @{ $ext_arg{$1} }, $2; 736 push @{ $ext_arg{$1} }, $2;
705 737
706 } else { 738 } else {
707 $ext_arg{$_} ||= []; 739 $ext_arg{$_} ||= [];
708 }
709 }
710
711 # now register default key bindings
712 for my $ext (sort keys %ext_arg) {
713 while (my ($k, $v) = each %{ $TERM->{meta}{ext}{$ext}{binding} }) {
714 $TERM->bind_action ($k, "$v->[0]:$v->[1]");
715 } 740 }
716 } 741 }
717 742
718 for my $ext (sort keys %ext_arg) { 743 for my $ext (sort keys %ext_arg) {
719 my @files = grep -f $_, map "$_/$ext", @dirs; 744 my @files = grep -f $_, map "$_/$ext", @dirs;
942 } 967 }
943 968
944 bless \%disable, "urxvt::extension::on_disable" 969 bless \%disable, "urxvt::extension::on_disable"
945} 970}
946 971
972=item $self->bind_action ($hotkey, $action)
973
947=item $self->x_resource ($pattern) 974=item $self->x_resource ($pattern)
948 975
949=item $self->x_resource_boolean ($pattern) 976=item $self->x_resource_boolean ($pattern)
950 977
951These methods support an additional C<%> prefix when called on an 978These methods support an additional C<%> prefix for C<$action> or
952extension object - see the description of these methods in the 979C<$pattern> when called on an extension object, compared to the
980C<urxvt::term> methods of the same name - see the description of these
953C<urxvt::term> class for details. 981methods in the C<urxvt::term> class for details.
954 982
955=cut 983=cut
984
985sub bind_action {
986 my ($self, $hotkey, $action) = @_;
987 $action =~ s/^%:/$_[0]{_name}:/;
988 $self->{term}->bind_action ($hotkey, $action)
989}
956 990
957sub x_resource { 991sub x_resource {
958 my ($self, $name) = @_; 992 my ($self, $name) = @_;
959 $name =~ s/^%(\.|$)/$_[0]{_name}$1/; 993 $name =~ s/^%(\.|$)/$_[0]{_name}$1/;
960 $self->{term}->x_resource ($name) 994 $self->{term}->x_resource ($name)
1101sub scan_extensions { 1135sub scan_extensions {
1102 my ($self) = @_; 1136 my ($self) = @_;
1103 1137
1104 return if exists $self->{meta}; 1138 return if exists $self->{meta};
1105 1139
1106 my @libdirs = perl_libdirs $self; 1140 my @urxvtdirs = perl_libdirs $self;
1141# my @cpandirs = grep -d, map "$_/URxvt/Ext", @INC;
1107 1142
1108# return if $self->{meta_libdirs} eq join "\x00", @libdirs;#d#
1109
1110# $self->{meta_libdirs} = join "\x00", @libdirs;#d#
1111 $self->{meta} = \my %meta; 1143 $self->{meta} = \my %meta;
1112 1144
1113 # first gather extensions 1145 # first gather extensions
1114 for my $dir (reverse @libdirs) { 1146
1147 my $gather = sub {
1148 my ($dir, $core) = @_;
1149
1115 opendir my $fh, $dir 1150 opendir my $fh, $dir
1116 or next; 1151 or return;
1152
1117 for my $ext (readdir $fh) { 1153 for my $ext (readdir $fh) {
1118 $ext !~ /^\./ 1154 $ext !~ /^\./
1155 or next;
1156
1119 and open my $fh, "<", "$dir/$ext" 1157 open my $fh, "<", "$dir/$ext"
1158 or next;
1159
1160 -f $fh
1161 or next;
1162
1163 $ext =~ s/\.uext$// or $core
1120 or next; 1164 or next;
1121 1165
1122 my %ext = (dir => $dir); 1166 my %ext = (dir => $dir);
1123 1167
1124 while (<$fh>) { 1168 while (<$fh>) {
1128 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { 1172 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) {
1129 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; 1173 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n";
1130 } else { 1174 } else {
1131 $ext{resource}{$pattern} = [$ext, $type, $desc]; 1175 $ext{resource}{$pattern} = [$ext, $type, $desc];
1132 } 1176 }
1133 } elsif (/^#:META:BINDING:(.*)/) {
1134 my ($keysym, $action) = split /:/, $1;
1135 $ext{binding}{$keysym} = [$ext, $action];
1136 } elsif (/^\s*(?:#|$)/) { 1177 } elsif (/^\s*(?:#|$)/) {
1137 # skip other comments and empty lines 1178 # skip other comments and empty lines
1138 } else { 1179 } else {
1139 last; # stop parsing on first non-empty non-comment line 1180 last; # stop parsing on first non-empty non-comment line
1140 } 1181 }
1141 } 1182 }
1142 1183
1143 $meta{ext}{$ext} = \%ext; 1184 $meta{ext}{$ext} = \%ext;
1144 } 1185 }
1145 } 1186 };
1146 1187
1188# $gather->($_, 0) for @cpandirs;
1189 $gather->($_, 1) for @urxvtdirs;
1190
1147 # and now merge resources and bindings 1191 # and now merge resources
1192
1193 $meta{resource} = \my %resource;
1194
1148 while (my ($k, $v) = each %{ $meta{ext} }) { 1195 while (my ($k, $v) = each %{ $meta{ext} }) {
1149 #TODO: should check for extensions overriding each other 1196 #TODO: should check for extensions overriding each other
1150 %{ $meta{resource} } = (%{ $meta{resource} }, %{ $v->{resource} }); 1197 %resource = (%resource, %{ $v->{resource} });
1151 %{ $meta{binding} } = (%{ $meta{binding} }, %{ $v->{binding} });
1152 } 1198 }
1153} 1199}
1154 1200
1155=item $term = new urxvt::term $envhashref, $rxvtname, [arg...] 1201=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
1156 1202
1272Returns the X-Resource for the given pattern, excluding the program or 1318Returns the X-Resource for the given pattern, excluding the program or
1273class name, i.e. C<< $term->x_resource ("boldFont") >> should return the 1319class name, i.e. C<< $term->x_resource ("boldFont") >> should return the
1274same value as used by this instance of rxvt-unicode. Returns C<undef> if no 1320same value as used by this instance of rxvt-unicode. Returns C<undef> if no
1275resource with that pattern exists. 1321resource with that pattern exists.
1276 1322
1277Extensions that define extra resource or command line arguments also need 1323Extensions that define extra resources also need to call this method
1278to call this method to access their values. 1324to access their values.
1279 1325
1280If the method is called on an extension object (basically, from an 1326If the method is called on an extension object (basically, from an
1281extension), then the special prefix C<%.> will be replaced by the name of 1327extension), then the special prefix C<%.> will be replaced by the name of
1282the extension and a dot, and the lone string C<%> will be replaced by the 1328the extension and a dot, and the lone string C<%> will be replaced by the
1283extension name itself. This makes it possible to code extensions so you 1329extension name itself. This makes it possible to code extensions so you
1284can rename them and get a new set of commandline switches and resources 1330can rename them and get a new set of resources without having to change
1285without having to change the actual code. 1331the actual code.
1286 1332
1287This method should only be called during the C<on_start> hook, as there is 1333This method should only be called during the C<on_start> hook, as there is
1288only one resource database per display, and later invocations might return 1334only one resource database per display, and later invocations might return
1289the wrong resources. 1335the wrong resources.
1290 1336
1302 my $res = &x_resource; 1348 my $res = &x_resource;
1303 1349
1304 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0 1350 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0
1305} 1351}
1306 1352
1353=item $action = $term->lookup_keysym ($keysym, $state)
1354
1355Returns the action bound to key combination C<($keysym, $state)>,
1356if a binding for it exists, and C<undef> otherwise.
1357
1307=item $success = $term->bind_action ($key, $octets) 1358=item $success = $term->bind_action ($key, $action)
1308 1359
1309Adds a key binding exactly as specified via a C<keysym> resource. See the 1360Adds a key binding exactly as specified via a C<keysym> resource. See the
1310C<keysym> resource in the urxvt(1) manpage. 1361C<keysym> resource in the urxvt(1) manpage.
1362
1363To add default bindings for actions, an extension should call C<<
1364->bind_action >> in its C<init> hook for every such binding. Doing it
1365in the C<init> hook allows users to override or remove the binding
1366again.
1367
1368Example: the C<searchable-scrollback> by default binds itself
1369on C<Meta-s>, using C<< $self->bind_action >>, which calls C<<
1370$term->bind_action >>.
1371
1372 sub init {
1373 my ($self) = @_;
1374
1375 $self->bind_action ("M-s" => "%:start");
1376 }
1311 1377
1312=item $rend = $term->rstyle ([$new_rstyle]) 1378=item $rend = $term->rstyle ([$new_rstyle])
1313 1379
1314Return and optionally change the current rendition. Text that is output by 1380Return and optionally change the current rendition. Text that is output by
1315the terminal application will use this style. 1381the terminal application will use this style.
1473 1539
1474=item $term->scr_add_lines ($string) 1540=item $term->scr_add_lines ($string)
1475 1541
1476Write the given text string to the screen, as if output by the application 1542Write the given text string to the screen, as if output by the application
1477running inside the terminal. It may not contain command sequences (escape 1543running inside the terminal. It may not contain command sequences (escape
1478codes), but is free to use line feeds, carriage returns and tabs. The 1544codes - see C<cmd_parse> for that), but is free to use line feeds,
1479string is a normal text string, not in locale-dependent encoding. 1545carriage returns and tabs. The string is a normal text string, not in
1546locale-dependent encoding.
1480 1547
1481Normally its not a good idea to use this function, as programs might be 1548Normally its not a good idea to use this function, as programs might be
1482confused by changes in cursor position or scrolling. Its useful inside a 1549confused by changes in cursor position or scrolling. Its useful inside a
1483C<on_add_lines> hook, though. 1550C<on_add_lines> hook, though.
1484 1551
1492locale-specific encoding of the terminal and can contain command sequences 1559locale-specific encoding of the terminal and can contain command sequences
1493(escape codes) that will be interpreted. 1560(escape codes) that will be interpreted.
1494 1561
1495=item $term->tt_write ($octets) 1562=item $term->tt_write ($octets)
1496 1563
1497Write the octets given in C<$octets> to the tty (i.e. as program input). To 1564Write the octets given in C<$octets> to the tty (i.e. as user input
1565to the program, see C<cmd_parse> for the opposite direction). To pass
1498pass characters instead of octets, you should convert your strings first 1566characters instead of octets, you should convert your strings first to the
1499to the locale-specific encoding using C<< $term->locale_encode >>. 1567locale-specific encoding using C<< $term->locale_encode >>.
1500 1568
1501=item $term->tt_write_user_input ($octets) 1569=item $term->tt_write_user_input ($octets)
1502 1570
1503Like C<tt_write>, but should be used when writing strings in response to 1571Like C<tt_write>, but should be used when writing strings in response to
1504the user pressing a key, to invokes the additional actions requested by 1572the user pressing a key, to invoke the additional actions requested by
1505the user for that case (C<tt_write> doesn't do that). 1573the user for that case (C<tt_write> doesn't do that).
1506 1574
1507The typical use case would be inside C<on_action> hooks. 1575The typical use case would be inside C<on_action> hooks.
1508 1576
1509=item $term->tt_paste ($octets) 1577=item $term->tt_paste ($octets)
1551 1619
1552=item $term->key_release ($state, $keycode[, $time]) 1620=item $term->key_release ($state, $keycode[, $time])
1553 1621
1554Deliver various fake events to to terminal. 1622Deliver various fake events to to terminal.
1555 1623
1556=item $window_width = $term->width 1624=item $window_width = $term->width ([$new_value])
1557 1625
1558=item $window_height = $term->height 1626=item $window_height = $term->height ([$new_value])
1559 1627
1560=item $font_width = $term->fwidth 1628=item $font_width = $term->fwidth ([$new_value])
1561 1629
1562=item $font_height = $term->fheight 1630=item $font_height = $term->fheight ([$new_value])
1563 1631
1564=item $font_ascent = $term->fbase 1632=item $font_ascent = $term->fbase ([$new_value])
1565 1633
1566=item $terminal_rows = $term->nrow 1634=item $terminal_rows = $term->nrow ([$new_value])
1567 1635
1568=item $terminal_columns = $term->ncol 1636=item $terminal_columns = $term->ncol ([$new_value])
1569 1637
1570=item $has_focus = $term->focus 1638=item $has_focus = $term->focus ([$new_value])
1571 1639
1572=item $is_mapped = $term->mapped 1640=item $is_mapped = $term->mapped ([$new_value])
1573 1641
1574=item $max_scrollback = $term->saveLines 1642=item $max_scrollback = $term->saveLines ([$new_value])
1575 1643
1576=item $nrow_plus_saveLines = $term->total_rows 1644=item $nrow_plus_saveLines = $term->total_rows ([$new_value])
1577 1645
1578=item $topmost_scrollback_row = $term->top_row 1646=item $topmost_scrollback_row = $term->top_row ([$new_value])
1579 1647
1580Return various integers describing terminal characteristics. 1648Return various integers describing terminal characteristics. If an
1649argument is given, changes the value and returns the previous one.
1581 1650
1582=item $x_display = $term->display_id 1651=item $x_display = $term->display_id
1583 1652
1584Return the DISPLAY used by rxvt-unicode. 1653Return the DISPLAY used by rxvt-unicode.
1585 1654
1635Requests a screen refresh. At the next opportunity, rxvt-unicode will 1704Requests a screen refresh. At the next opportunity, rxvt-unicode will
1636compare the on-screen display with its stored representation. If they 1705compare the on-screen display with its stored representation. If they
1637differ, it redraws the differences. 1706differ, it redraws the differences.
1638 1707
1639Used after changing terminal contents to display them. 1708Used after changing terminal contents to display them.
1709
1710=item $term->refresh_check
1711
1712Checks if a refresh has been requested and, if so, schedules one.
1640 1713
1641=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]]) 1714=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])
1642 1715
1643Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >> 1716Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >>
1644is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost 1717is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines