diff options
Diffstat (limited to '.urxvt/ext')
| -rw-r--r-- | .urxvt/ext/LICENSE | 339 | ||||
| -rw-r--r-- | .urxvt/ext/README.md | 107 | ||||
| -rw-r--r-- | .urxvt/ext/clipboard | 109 | ||||
| -rw-r--r-- | .urxvt/ext/keyboard-select | 567 | ||||
| -rw-r--r-- | .urxvt/ext/url-select | 375 |
5 files changed, 0 insertions, 1497 deletions
diff --git a/.urxvt/ext/LICENSE b/.urxvt/ext/LICENSE deleted file mode 100644 index d159169..0000000 --- a/.urxvt/ext/LICENSE +++ /dev/null @@ -1,339 +0,0 @@ - GNU GENERAL PUBLIC LICENSE - Version 2, June 1991 - - Copyright (C) 1989, 1991 Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - Everyone is permitted to copy and distribute verbatim copies - of this license document, but changing it is not allowed. - - Preamble - - The licenses for most software are designed to take away your -freedom to share and change it. By contrast, the GNU General Public -License is intended to guarantee your freedom to share and change free -software--to make sure the software is free for all its users. This -General Public License applies to most of the Free Software -Foundation's software and to any other program whose authors commit to -using it. (Some other Free Software Foundation software is covered by -the GNU Lesser General Public License instead.) You can apply it to -your programs, too. - - When we speak of free software, we are referring to freedom, not -price. Our General Public Licenses are designed to make sure that you -have the freedom to distribute copies of free software (and charge for -this service if you wish), that you receive source code or can get it -if you want it, that you can change the software or use pieces of it -in new free programs; and that you know you can do these things. - - To protect your rights, we need to make restrictions that forbid -anyone to deny you these rights or to ask you to surrender the rights. -These restrictions translate to certain responsibilities for you if you -distribute copies of the software, or if you modify it. - - For example, if you distribute copies of such a program, whether -gratis or for a fee, you must give the recipients all the rights that -you have. You must make sure that they, too, receive or can get the -source code. And you must show them these terms so they know their -rights. - - We protect your rights with two steps: (1) copyright the software, and -(2) offer you this license which gives you legal permission to copy, -distribute and/or modify the software. - - Also, for each author's protection and ours, we want to make certain -that everyone understands that there is no warranty for this free -software. If the software is modified by someone else and passed on, we -want its recipients to know that what they have is not the original, so -that any problems introduced by others will not reflect on the original -authors' reputations. - - Finally, any free program is threatened constantly by software -patents. We wish to avoid the danger that redistributors of a free -program will individually obtain patent licenses, in effect making the -program proprietary. To prevent this, we have made it clear that any -patent must be licensed for everyone's free use or not licensed at all. - - The precise terms and conditions for copying, distribution and -modification follow. - - GNU GENERAL PUBLIC LICENSE - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. This License applies to any program or other work which contains -a notice placed by the copyright holder saying it may be distributed -under the terms of this General Public License. The "Program", below, -refers to any such program or work, and a "work based on the Program" -means either the Program or any derivative work under copyright law: -that is to say, a work containing the Program or a portion of it, -either verbatim or with modifications and/or translated into another -language. (Hereinafter, translation is included without limitation in -the term "modification".) Each licensee is addressed as "you". - -Activities other than copying, distribution and modification are not -covered by this License; they are outside its scope. The act of -running the Program is not restricted, and the output from the Program -is covered only if its contents constitute a work based on the -Program (independent of having been made by running the Program). -Whether that is true depends on what the Program does. - - 1. You may copy and distribute verbatim copies of the Program's -source code as you receive it, in any medium, provided that you -conspicuously and appropriately publish on each copy an appropriate -copyright notice and disclaimer of warranty; keep intact all the -notices that refer to this License and to the absence of any warranty; -and give any other recipients of the Program a copy of this License -along with the Program. - -You may charge a fee for the physical act of transferring a copy, and -you may at your option offer warranty protection in exchange for a fee. - - 2. You may modify your copy or copies of the Program or any portion -of it, thus forming a work based on the Program, and copy and -distribute such modifications or work under the terms of Section 1 -above, provided that you also meet all of these conditions: - - a) You must cause the modified files to carry prominent notices - stating that you changed the files and the date of any change. - - b) You must cause any work that you distribute or publish, that in - whole or in part contains or is derived from the Program or any - part thereof, to be licensed as a whole at no charge to all third - parties under the terms of this License. - - c) If the modified program normally reads commands interactively - when run, you must cause it, when started running for such - interactive use in the most ordinary way, to print or display an - announcement including an appropriate copyright notice and a - notice that there is no warranty (or else, saying that you provide - a warranty) and that users may redistribute the program under - these conditions, and telling the user how to view a copy of this - License. (Exception: if the Program itself is interactive but - does not normally print such an announcement, your work based on - the Program is not required to print an announcement.) - -These requirements apply to the modified work as a whole. If -identifiable sections of that work are not derived from the Program, -and can be reasonably considered independent and separate works in -themselves, then this License, and its terms, do not apply to those -sections when you distribute them as separate works. But when you -distribute the same sections as part of a whole which is a work based -on the Program, the distribution of the whole must be on the terms of -this License, whose permissions for other licensees extend to the -entire whole, and thus to each and every part regardless of who wrote it. - -Thus, it is not the intent of this section to claim rights or contest -your rights to work written entirely by you; rather, the intent is to -exercise the right to control the distribution of derivative or -collective works based on the Program. - -In addition, mere aggregation of another work not based on the Program -with the Program (or with a work based on the Program) on a volume of -a storage or distribution medium does not bring the other work under -the scope of this License. - - 3. You may copy and distribute the Program (or a work based on it, -under Section 2) in object code or executable form under the terms of -Sections 1 and 2 above provided that you also do one of the following: - - a) Accompany it with the complete corresponding machine-readable - source code, which must be distributed under the terms of Sections - 1 and 2 above on a medium customarily used for software interchange; or, - - b) Accompany it with a written offer, valid for at least three - years, to give any third party, for a charge no more than your - cost of physically performing source distribution, a complete - machine-readable copy of the corresponding source code, to be - distributed under the terms of Sections 1 and 2 above on a medium - customarily used for software interchange; or, - - c) Accompany it with the information you received as to the offer - to distribute corresponding source code. (This alternative is - allowed only for noncommercial distribution and only if you - received the program in object code or executable form with such - an offer, in accord with Subsection b above.) - -The source code for a work means the preferred form of the work for -making modifications to it. For an executable work, complete source -code means all the source code for all modules it contains, plus any -associated interface definition files, plus the scripts used to -control compilation and installation of the executable. However, as a -special exception, the source code distributed need not include -anything that is normally distributed (in either source or binary -form) with the major components (compiler, kernel, and so on) of the -operating system on which the executable runs, unless that component -itself accompanies the executable. - -If distribution of executable or object code is made by offering -access to copy from a designated place, then offering equivalent -access to copy the source code from the same place counts as -distribution of the source code, even though third parties are not -compelled to copy the source along with the object code. - - 4. You may not copy, modify, sublicense, or distribute the Program -except as expressly provided under this License. Any attempt -otherwise to copy, modify, sublicense or distribute the Program is -void, and will automatically terminate your rights under this License. -However, parties who have received copies, or rights, from you under -this License will not have their licenses terminated so long as such -parties remain in full compliance. - - 5. You are not required to accept this License, since you have not -signed it. However, nothing else grants you permission to modify or -distribute the Program or its derivative works. These actions are -prohibited by law if you do not accept this License. Therefore, by -modifying or distributing the Program (or any work based on the -Program), you indicate your acceptance of this License to do so, and -all its terms and conditions for copying, distributing or modifying -the Program or works based on it. - - 6. Each time you redistribute the Program (or any work based on the -Program), the recipient automatically receives a license from the -original licensor to copy, distribute or modify the Program subject to -these terms and conditions. You may not impose any further -restrictions on the recipients' exercise of the rights granted herein. -You are not responsible for enforcing compliance by third parties to -this License. - - 7. If, as a consequence of a court judgment or allegation of patent -infringement or for any other reason (not limited to patent issues), -conditions are imposed on you (whether by court order, agreement or -otherwise) that contradict the conditions of this License, they do not -excuse you from the conditions of this License. If you cannot -distribute so as to satisfy simultaneously your obligations under this -License and any other pertinent obligations, then as a consequence you -may not distribute the Program at all. For example, if a patent -license would not permit royalty-free redistribution of the Program by -all those who receive copies directly or indirectly through you, then -the only way you could satisfy both it and this License would be to -refrain entirely from distribution of the Program. - -If any portion of this section is held invalid or unenforceable under -any particular circumstance, the balance of the section is intended to -apply and the section as a whole is intended to apply in other -circumstances. - -It is not the purpose of this section to induce you to infringe any -patents or other property right claims or to contest validity of any -such claims; this section has the sole purpose of protecting the -integrity of the free software distribution system, which is -implemented by public license practices. Many people have made -generous contributions to the wide range of software distributed -through that system in reliance on consistent application of that -system; it is up to the author/donor to decide if he or she is willing -to distribute software through any other system and a licensee cannot -impose that choice. - -This section is intended to make thoroughly clear what is believed to -be a consequence of the rest of this License. - - 8. If the distribution and/or use of the Program is restricted in -certain countries either by patents or by copyrighted interfaces, the -original copyright holder who places the Program under this License -may add an explicit geographical distribution limitation excluding -those countries, so that distribution is permitted only in or among -countries not thus excluded. In such case, this License incorporates -the limitation as if written in the body of this License. - - 9. The Free Software Foundation may publish revised and/or new versions -of the General Public License from time to time. Such new versions will -be similar in spirit to the present version, but may differ in detail to -address new problems or concerns. - -Each version is given a distinguishing version number. If the Program -specifies a version number of this License which applies to it and "any -later version", you have the option of following the terms and conditions -either of that version or of any later version published by the Free -Software Foundation. If the Program does not specify a version number of -this License, you may choose any version ever published by the Free Software -Foundation. - - 10. If you wish to incorporate parts of the Program into other free -programs whose distribution conditions are different, write to the author -to ask for permission. For software which is copyrighted by the Free -Software Foundation, write to the Free Software Foundation; we sometimes -make exceptions for this. Our decision will be guided by the two goals -of preserving the free status of all derivatives of our free software and -of promoting the sharing and reuse of software generally. - - NO WARRANTY - - 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY -FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN -OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES -PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED -OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS -TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE -PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, -REPAIR OR CORRECTION. - - 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING -WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR -REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, -INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING -OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED -TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY -YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER -PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE -POSSIBILITY OF SUCH DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Programs - - If you develop a new program, and you want it to be of the greatest -possible use to the public, the best way to achieve this is to make it -free software which everyone can redistribute and change under these terms. - - To do so, attach the following notices to the program. It is safest -to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least -the "copyright" line and a pointer to where the full notice is found. - - <one line to give the program's name and a brief idea of what it does.> - Copyright (C) <year> <name of author> - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License along - with this program; if not, write to the Free Software Foundation, Inc., - 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. - -Also add information on how to contact you by electronic and paper mail. - -If the program is interactive, make it output a short notice like this -when it starts in an interactive mode: - - Gnomovision version 69, Copyright (C) year name of author - Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. - This is free software, and you are welcome to redistribute it - under certain conditions; type `show c' for details. - -The hypothetical commands `show w' and `show c' should show the appropriate -parts of the General Public License. Of course, the commands you use may -be called something other than `show w' and `show c'; they could even be -mouse-clicks or menu items--whatever suits your program. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the program, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the program - `Gnomovision' (which makes passes at compilers) written by James Hacker. - - <signature of Ty Coon>, 1 April 1989 - Ty Coon, President of Vice - -This General Public License does not permit incorporating your program into -proprietary programs. If your program is a subroutine library, you may -consider it more useful to permit linking proprietary applications with the -library. If this is what you want to do, use the GNU Lesser General -Public License instead of this License. diff --git a/.urxvt/ext/README.md b/.urxvt/ext/README.md deleted file mode 100644 index b800ed3..0000000 --- a/.urxvt/ext/README.md +++ /dev/null @@ -1,107 +0,0 @@ -A small collection of perl extensions for the rxvt-unicode terminal emulator. - -Installation ------------- -Simply place the scripts you want to install in /usr/lib/urxvt/perl/ for -system-wide availability or in ~/.urxvt/ext/ for user-only availability. -You can also put them in a folder of your choice, but then you have to add this -line to your .Xdefaults/.Xresources: - - URxvt.perl-lib: /your/folder/ - -See the following sections for information on how to enable the scripts or set -script-specific options and keyboard mappings in your .Xdefaults/.Xresources. - - -keyboard-select ---------------- -Use keyboard shortcuts to select and copy text. - -After installing, put the following lines in your .Xdefaults/.Xresources: - - URxvt.perl-ext-common: ...,keyboard-select - URxvt.keysym.M-Escape: perl:keyboard-select:activate - -The following line overwrites the default Meta-s binding and allows to activate -keyboard-select directly in backward search mode: - - URxvt.keysym.M-s: perl:keyboard-select:search - -Use Meta-Escape to activate selection mode, then use the following keys: - - h/j/k/l: Move cursor left/down/up/right (also with arrow keys) - g/G/0/^/$/H/M/L/f/F/;/,/w/W/b/B/e/E: More vi-like cursor movement keys - '/'/?: Start forward/backward search - n/N: Repeat last search, N: in reverse direction - Ctrl-f/b: Scroll down/up one screen - Ctrl-d/u: Scroll down/up half a screen - v/V/Ctrl-v: Toggle normal/linewise/blockwise selection - y/Return: Copy selection to primary buffer, Return: deactivate afterwards - q/Escape: Deactivate keyboard selection mode - - -url-select ----------- -Use keyboard shortcuts to select URLs. - -This should be used as a replacement for the default matcher extension, it also -makes URLs clickable with the middle mouse button. - -After installing, put the following lines in your .Xdefaults/.Xresources: - - URxvt.perl-ext-common: ...,url-select - URxvt.keysym.M-u: perl:url-select:select_next - -Use Meta-u to activate URL selection mode, then use the following keys: - - j/k: Select next downward/upward URL (also with arrow keys) - g/G: Select first/last URL (also with home/end key) - o/Return: Open selected URL in browser, Return: deactivate afterwards - y: Copy (yank) selected URL and deactivate selection mode - q/Escape: Deactivate URL selection mode - -Options: - - URxvt.url-select.autocopy: if set to true, selected URLs are automatically - copied to the PRIMARY buffer - URxvt.url-select.button: mouse button to click-open URLs (default: 2) - URxvt.url-select.launcher: browser/command to open selected URL with - URxvt.url-select.underline: if set to true, all URLs get underlined - -For compatibility reasons, url-select will also use any patterns defined for -the matcher extension by reading all `URxvt.matcher.pattern.[0-9]` resources. - - -clipboard ---------- -Use keyboard shortcuts to copy the selection to the clipboard and to paste the -clipboard contents (optionally escaping all special characters). - -After installing, put the following lines in your .Xdefaults/.Xresources: - - URxvt.perl-ext-common: ...,clipboard - URxvt.keysym.M-c: perl:clipboard:copy - URxvt.keysym.M-v: perl:clipboard:paste - URxvt.keysym.M-C-v: perl:clipboard:paste_escaped - -Options: - URxvt.clipboard.autocopy: if set to true, the clipboard is automatically - updated whenever the PRIMARY selection changes - -You can also overwrite the system commands to use for copying/pasting. -The default ones are: - - URxvt.clipboard.copycmd: xsel -ib - URxvt.clipboard.pastecmd: xsel -ob - -If you prefer xclip, then put these lines in your .Xdefaults/.Xresources: - - URxvt.clipboard.copycmd: xclip -i -selection clipboard - URxvt.clipboard.pastecmd: xclip -o -selection clipboard - -On Mac OS X, put these lines in your .Xdefaults/.Xresources: - - URxvt.clipboard.copycmd: pbcopy - URxvt.clipboard.pastecmd: pbpaste - -The use of the functions should be self-explanatory! diff --git a/.urxvt/ext/clipboard b/.urxvt/ext/clipboard deleted file mode 100644 index 8e71792..0000000 --- a/.urxvt/ext/clipboard +++ /dev/null @@ -1,109 +0,0 @@ -#! perl -w -# Author: Bert Muennich -# Website: http://www.github.com/muennich/urxvt-perls -# License: GPLv2 - -# Use keyboard shortcuts to copy the selection to the clipboard and to paste -# the clipboard contents (optionally escaping all special characters). -# Requires xsel to be installed! - -# Usage: put the following lines in your .Xdefaults/.Xresources: -# URxvt.perl-ext-common: ...,clipboard -# URxvt.keysym.M-c: perl:clipboard:copy -# URxvt.keysym.M-v: perl:clipboard:paste -# URxvt.keysym.M-C-v: perl:clipboard:paste_escaped - -# Options: -# URxvt.clipboard.autocopy: If true, PRIMARY overwrites clipboard - -# You can also overwrite the system commands to use for copying/pasting. -# The default ones are: -# URxvt.clipboard.copycmd: xsel -ib -# URxvt.clipboard.pastecmd: xsel -ob -# If you prefer xclip, then put these lines in your .Xdefaults/.Xresources: -# URxvt.clipboard.copycmd: xclip -i -selection clipboard -# URxvt.clipboard.pastecmd: xclip -o -selection clipboard -# On Mac OS X, put these lines in your .Xdefaults/.Xresources: -# URxvt.clipboard.copycmd: pbcopy -# URxvt.clipboard.pastecmd: pbpaste - -# The use of the functions should be self-explanatory! - -use strict; - -sub on_start { - my ($self) = @_; - - $self->{copy_cmd} = $self->x_resource('clipboard.copycmd') || 'xsel -ib'; - $self->{paste_cmd} = $self->x_resource('clipboard.pastecmd') || 'xsel -ob'; - - if ($self->x_resource('clipboard.autocopy') eq 'true') { - $self->enable(sel_grab => \&sel_grab); - } - - () -} - -sub copy { - my ($self) = @_; - - if (open(CLIPBOARD, "| $self->{copy_cmd}")) { - my $sel = $self->selection(); - utf8::encode($sel); - print CLIPBOARD $sel; - close(CLIPBOARD); - } else { - print STDERR "error running '$self->{copy_cmd}': $!\n"; - } - - () -} - -sub paste { - my ($self) = @_; - - my $str = `$self->{paste_cmd}`; - if ($? == 0) { - $self->tt_paste($str); - } else { - print STDERR "error running '$self->{paste_cmd}': $!\n"; - } - - () -} - -sub paste_escaped { - my ($self) = @_; - - my $str = `$self->{paste_cmd}`; - if ($? == 0) { - $str =~ s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g; - $self->tt_paste($str); - } else { - print STDERR "error running '$self->{paste_cmd}': $!\n"; - } - - () -} - -sub on_user_command { - my ($self, $cmd) = @_; - - if ($cmd eq "clipboard:copy") { - $self->copy; - } elsif ($cmd eq "clipboard:paste") { - $self->paste; - } elsif ($cmd eq "clipboard:paste_escaped") { - $self->paste_escaped; - } - - () -} - -sub sel_grab { - my ($self) = @_; - - $self->copy; - - () -} diff --git a/.urxvt/ext/keyboard-select b/.urxvt/ext/keyboard-select deleted file mode 100644 index d9f16bf..0000000 --- a/.urxvt/ext/keyboard-select +++ /dev/null @@ -1,567 +0,0 @@ -#! perl -w -# Author: Bert Muennich -# Website: http://www.github.com/muennich/urxvt-perls -# License: GPLv2 - -# Use keyboard shortcuts to select and copy text. - -# Usage: put the following lines in your .Xdefaults/.Xresources: -# URxvt.perl-ext-common: ...,keyboard-select -# URxvt.keysym.M-Escape: perl:keyboard-select:activate -# The following line overwrites the default Meta-s binding and allows to -# activate keyboard-select directly in backward search mode: -# URxvt.keysym.M-s: perl:keyboard-select:search - -# Use Meta-Escape to activate selection mode, then use the following keys: -# h/j/k/l: Move cursor left/down/up/right (also with arrow keys) -# g/G/0/^/$/H/M/L/f/F/;/,/w/W/b/B/e/E: More vi-like cursor movement keys -# '/'/?: Start forward/backward search -# n/N: Repeat last search, N: in reverse direction -# Ctrl-f/b: Scroll down/up one screen -# Ctrl-d/u: Scroll down/up half a screen -# v/V/Ctrl-v: Toggle normal/linewise/blockwise selection -# y/Return: Copy selection to primary buffer, Return: deactivate afterwards -# q/Escape: Deactivate keyboard selection mode - - -use strict; - -sub on_start{ - my ($self) = @_; - - $self->{patterns}{'w'} = qr/\w[^\w\s]|\W\w|\s\S/; - $self->{patterns}{'W'} = qr/\s\S/; - $self->{patterns}{'b'} = qr/.*(?:\w[^\w\s]|\W\w|\s\S)/; - $self->{patterns}{'B'} = qr/.*\s\S/; - $self->{patterns}{'e'} = qr/[^\w\s](?=\w)|\w(?=\W)|\S(?=\s|$)/; - $self->{patterns}{'E'} = qr/\S(?=\s|$)/; - - () -} - - -sub on_user_command { - my ($self, $cmd) = @_; - - if (not $self->{active}) { - if ($cmd eq 'keyboard-select:activate') { - activate($self); - } elsif ($cmd eq 'keyboard-select:search') { - activate($self, 1); - } - } - - () -} - - -sub key_press { - my ($self, $event, $keysym, $char) = @_; - my $key = chr($keysym); - - if (lc($key) eq 'c' && $event->{state} & urxvt::ControlMask) { - deactivate($self); - } elsif ($self->{search}) { - if ($keysym == 0xff1b) { - if ($self->{search_mode}) { - deactivate($self); - } else { - $self->{search} = ''; - status_area($self); - } - } elsif ($keysym == 0xff08) { - $self->{search} = substr($self->{search}, 0, -1); - if (not $self->{search} and $self->{search_mode}) { - deactivate($self); - } else { - status_area($self); - } - } elsif ($keysym == 0xff0d) { - my $txt = substr($self->{search}, 1); - if ($txt) { - $self->{pattern} = ($txt =~ m/[[:upper:]]/) ? qr/\Q$txt\E/ : - qr/\Q$txt\E/i; - } elsif ($self->{pattern}) { - delete $self->{pattern}; - } - $self->{search} = ''; - if (not find_next($self)) { - if ($self->{search_mode}) { - deactivate($self); - } else { - status_area($self); - } - } - } elsif (length($char) > 0) { - $self->{search} .= $self->locale_decode($char); - status_area($self); - } - } elsif ($self->{move_to}) { - if ($keysym == 0xff1b) { - $self->{move_to} = 0; - status_area($self); - } elsif (length($char) > 0) { - $self->{move_to} = 0; - $self->{patterns}{'f-1'} = qr/^.*\Q$key\E/; - $self->{patterns}{'f+1'} = qr/^.+?\Q$key\E/; - move_to($self, ';'); - status_area($self); - } - } elsif ($keysym == 0xff1b || lc($key) eq 'q') { - deactivate($self); - } elsif ($key eq 'y' || $keysym == 0xff0d) { - if ($self->{select}) { - if ($self->{select} eq 'b') { - $self->selection($self->{selection}); - $self->selection_grab($event->{time}); - } else { - my ($br, $bc, $er, $ec) = calc_span($self); - $ec = $self->line($er)->l if $self->{select} eq 'l'; - $self->selection_beg($br, $bc); - $self->selection_end($er, $ec); - $self->selection_make($event->{time}); - } - if ($key eq 'y') { - if ($self->{select} ne 'b') { - $self->selection_beg(1, 0); - $self->selection_end(1, 0); - } - $self->{select} = ''; - status_area($self); - $self->want_refresh(); - } else { - deactivate($self); - } - } - } elsif ($key eq 'V') { - toggle_select($self, 'l'); - } elsif ($key eq 'v') { - if ($event->{state} & urxvt::ControlMask) { - toggle_select($self, 'b'); - } else { - toggle_select($self, 'n'); - } - } elsif ($key eq 'k' || $keysym == 0xff52) { - move_cursor($self, 'k'); - } elsif ($key eq 'j' || $keysym == 0xff54) { - move_cursor($self, 'j'); - } elsif ($key eq 'h' || $keysym == 0xff51) { - move_cursor($self, 'h'); - } elsif ($key eq 'l' || $keysym == 0xff53) { - move_cursor($self, 'l'); - } elsif ('gG0^$HML' =~ m/\Q$key\E/ || - ('fbdu' =~ m/\Q$key\E/ && $event->{state} & urxvt::ControlMask)) { - move_cursor($self, $key); - } elsif (lc($key) eq 'f') { - $self->{move_to} = 1; - $self->{move_dir} = $key eq 'F' ? -1 : 1; - status_area($self, $key); - } elsif (';,wWbBeE' =~ m/\Q$key\E/) { - move_to($self, $key); - } elsif ($key eq '/' || $key eq '?') { - $self->{search} = $key; - $self->{search_dir} = $key eq '?' ? -1 : 1; - status_area($self); - } elsif (lc($key) eq 'n') { - find_next($self, $self->{search_dir} * ($key eq 'N' ? -1 : 1)); - } - - return 1; -} - - -sub move_cursor { - my ($self, $key) = @_; - my ($cr, $cc) = $self->screen_cur(); - my $line = $self->line($cr); - - if ($key eq 'k' && $line->beg > $self->top_row) { - $cr = $line->beg - 1; - } elsif ($key eq 'j' && $line->end < $self->nrow - 1) { - $cr = $line->end + 1; - } elsif ($key eq 'h' && $self->{offset} > 0) { - $self->{offset} = $line->offset_of($cr, $cc) - 1; - $self->{dollar} = 0; - } elsif ($key eq 'l' && $self->{offset} < $line->l - 1) { - ++$self->{offset}; - } elsif ($key eq 'f' || $key eq 'd') { - my $vs = $self->view_start() + - ($key eq 'd' ? $self->nrow / 2 : $self->nrow - 1); - $vs = 0 if $vs > 0; - $cr += $vs - $self->view_start($vs); - } elsif ($key eq 'b' || $key eq 'u') { - my $vs = $self->view_start() - - ($key eq 'u' ? $self->nrow / 2 : $self->nrow - 1); - $vs = $self->top_row if $vs < $self->top_row; - $cr += $vs - $self->view_start($vs); - } elsif ($key eq 'g') { - ($cr, $self->{offset}) = ($self->top_row, 0); - $self->{dollar} = 0; - } elsif ($key eq 'G') { - ($cr, $self->{offset}) = ($self->nrow - 1, 0); - $self->{dollar} = 0; - } elsif ($key eq '0') { - $self->{offset} = 0; - $self->{dollar} = 0; - } elsif ($key eq '^') { - my $ltxt = $self->special_decode($line->t); - while ($ltxt =~ s/^( *)\t/$1 . " " x (8 - length($1) % 8)/e) {} - $self->{offset} = $ltxt =~ m/^ +/ ? $+[0] : 0; - $self->{dollar} = 0; - } elsif ($key eq '$') { - my $co = $line->offset_of($cr, $cc); - $self->{dollar} = $co + 1; - $self->{offset} = $line->l - 1; - } elsif ($key eq 'H') { - $cr = $self->view_start(); - } elsif ($key eq 'M') { - $cr = $self->view_start() + $self->nrow / 2; - } elsif ($key eq 'L') { - $cr = $self->view_start() + $self->nrow - 1; - } - - $line = $self->line($cr); - $cc = $self->{dollar} || $self->{offset} >= $line->l ? $line->l - 1 : - $self->{offset}; - $self->screen_cur($line->coord_of($cc)); - - status_area($self); - $self->want_refresh(); - - () -} - - -sub move_to { - my ($self, $key) = @_; - my ($cr, $cc) = $self->screen_cur(); - my $line = $self->line($cr); - my $offset = $self->{offset}; - my ($dir, $pattern); - my ($wrap, $found) = (0, 0); - - if ($key eq ';' || $key eq ',') { - $dir = $self->{move_dir} * ($key eq ',' ? -1 : 1); - $pattern = $self->{patterns}{sprintf('f%+d', $dir)}; - return if not $pattern; - } else { - if (lc($key) eq 'b') { - $dir = -1; - } else { - $dir = 1; - ++$offset if lc($key) eq 'e'; - } - $pattern = $self->{patterns}{$key}; - $wrap = 1; - } - - if ($dir > 0) { - NEXTDOWN: my $text = substr($line->t, $offset); - if ($text =~ m/$pattern/) { - $offset += $+[0] - 1; - $found = 1; - } elsif ($wrap && $line->end + 1 < $self->nrow) { - $cr = $line->end + 1; - $line = $self->line($cr); - $offset = 0; - if (lc($key) eq 'e') { - goto NEXTDOWN; - } else { - $found = 1; - } - } - } elsif ($dir < 0) { - NEXTUP: my $text = substr($line->t, 0, $offset); - if ($text =~ m/$pattern/) { - $offset += $+[0] - length($text) - 1; - $found = 1; - } elsif ($wrap) { - if ($offset > 0) { - $offset = 0; - $found = 1; - } elsif ($line->beg > $self->top_row) { - $cr = $line->beg - 1; - $line = $self->line($cr); - $offset = $line->l; - goto NEXTUP; - } - } - } - - if ($found) { - $self->{dollar} = 0; - $self->{offset} = $offset; - $self->screen_cur($line->coord_of($offset)); - $self->want_refresh(); - } - - () -} - - -sub find_next { - my ($self, $dir) = @_; - - return if not $self->{pattern}; - $dir = $self->{search_dir} if not $dir; - - my ($cr, $cc) = $self->screen_cur(); - my $line = $self->line($cr); - my $offset = $line->offset_of($cr, $cc); - my $text; - my $found = 0; - - ++$offset if $dir > 0; - - while (not $found) { - if ($dir > 0) { - $text = substr($line->t, $offset); - if ($text =~ m/$self->{pattern}/) { - $found = 1; - $offset += $-[0]; - } else { - last if $line->end >= $self->nrow; - $line = $self->line($line->end + 1); - $offset = 0; - } - } else { - $text = substr($line->t, 0, $offset); - if ($text =~ m/$self->{pattern}/) { - $found = 1; - $offset = $-[0] while $text =~ m/$self->{pattern}/g; - } else { - last if $line->beg <= $self->top_row; - $line = $self->line($line->beg - 1); - $offset = $line->l; - } - } - } - - if ($found) { - $self->{dollar} = 0; - $self->{offset} = $offset; - $self->screen_cur($line->coord_of($offset)); - status_area($self); - $self->want_refresh(); - } - - return $found; -} - - -sub tt_write { - return 1; -} - - -sub refresh { - my ($self) = @_; - my $reverse_cursor = $self->{select} ne 'l'; - my ($cr, $cc) = $self->screen_cur(); - - if ($self->{select}) { - my ($br, $bc, $er, $ec) = calc_span($self); - - if ($self->{select} eq 'b') { - delete $self->{selection} if $self->{selection}; - my $co = $self->line($cr)->offset_of($cr, $cc); - my $dollar = $self->{dollar} && $co >= $self->{dollar} - 1; - - my $r = $br; - while ($r <= $er) { - my $line = $self->line($r); - if ($bc < $line->l) { - $ec = $line->l if $dollar; - $self->{selection} .= substr($line->t, $bc, $ec - $bc); - my ($br, $bc) = $line->coord_of($bc); - my ($er, $ec) = $line->coord_of($ec <= $line->l ? $ec : $line->l); - $self->scr_xor_span($br, $bc, $er, $ec, urxvt::RS_RVid); - } elsif ($r == $cr) { - $reverse_cursor = 0; - } - $self->{selection} .= "\n" if $line->end < $er; - $r = $line->end + 1; - } - } else { - $self->scr_xor_span($br, $bc, $er, $ec, urxvt::RS_RVid); - } - - if ($reverse_cursor) { - # make the cursor visible again - $self->scr_xor_span($cr, $cc, $cr, $cc + 1, urxvt::RS_RVid); - } - } - - # scroll the current cursor position into visible area - if ($cr < $self->view_start()) { - $self->view_start($cr); - } elsif ($cr >= $self->view_start() + $self->nrow) { - $self->view_start($cr - $self->nrow + 1); - } - - () -} - - -sub activate { - my ($self, $search) = @_; - - $self->{active} = 1; - - $self->{select} = ''; - $self->{dollar} = 0; - $self->{move_to} = 0; - - if ($search) { - $self->{search} = '?'; - $self->{search_dir} = -1; - $self->{search_mode} = 1; - } else { - $self->{search} = ''; - $self->{search_mode} = 0; - } - - ($self->{oldcr}, $self->{oldcc}) = $self->screen_cur(); - $self->{old_view_start} = $self->view_start(); - $self->{old_pty_ev_events} = $self->pty_ev_events(urxvt::EV_NONE); - - my $line = $self->line($self->{oldcr}); - $self->{offset} = $line->offset_of($self->{oldcr}, $self->{oldcc}); - - $self->selection_beg(1, 0); - $self->selection_end(1, 0); - - $self->enable( - key_press => \&key_press, - refresh_begin => \&refresh, - refresh_end => \&refresh, - tt_write => \&tt_write, - ); - - if ($self->{offset} >= $line->l) { - $self->{offset} = $line->l > 0 ? $line->l - 1 : 0; - $self->screen_cur($line->coord_of($self->{offset})); - $self->want_refresh(); - } - - $self->{overlay_len} = 0; - status_area($self); - - () -} - - -sub deactivate { - my ($self) = @_; - - $self->selection_beg(1, 0); - $self->selection_end(1, 0); - - delete $self->{overlay} if $self->{overlay}; - delete $self->{selection} if $self->{selection}; - - $self->disable("key_press", "refresh_begin", "refresh_end", "tt_write"); - $self->screen_cur($self->{oldcr}, $self->{oldcc}); - $self->view_start($self->{old_view_start}); - $self->pty_ev_events($self->{old_pty_ev_events}); - - $self->want_refresh(); - - $self->{active} = 0; - - () -} - - -sub status_area { - my ($self, $extra) = @_; - my ($stat, $stat_len); - - if ($self->{search}) { - $stat_len = $self->ncol; - $stat = $self->{search} . ' ' x ($stat_len - length($self->{search})); - } else { - if ($self->{select}) { - $stat = "-V" . ($self->{select} ne 'n' ? uc($self->{select}) : "") . "- "; - } - - if ($self->top_row == 0) { - $stat .= "All"; - } elsif ($self->view_start() == $self->top_row) { - $stat .= "Top"; - } elsif ($self->view_start() == 0) { - $stat .= "Bot"; - } else { - $stat .= sprintf("%2d%%", - ($self->top_row - $self->view_start) * 100 / $self->top_row); - } - - $stat = "$extra $stat" if $extra; - $stat_len = length($stat); - } - - if (!$self->{overlay} || $self->{overlay_len} != $stat_len) { - delete $self->{overlay} if $self->{overlay}; - $self->{overlay} = $self->overlay(-1, -1, $stat_len, 1, - urxvt::OVERLAY_RSTYLE, 0); - $self->{overlay_len} = $stat_len; - } - - $self->{overlay}->set(0, 0, $self->special_encode($stat)); - $self->{overlay}->show(); - - () -} - - -sub toggle_select { - my ($self, $mode) = @_; - - if ($self->{select} eq $mode) { - $self->{select} = ''; - } else { - if (not $self->{select}) { - ($self->{ar}, $self->{ac}) = $self->screen_cur(); - } - $self->{select} = $mode; - } - - status_area($self); - $self->want_refresh(); - - () -} - - -sub calc_span { - my ($self) = @_; - my ($cr, $cc) = $self->screen_cur(); - my ($br, $bc, $er, $ec); - - if ($self->{select} eq 'b') { - $br = $self->line($cr)->beg; - $bc = $self->line($cr)->offset_of($cr, $cc); - $er = $self->line($self->{ar})->beg; - $ec = $self->line($self->{ar})->offset_of($self->{ar}, $self->{ac}); - ($br, $er) = ($er, $br) if $br > $er; - ($bc, $ec) = ($ec, $bc) if $bc > $ec; - } else { - if ($cr < $self->{ar}) { - ($br, $bc, $er, $ec) = ($cr, $cc, $self->{ar}, $self->{ac}); - } elsif ($cr > $self->{ar}) { - ($br, $bc, $er, $ec) = ($self->{ar}, $self->{ac}, $cr, $cc); - } else { - ($br, $er) = ($cr, $cr); - ($bc, $ec) = $cc < $self->{ac} ? ($cc, $self->{ac}) : ($self->{ac}, $cc); - } - } - - if ($self->{select} eq 'l') { - ($br, $er) = ($self->line($br)->beg, $self->line($er)->end); - ($bc, $ec) = (0, $self->ncol); - } else { - ++$ec; - } - - return ($br, $bc, $er, $ec); -} diff --git a/.urxvt/ext/url-select b/.urxvt/ext/url-select deleted file mode 100644 index f4ddda8..0000000 --- a/.urxvt/ext/url-select +++ /dev/null @@ -1,375 +0,0 @@ -#! perl -w -# Author: Bert Muennich -# Website: http://www.github.com/muennich/urxvt-perls -# Based on: http://www.jukie.net/~bart/blog/urxvt-url-yank -# License: GPLv2 - -# Use keyboard shortcuts to select URLs. -# This should be used as a replacement for the default matcher extension, -# it also makes URLs clickable with the middle mouse button. - -# Usage: put the following lines in your .Xdefaults/.Xresources: -# URxvt.perl-ext-common: ...,url-select -# URxvt.keysym.M-u: perl:url-select:select_next - -# Use Meta-u to activate URL selection mode, then use the following keys: -# j/k: Select next downward/upward URL (also with arrow keys) -# g/G: Select first/last URL (also with home/end key) -# o/Return: Open selected URL in browser, Return: deactivate afterwards -# y: Copy (yank) selected URL and deactivate selection mode -# q/Escape: Deactivate URL selection mode - -# Options: -# URxvt.url-select.autocopy: If true, selected URLs are copied to PRIMARY -# URvxt.url-select.button: Mouse button to click-open URLs (default: 2) -# URxvt.url-select.launcher: Browser/command to open selected URL with -# URxvt.url-select.underline: If set to true, all URLs get underlined - -use strict; - -sub on_start { - my ($self) = @_; - - # read resource settings - if ($self->x_resource('url-select.launcher')) { - @{$self->{browser}} = split /\s+/, $self->x_resource('url-select.launcher'); - } else { - @{$self->{browser}} = ('x-www-browser'); - } - if ($self->x_resource('url-select.underline') eq 'true') { - $self->enable(line_update => \&line_update); - } - if ($self->x_resource('url-select.autocopy') eq 'true') { - $self->{autocopy} = 1; - } - - $self->{state} = 0; - - for my $mod (split '', $self->x_resource("url-select.button") || - $self->x_resource("matcher.button") || 2) { - if ($mod =~ /^\d+$/) { - $self->{button} = $mod; - } elsif ($mod eq "C") { - $self->{state} |= urxvt::ControlMask; - } elsif ($mod eq "S") { - $self->{state} |= urxvt::ShiftMask; - } elsif ($mod eq "M") { - $self->{state} |= $self->ModMetaMask; - } elsif ($mod ne "-" && $mod ne " ") { - warn("invalid button/modifier in $self->{_name}<$self->{argv}[0]>: $mod\n"); - } - } - - if ($self->x_resource('matcher.pattern')) { - @{$self->{pattern}} = ($self->x_resource('matcher.pattern')); - } elsif ($self->x_resource('matcher.pattern.1')) { - my $current = 1; - - while ($self->x_resource("matcher.pattern.$current")) { - push @{$self->{pattern}}, $self->x_resource("matcher.pattern.$current"); - $current++; - } - } else { - @{$self->{pattern}} = qr{ - (?:https?://|ftp://|news://|mailto:|file://|\bwww\.) - [\w\-\@;\/?:&=%\$.+!*\x27,~#]* - ( - \([\w\-\@;\/?:&=%\$.+!*\x27,~#]*\) # Allow a pair of matched parentheses - | # - [\w\-\@;\/?:&=%\$+*~] # exclude some trailing characters (heuristic) - )+ - }x; - } - - () -} - - -sub line_update { - my ($self, $row) = @_; - - my $line = $self->line($row); - my $text = $line->t; - my $rend = $line->r; - - for my $pattern (@{$self->{pattern}}) { - while ($text =~ /$pattern/g) { - my $url = $&; - my ($beg, $end) = ($-[0], $+[0] - 1); - - for (@{$rend}[$beg .. $end]) { - $_ |= urxvt::RS_Uline; - } - $line->r($rend); - } - } - - () -} - - -sub on_user_command { - my ($self, $cmd) = @_; - - if ($cmd eq 'url-select:select_next') { - if (not $self->{active}) { - activate($self); - } - select_next($self, -1); - } - - () -} - - -sub key_press { - my ($self, $event, $keysym) = @_; - my $char = chr($keysym); - - if ($keysym == 0xff1b || lc($char) eq 'q' || - (lc($char) eq 'c' && $event->{state} & urxvt::ControlMask)) { - deactivate($self); - } elsif ($keysym == 0xff0d || $char eq 'o') { - $self->exec_async(@{$self->{browser}}, ${$self->{found}[$self->{n}]}[4]); - deactivate($self) unless $char eq 'o'; - } elsif ($char eq 'y') { - my $found = $self->{found}[$self->{n}]; - $self->selection_beg(${$found}[0], ${$found}[1]); - $self->selection_end(${$found}[2], ${$found}[3]); - $self->selection_make($event->{time}); - $self->selection_beg(1, 0); - $self->selection_end(1, 0); - deactivate($self); - } elsif ($char eq 'k' || $keysym == 0xff52 || $keysym == 0xff51) { - select_next($self, -1, $event); - } elsif ($char eq 'j' || $keysym == 0xff54 || $keysym == 0xff53) { - select_next($self, 1, $event); - } elsif ($char eq 'g' || $keysym == 0xff50) { - $self->{row} = $self->top_row - 1; - delete $self->{found}; - select_next($self, 1, $event); - } elsif ($char eq 'G' || $keysym == 0xff57) { - $self->{row} = $self->nrow; - delete $self->{found}; - select_next($self, -1, $event); - } - - return 1; -} - - -sub on_button_press { - my ($self, $event) = @_; - - my $mask = $self->ModLevel3Mask | $self->ModMetaMask | - urxvt::ShiftMask | urxvt::ControlMask; - - if ($event->{button} == $self->{button} && ($event->{state} & $mask) == $self->{state}) { - $self->{button_pressed} = 1; - $self->{button_col} = $event->{col}; - $self->{button_row} = $event->{row}; - } - - () -} - -sub on_button_release { - my ($self, $event) = @_; - - if ($self->{button_pressed} && $event->{button} == $self->{button}) { - my $col = $event->{col}; - my $row = $event->{row}; - - $self->{button_pressed} = 0; - - if ($col == $self->{button_col} && $row == $self->{button_row}) { - my $line = $self->line($row); - my $text = $line->t; - - for my $pattern (@{$self->{pattern}}) { - while ($text =~ /$pattern/g) { - my ($url, $beg, $end) = ($&, $-[0], $+[0]); - --$end if $url =~ s/["')]$//; - - if ($col >= $beg && $col <= $end) { - $self->exec_async(@{$self->{browser}}, $url); - return 1; - } - } - } - } - } - - () -} - - -sub select_next { - # $dir < 0: up, > 0: down - my ($self, $dir, $event) = @_; - my $row = $self->{row}; - - if (($dir < 0 && $self->{n} > 0) || - ($dir > 0 && $self->{n} < $#{ $self->{found} })) { - # another url on current line - $self->{n} += $dir; - hilight($self); - if ($self->{autocopy}) { - my $found = $self->{found}[$self->{n}]; - $self->selection_beg(${$found}[0], ${$found}[1]); - $self->selection_end(${$found}[2], ${$found}[3]); - $self->selection_make($event->{time}); - $self->selection_beg(1, 0); - $self->selection_end(1, 0); - } - return; - } - - while (($dir < 0 && $row > $self->top_row) || - ($dir > 0 && $row < $self->nrow - 1)) { - my $line = $self->line($row); - $row = ($dir < 0 ? $line->beg : $line->end) + $dir; - $line = $self->line($row); - my $text = $line->t; - - for my $pattern (@{$self->{pattern}}) { - if ($text =~ /$pattern/g) { - delete $self->{found}; - - do { - my ($beg, $end) = ($-[0], $+[0]); - push @{$self->{found}}, [$line->coord_of($beg), - $line->coord_of($end), substr($text, $beg, $end - $beg)]; - } while ($text =~ /$pattern/g); - - $self->{row} = $row; - $self->{n} = $dir < 0 ? $#{$self->{found}} : 0; - hilight($self); - if ($self->{autocopy}) { - my $found = $self->{found}[$self->{n}]; - $self->selection_beg(${$found}[0], ${$found}[1]); - $self->selection_end(${$found}[2], ${$found}[3]); - $self->selection_make($event->{time}); - $self->selection_beg(1, 0); - $self->selection_end(1, 0); - } - return; - } - } - } - - deactivate($self) unless $self->{found}; - - () -} - - -sub hilight { - my ($self) = @_; - - if ($self->{found}) { - if ($self->{row} < $self->view_start() || - $self->{row} >= $self->view_start() + $self->nrow) { - # scroll selected url into visible area - my $top = $self->{row} - ($self->nrow >> 1); - $self->view_start($top < 0 ? $top : 0); - } - - status_area($self); - $self->want_refresh(); - } - - () -} - - -sub refresh { - my ($self) = @_; - - if ($self->{found}) { - $self->scr_xor_span(@{$self->{found}[$self->{n}]}[0 .. 3], urxvt::RS_RVid); - } - - () -} - - -sub status_area { - my ($self) = @_; - - my $row = $self->{row} < 0 ? - $self->{row} - $self->top_row : abs($self->top_row) + $self->{row}; - my $text = sprintf("%d,%d ", $row + 1, $self->{n} + 1); - - if ($self->top_row == 0) { - $text .= "All"; - } elsif ($self->view_start() == $self->top_row) { - $text .= "Top"; - } elsif ($self->view_start() == 0) { - $text .= "Bot"; - } else { - $text .= sprintf("%2d%", - ($self->top_row - $self->view_start) * 100 / $self->top_row); - } - - my $text_len = length($text); - - if ($self->{overlay_len} != $text_len) { - delete $self->{overlay} if $self->{overlay}; - $self->{overlay} = $self->overlay(-1, -1, $text_len, 1, - urxvt::OVERLAY_RSTYLE, 0); - $self->{overlay_len} = $text_len; - } - - $self->{overlay}->set(0, 0, $self->special_encode($text)); - $self->{overlay}->show(); - - () -} - - -sub tt_write { - return 1; -} - - -sub activate { - my ($self) = @_; - - $self->{active} = 1; - - $self->{row} = $self->view_start() + $self->nrow; - $self->{n} = 0; - $self->{overlay_len} = 0; - $self->{button_pressed} = 0; - - $self->{view_start} = $self->view_start(); - $self->{pty_ev_events} = $self->pty_ev_events(urxvt::EV_NONE); - - $self->enable( - key_press => \&key_press, - refresh_begin => \&refresh, - refresh_end => \&refresh, - tt_write => \&tt_write, - ); - - () -} - - -sub deactivate { - my ($self) = @_; - - $self->disable("key_press", "refresh_begin", "refresh_end", "tt_write"); - $self->view_start($self->{view_start}); - $self->pty_ev_events($self->{pty_ev_events}); - - delete $self->{overlay} if $self->{overlay}; - delete $self->{found} if $self->{found}; - - $self->want_refresh(); - - $self->{active} = 0; - - () -} |