… | |
… | |
66 | URxvt.selection.pattern-0: \\|([^|]+)\\| |
66 | URxvt.selection.pattern-0: \\|([^|]+)\\| |
67 | |
67 | |
68 | You can look at the source of the selection extension to see more |
68 | You can look at the source of the selection extension to see more |
69 | interesting uses, such as parsing a line from beginning to end. |
69 | interesting uses, such as parsing a line from beginning to end. |
70 | |
70 | |
71 | This extension also offers the following bindable keyboard command: |
71 | This extension also offers following bindable keyboard commands: |
72 | |
72 | |
73 | =over 4 |
73 | =over 4 |
74 | |
74 | |
75 | =item rot13 |
75 | =item rot13 |
76 | |
76 | |
… | |
… | |
162 | |
162 | |
163 | Displays a very simple digital clock in the upper right corner of the |
163 | Displays a very simple digital clock in the upper right corner of the |
164 | window. Illustrates overwriting the refresh callbacks to create your own |
164 | window. Illustrates overwriting the refresh callbacks to create your own |
165 | overlays or changes. |
165 | overlays or changes. |
166 | |
166 | |
|
|
167 | =item selection-pastebin |
|
|
168 | |
|
|
169 | This is a little rarely useful extension that Uploads the selection as |
|
|
170 | textfile to a remote site (or does other things). (The implementation is |
|
|
171 | not currently secure for use in a multiuser environment as it writes to |
|
|
172 | F</tmp> directly.). |
|
|
173 | |
|
|
174 | It listens to the C<selection-pastebin:remote-pastebin> keyboard command, |
|
|
175 | i.e. |
|
|
176 | |
|
|
177 | URxvt.keysym.C-M-e: perl:selection-pastebin:remote-pastebin |
|
|
178 | |
|
|
179 | Pressing this combination runs a command with C<%> replaced by the name of |
|
|
180 | the textfile. This command can be set via a resource: |
|
|
181 | |
|
|
182 | URxvt.selection-pastebin.cmd: rsync -apP % ruth:/var/www/www.ta-sa.org/files/txt/. |
|
|
183 | |
|
|
184 | And the default is likely not useful to anybody but the few people around |
|
|
185 | here :) |
|
|
186 | |
|
|
187 | The name of the textfile is the hex encoded md5 sum of the selection, so |
|
|
188 | the same content should lead to the same filename. |
|
|
189 | |
|
|
190 | After a successful upload the selection will be replaced by the text given |
|
|
191 | in the C<selection-pastebin-url> resource (again, the % is the placeholder |
|
|
192 | for the filename): |
|
|
193 | |
|
|
194 | URxvt.selection-pastebin.url: http://www.ta-sa.org/files/txt/% |
|
|
195 | |
167 | =back |
196 | =back |
168 | |
197 | |
169 | =head1 API DOCUMENTATION |
198 | =head1 API DOCUMENTATION |
170 | |
199 | |
171 | =head2 General API Considerations |
200 | =head2 General API Considerations |
… | |
… | |
480 | |
509 | |
481 | Using this function has the advantage that its output ends up in the |
510 | Using this function has the advantage that its output ends up in the |
482 | correct place, e.g. on stderr of the connecting urxvtc client. |
511 | correct place, e.g. on stderr of the connecting urxvtc client. |
483 | |
512 | |
484 | Messages have a size limit of 1023 bytes currently. |
513 | Messages have a size limit of 1023 bytes currently. |
485 | |
|
|
486 | =item $is_safe = urxvt::safe |
|
|
487 | |
|
|
488 | Returns true when it is safe to do potentially unsafe things, such as |
|
|
489 | evaluating perl code specified by the user. This is true when urxvt was |
|
|
490 | started setuid or setgid. |
|
|
491 | |
514 | |
492 | =item $time = urxvt::NOW |
515 | =item $time = urxvt::NOW |
493 | |
516 | |
494 | Returns the "current time" (as per the event loop). |
517 | Returns the "current time" (as per the event loop). |
495 | |
518 | |
… | |
… | |
611 | verbose 3, "loading extension '$path' into package '$pkg'"; |
634 | verbose 3, "loading extension '$path' into package '$pkg'"; |
612 | |
635 | |
613 | open my $fh, "<:raw", $path |
636 | open my $fh, "<:raw", $path |
614 | or die "$path: $!"; |
637 | or die "$path: $!"; |
615 | |
638 | |
616 | my $source = untaint |
639 | my $source = |
617 | "package $pkg; use strict; use utf8;\n" |
640 | "package $pkg; use strict; use utf8;\n" |
618 | . "use base urxvt::term::extension::;\n" |
641 | . "use base urxvt::term::extension::;\n" |
619 | . "#line 1 \"$path\"\n{\n" |
642 | . "#line 1 \"$path\"\n{\n" |
620 | . (do { local $/; <$fh> }) |
643 | . (do { local $/; <$fh> }) |
621 | . "\n};\n1"; |
644 | . "\n};\n1"; |