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.241 by sf-exg, Fri Oct 10 14:38:02 2014 UTC vs.
Revision 1.257 by root, Thu Jul 13 10:31:27 2017 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>
480ConfigureRequest, GravityNotify, ResizeRequest, CirculateNotify, 511ConfigureRequest, GravityNotify, ResizeRequest, CirculateNotify,
481CirculateRequest, PropertyNotify, SelectionClear, SelectionRequest, 512CirculateRequest, PropertyNotify, SelectionClear, SelectionRequest,
482SelectionNotify, ColormapNotify, ClientMessage, MappingNotify 513SelectionNotify, ColormapNotify, ClientMessage, MappingNotify
483 514
484Various constants for use in X calls and event processing. 515Various constants for use in X calls and event processing.
516
517=item urxvt::PrivMode_132, PrivMode_132OK, PrivMode_rVideo, PrivMode_relOrigin,
518PrivMode_Screen, PrivMode_Autowrap, PrivMode_aplCUR, PrivMode_aplKP,
519PrivMode_HaveBackSpace, PrivMode_BackSpace, PrivMode_ShiftKeys,
520PrivMode_VisibleCursor, PrivMode_MouseX10, PrivMode_MouseX11,
521PrivMode_scrollBar, PrivMode_TtyOutputInh, PrivMode_Keypress,
522PrivMode_smoothScroll, PrivMode_vt52, PrivMode_LFNL, PrivMode_MouseBtnEvent,
523PrivMode_MouseAnyEvent, PrivMode_BracketPaste, PrivMode_ExtModeMouse,
524PrivMode_ExtMouseRight, PrivMode_BlinkingCursor, PrivMode_mouse_report,
525PrivMode_Default
526
527Constants for checking DEC private modes.
485 528
486=back 529=back
487 530
488=head2 RENDITION 531=head2 RENDITION
489 532
573 if ($pattern eq $prefix) { 616 if ($pattern eq $prefix) {
574 $name = "$urxvt::RESCLASS.$k$suffix"; 617 $name = "$urxvt::RESCLASS.$k$suffix";
575 618
576 push @{ $term->{perl_ext_3} }, $v->[0]; 619 push @{ $term->{perl_ext_3} }, $v->[0];
577 620
621 return 1 unless $isarg;
622
578 if ($v->[1] eq "boolean") { 623 if ($v->[1] eq "boolean") {
579 $term->put_option_db ($name, $flag ? "true" : "false"); 624 $term->put_option_db ($name, $flag ? "true" : "false");
580 return 1; 625 return 1;
581 } else { 626 } else {
582 $term->put_option_db ($name, $value); 627 $term->put_option_db ($name, $value);
677 @TERM_EXT = (); 722 @TERM_EXT = ();
678 $TERM->register_package ($_) for @pkg; 723 $TERM->register_package ($_) for @pkg;
679 } 724 }
680 725
681 for ( 726 for (
682 grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2 727 (grep $_, map { split /,/, $TERM->resource ("perl_ext_$_") } 1, 2),
728 @{ delete $TERM->{perl_ext_3} }
683 ) { 729 ) {
684 if ($_ eq "default") { 730 if ($_ eq "default") {
685 731
686 $ext_arg{$_} = [] 732 $ext_arg{$_} = []
687 for
688 qw(selection option-popup selection-popup readline), 733 for qw(selection option-popup selection-popup readline searchable-scrollback);
689 @{ delete $TERM->{perl_ext_3} },
690 map $_->[0], values %{ $TERM->{meta}{binding} };
691 734
692 for ($TERM->_keysym_resources) { 735 for ($TERM->_keysym_resources) {
693 next if /^(?:string|command|builtin|builtin-string|perl)/; 736 next if /^(?:string|command|builtin|builtin-string|perl)/;
694 next unless /^([A-Za-z0-9_\-]+):/; 737 next unless /^([A-Za-z0-9_\-]+):/;
695 738
704 } elsif (/^([^<]+)<(.*)>$/) { 747 } elsif (/^([^<]+)<(.*)>$/) {
705 push @{ $ext_arg{$1} }, $2; 748 push @{ $ext_arg{$1} }, $2;
706 749
707 } else { 750 } else {
708 $ext_arg{$_} ||= []; 751 $ext_arg{$_} ||= [];
709 }
710 }
711
712 # now register default key bindings
713 for my $ext (sort keys %ext_arg) {
714 while (my ($k, $v) = each %{ $TERM->{meta}{ext}{$ext}{binding} }) {
715 $TERM->bind_action ($k, "$v->[0]:$v->[1]");
716 } 752 }
717 } 753 }
718 754
719 for my $ext (sort keys %ext_arg) { 755 for my $ext (sort keys %ext_arg) {
720 my @files = grep -f $_, map "$_/$ext", @dirs; 756 my @files = grep -f $_, map "$_/$ext", @dirs;
943 } 979 }
944 980
945 bless \%disable, "urxvt::extension::on_disable" 981 bless \%disable, "urxvt::extension::on_disable"
946} 982}
947 983
984=item $self->bind_action ($hotkey, $action)
985
948=item $self->x_resource ($pattern) 986=item $self->x_resource ($pattern)
949 987
950=item $self->x_resource_boolean ($pattern) 988=item $self->x_resource_boolean ($pattern)
951 989
952These methods support an additional C<%> prefix when called on an 990These methods support an additional C<%> prefix for C<$action> or
953extension object - see the description of these methods in the 991C<$pattern> when called on an extension object, compared to the
992C<urxvt::term> methods of the same name - see the description of these
954C<urxvt::term> class for details. 993methods in the C<urxvt::term> class for details.
955 994
956=cut 995=cut
996
997sub bind_action {
998 my ($self, $hotkey, $action) = @_;
999 $action =~ s/^%:/$_[0]{_name}:/;
1000 $self->{term}->bind_action ($hotkey, $action)
1001}
957 1002
958sub x_resource { 1003sub x_resource {
959 my ($self, $name) = @_; 1004 my ($self, $name) = @_;
960 $name =~ s/^%(\.|$)/$_[0]{_name}$1/; 1005 $name =~ s/^%(\.|$)/$_[0]{_name}$1/;
961 $self->{term}->x_resource ($name) 1006 $self->{term}->x_resource ($name)
1102sub scan_extensions { 1147sub scan_extensions {
1103 my ($self) = @_; 1148 my ($self) = @_;
1104 1149
1105 return if exists $self->{meta}; 1150 return if exists $self->{meta};
1106 1151
1107 my @libdirs = perl_libdirs $self; 1152 my @urxvtdirs = perl_libdirs $self;
1153# my @cpandirs = grep -d, map "$_/URxvt/Ext", @INC;
1108 1154
1109# return if $self->{meta_libdirs} eq join "\x00", @libdirs;#d#
1110
1111# $self->{meta_libdirs} = join "\x00", @libdirs;#d#
1112 $self->{meta} = \my %meta; 1155 $self->{meta} = \my %meta;
1113 1156
1114 # first gather extensions 1157 # first gather extensions
1115 for my $dir (reverse @libdirs) { 1158
1159 my $gather = sub {
1160 my ($dir, $core) = @_;
1161
1116 opendir my $fh, $dir 1162 opendir my $fh, $dir
1117 or next; 1163 or return;
1164
1118 for my $ext (readdir $fh) { 1165 for my $ext (readdir $fh) {
1119 $ext !~ /^\./ 1166 $ext !~ /^\./
1167 or next;
1168
1120 and open my $fh, "<", "$dir/$ext" 1169 open my $fh, "<", "$dir/$ext"
1170 or next;
1171
1172 -f $fh
1173 or next;
1174
1175 $ext =~ s/\.uext$// or $core
1121 or next; 1176 or next;
1122 1177
1123 my %ext = (dir => $dir); 1178 my %ext = (dir => $dir);
1124 1179
1125 while (<$fh>) { 1180 while (<$fh>) {
1129 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { 1184 if ($pattern =~ /[^a-zA-Z0-9\-\.]/) {
1130 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; 1185 warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n";
1131 } else { 1186 } else {
1132 $ext{resource}{$pattern} = [$ext, $type, $desc]; 1187 $ext{resource}{$pattern} = [$ext, $type, $desc];
1133 } 1188 }
1134 } elsif (/^#:META:BINDING:(.*)/) {
1135 my ($keysym, $action) = split /:/, $1;
1136 $ext{binding}{$keysym} = [$ext, $action];
1137 } elsif (/^\s*(?:#|$)/) { 1189 } elsif (/^\s*(?:#|$)/) {
1138 # skip other comments and empty lines 1190 # skip other comments and empty lines
1139 } else { 1191 } else {
1140 last; # stop parsing on first non-empty non-comment line 1192 last; # stop parsing on first non-empty non-comment line
1141 } 1193 }
1142 } 1194 }
1143 1195
1144 $meta{ext}{$ext} = \%ext; 1196 $meta{ext}{$ext} = \%ext;
1145 } 1197 }
1146 } 1198 };
1147 1199
1200# $gather->($_, 0) for @cpandirs;
1201 $gather->($_, 1) for @urxvtdirs;
1202
1148 # and now merge resources and bindings 1203 # and now merge resources
1204
1205 $meta{resource} = \my %resource;
1206
1149 while (my ($k, $v) = each %{ $meta{ext} }) { 1207 while (my ($k, $v) = each %{ $meta{ext} }) {
1150 #TODO: should check for extensions overriding each other 1208 #TODO: should check for extensions overriding each other
1151 %{ $meta{resource} } = (%{ $meta{resource} }, %{ $v->{resource} }); 1209 %resource = (%resource, %{ $v->{resource} });
1152 %{ $meta{binding} } = (%{ $meta{binding} }, %{ $v->{binding} });
1153 } 1210 }
1154} 1211}
1155 1212
1156=item $term = new urxvt::term $envhashref, $rxvtname, [arg...] 1213=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
1157 1214
1273Returns the X-Resource for the given pattern, excluding the program or 1330Returns the X-Resource for the given pattern, excluding the program or
1274class name, i.e. C<< $term->x_resource ("boldFont") >> should return the 1331class name, i.e. C<< $term->x_resource ("boldFont") >> should return the
1275same value as used by this instance of rxvt-unicode. Returns C<undef> if no 1332same value as used by this instance of rxvt-unicode. Returns C<undef> if no
1276resource with that pattern exists. 1333resource with that pattern exists.
1277 1334
1278Extensions that define extra resource or command line arguments also need 1335Extensions that define extra resources also need to call this method
1279to call this method to access their values. 1336to access their values.
1280 1337
1281If the method is called on an extension object (basically, from an 1338If the method is called on an extension object (basically, from an
1282extension), then the special prefix C<%.> will be replaced by the name of 1339extension), then the special prefix C<%.> will be replaced by the name of
1283the extension and a dot, and the lone string C<%> will be replaced by the 1340the extension and a dot, and the lone string C<%> will be replaced by the
1284extension name itself. This makes it possible to code extensions so you 1341extension name itself. This makes it possible to code extensions so you
1285can rename them and get a new set of commandline switches and resources 1342can rename them and get a new set of resources without having to change
1286without having to change the actual code. 1343the actual code.
1287 1344
1288This method should only be called during the C<on_start> hook, as there is 1345This method should only be called during the C<on_start> hook, as there is
1289only one resource database per display, and later invocations might return 1346only one resource database per display, and later invocations might return
1290the wrong resources. 1347the wrong resources.
1291 1348
1303 my $res = &x_resource; 1360 my $res = &x_resource;
1304 1361
1305 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0 1362 $res =~ /^\s*(?:true|yes|on|1)\s*$/i ? 1 : defined $res && 0
1306} 1363}
1307 1364
1365=item $action = $term->lookup_keysym ($keysym, $state)
1366
1367Returns the action bound to key combination C<($keysym, $state)>,
1368if a binding for it exists, and C<undef> otherwise.
1369
1308=item $success = $term->bind_action ($key, $octets) 1370=item $success = $term->bind_action ($key, $action)
1309 1371
1310Adds a key binding exactly as specified via a C<keysym> resource. See the 1372Adds a key binding exactly as specified via a C<keysym> resource. See the
1311C<keysym> resource in the urxvt(1) manpage. 1373C<keysym> resource in the urxvt(1) manpage.
1374
1375To add default bindings for actions, an extension should call C<<
1376->bind_action >> in its C<init> hook for every such binding. Doing it
1377in the C<init> hook allows users to override or remove the binding
1378again.
1379
1380Example: the C<searchable-scrollback> by default binds itself
1381on C<Meta-s>, using C<< $self->bind_action >>, which calls C<<
1382$term->bind_action >>.
1383
1384 sub init {
1385 my ($self) = @_;
1386
1387 $self->bind_action ("M-s" => "%:start");
1388 }
1312 1389
1313=item $rend = $term->rstyle ([$new_rstyle]) 1390=item $rend = $term->rstyle ([$new_rstyle])
1314 1391
1315Return and optionally change the current rendition. Text that is output by 1392Return and optionally change the current rendition. Text that is output by
1316the terminal application will use this style. 1393the terminal application will use this style.
1474 1551
1475=item $term->scr_add_lines ($string) 1552=item $term->scr_add_lines ($string)
1476 1553
1477Write the given text string to the screen, as if output by the application 1554Write the given text string to the screen, as if output by the application
1478running inside the terminal. It may not contain command sequences (escape 1555running inside the terminal. It may not contain command sequences (escape
1479codes), but is free to use line feeds, carriage returns and tabs. The 1556codes - see C<cmd_parse> for that), but is free to use line feeds,
1480string is a normal text string, not in locale-dependent encoding. 1557carriage returns and tabs. The string is a normal text string, not in
1558locale-dependent encoding.
1481 1559
1482Normally its not a good idea to use this function, as programs might be 1560Normally its not a good idea to use this function, as programs might be
1483confused by changes in cursor position or scrolling. Its useful inside a 1561confused by changes in cursor position or scrolling. Its useful inside a
1484C<on_add_lines> hook, though. 1562C<on_add_lines> hook, though.
1485 1563
1493locale-specific encoding of the terminal and can contain command sequences 1571locale-specific encoding of the terminal and can contain command sequences
1494(escape codes) that will be interpreted. 1572(escape codes) that will be interpreted.
1495 1573
1496=item $term->tt_write ($octets) 1574=item $term->tt_write ($octets)
1497 1575
1498Write the octets given in C<$octets> to the tty (i.e. as program input). To 1576Write the octets given in C<$octets> to the tty (i.e. as user input
1577to the program, see C<cmd_parse> for the opposite direction). To pass
1499pass characters instead of octets, you should convert your strings first 1578characters instead of octets, you should convert your strings first to the
1500to the locale-specific encoding using C<< $term->locale_encode >>. 1579locale-specific encoding using C<< $term->locale_encode >>.
1501 1580
1502=item $term->tt_write_user_input ($octets) 1581=item $term->tt_write_user_input ($octets)
1503 1582
1504Like C<tt_write>, but should be used when writing strings in response to 1583Like C<tt_write>, but should be used when writing strings in response to
1505the user pressing a key, to invoke the additional actions requested by 1584the user pressing a key, to invoke the additional actions requested by
1552 1631
1553=item $term->key_release ($state, $keycode[, $time]) 1632=item $term->key_release ($state, $keycode[, $time])
1554 1633
1555Deliver various fake events to to terminal. 1634Deliver various fake events to to terminal.
1556 1635
1557=item $window_width = $term->width 1636=item $window_width = $term->width ([$new_value])
1558 1637
1559=item $window_height = $term->height 1638=item $window_height = $term->height ([$new_value])
1560 1639
1561=item $font_width = $term->fwidth 1640=item $font_width = $term->fwidth ([$new_value])
1562 1641
1563=item $font_height = $term->fheight 1642=item $font_height = $term->fheight ([$new_value])
1564 1643
1565=item $font_ascent = $term->fbase 1644=item $font_ascent = $term->fbase ([$new_value])
1566 1645
1567=item $terminal_rows = $term->nrow 1646=item $terminal_rows = $term->nrow ([$new_value])
1568 1647
1569=item $terminal_columns = $term->ncol 1648=item $terminal_columns = $term->ncol ([$new_value])
1570 1649
1571=item $has_focus = $term->focus 1650=item $has_focus = $term->focus ([$new_value])
1572 1651
1573=item $is_mapped = $term->mapped 1652=item $is_mapped = $term->mapped ([$new_value])
1574 1653
1575=item $max_scrollback = $term->saveLines 1654=item $max_scrollback = $term->saveLines ([$new_value])
1576 1655
1577=item $nrow_plus_saveLines = $term->total_rows 1656=item $nrow_plus_saveLines = $term->total_rows ([$new_value])
1578 1657
1579=item $topmost_scrollback_row = $term->top_row 1658=item $topmost_scrollback_row = $term->top_row ([$new_value])
1580 1659
1581Return various integers describing terminal characteristics. 1660Return various integers describing terminal characteristics. If an
1661argument is given, changes the value and returns the previous one.
1582 1662
1583=item $x_display = $term->display_id 1663=item $x_display = $term->display_id
1584 1664
1585Return the DISPLAY used by rxvt-unicode. 1665Return the DISPLAY used by rxvt-unicode.
1586 1666
1622Returns the currently displayed screen (0 primary, 1 secondary). 1702Returns the currently displayed screen (0 primary, 1 secondary).
1623 1703
1624=item $cursor_is_hidden = $term->hidden_cursor 1704=item $cursor_is_hidden = $term->hidden_cursor
1625 1705
1626Returns whether the cursor is currently hidden or not. 1706Returns whether the cursor is currently hidden or not.
1707
1708=item $priv_modes = $term->priv_modes
1709
1710Returns a bitset with the state of DEC private modes.
1711
1712Example:
1713
1714 if ($term->priv_modes & urxvt::PrivMode_mouse_report) {
1715 # mouse reporting is turned on
1716 }
1627 1717
1628=item $view_start = $term->view_start ([$newvalue]) 1718=item $view_start = $term->view_start ([$newvalue])
1629 1719
1630Returns the row number of the topmost displayed line. Maximum value is 1720Returns the row number of the topmost displayed line. Maximum value is
1631C<0>, which displays the normal terminal contents. Lower values scroll 1721C<0>, which displays the normal terminal contents. Lower values scroll
1636Requests a screen refresh. At the next opportunity, rxvt-unicode will 1726Requests a screen refresh. At the next opportunity, rxvt-unicode will
1637compare the on-screen display with its stored representation. If they 1727compare the on-screen display with its stored representation. If they
1638differ, it redraws the differences. 1728differ, it redraws the differences.
1639 1729
1640Used after changing terminal contents to display them. 1730Used after changing terminal contents to display them.
1731
1732=item $term->refresh_check
1733
1734Checks if a refresh has been requested and, if so, schedules one.
1641 1735
1642=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]]) 1736=item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])
1643 1737
1644Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >> 1738Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >>
1645is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost 1739is the topmost terminal line, row C<< $term->nrow-1 >> is the bottommost

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines