This file is indexed.

/usr/share/vile/perl/CaptHook.pm is in vile-common 9.8s-5.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
#   CaptHook.pm (version 0.2) - Provides useful wrappers for Vile's "hook"
#				variables
#
#   Copyright (C) 2001  J. Chris Coppick
#
#   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 St, Fifth Floor, Boston, MA 02110-1301 USA

package CaptHook;

use strict;

=head1 NAME

CaptHook - hook management for vile

=over 5

Allows multiple, prioritized actions to be easily assigned to Vile's
various built-in hooks.

=back

=head1 SYNOPSIS

   :perl "use CaptHook"

   :autocolor-hook <command> <label> <priority>
   :autocolor-hook-targets <label> <buffers>
   :autocolor-unhook <label>
   :buffer-hook <command> <label> <priority>
   :buffer-hook-targets <label> <buffers>
   :buffer-unhook <label>
   :cd-hook <command> <label> <priority>
   :cd-hook-targets <label> <dirs>
   :cd-unhook <label>
   :exit-hook <command> <label> <priority>
   :exit-unhook <label>
   :read-hook <command> <label> <priority>
   :read-hook-targets <label> <files>
   :read-unhook <label>
   :write-hook <command> <label> <priority>
   :write-hook-targets <label> <buffers>
   :write-unhook <label>
   :majormode-hook <command> <label> <priority>
   :majormode-hook-targets <label> <buffers>
   :majormode-unhook <label>

   :do-autocolor-hooks
   :do-buffer-hooks
   :do-cd-hooks
   :do-exit-hooks
   :do-read-hooks
   :do-write-hooks
   :do-majormode-hooks

   :capthook-help

=head1 DESCRIPTION

Vile comes with the ability to assign certain actions to certain
events.  These actions are called "hooks".  (I use the term "hook"
a little loosely here and there in this manual page, but the intention
at each instance is generally clear, I hope.)  For more information
on Vile's built-in hooks, please see the I<Hooks> section of Vile's
help text (available from within Vile, as B<:help>).

First, let's be clear about what this package, affectionately known
as the "Captain", does B<NOT> allow you to do.  There are, currently,
seven supported hooks in Vile:  autocolor, buffer, cd, exit, read, write
and majormode.  The Captain does B<NOT> allow you to extend this set.  You
get those seven hooks and that's it (as far as I know).

So what does the Captain do for you?  Normally you can only assign one
command to any one of Vile's hooks.  If, for example, you wanted to
have B<lots> of things happen whenever you changed buffers (i.e. activated
the buffer-hook), then you'd have to write a special procedure (in your
I<.vilerc> probably) that incorporated all the actions you wanted, and then
you'd assign that procedure to the B<$buffer-hook> variable.  But why
should you have to write a special procedure?  Especially since I went
to all this time and effort to build this package that comes with all
these neat commands and stuff?  The answer is, of course, that you
shouldn't.  When it comes to setting up your Vile hooks, you should
just let the Captain be your, um..., Captain...

The Captain provides commands that allow you to add (and remove) multiple
actions to any of Vile's built-in hooks.  Each action is assigned
a label and a priority.  Labels are used to reference the action later, e.g.
when removing an action.  The priorities determine in what order the
actions are executed when a particular hook is activated (see PRIORITIES).

Here's a simple example:

   perl "use CaptHook"

   autocolor-hook 'HighlightFilter' 'filter' 10
   buffer-hook 'set-variable $iconname $cbufname' 'icon' 10
   buffer-hook 'perl Vile::beep' 'beep' 20
   read-hook 'search-forward \\\S' 'skipws' 20
   perl "use directory"
   cd-hook 'directory $cwd' 'dir-list' 100

In this example we have 1) setup the autocolor-hook in a more-or-less
standard fashion, 2) fixed it so that every time we change buffers we
set Vile's icon label to match the current buffer name, AND Vile beeps
(the beeping gets damn annoying real fast, by the way), 3) whenever
we edit a new file, Vile moves the cursor over any initial whitespace,
and 4) whenever we change Vile's current directory, the new directory
name is displayed in the message buffer.  Wasn't that easy?  No
scurvy, no large deceased sea birds around your neck, no problems.

Another nifty feature is the use of targets.  The Captain allows you
to limit the activation of certain hooks to certain targets.  Targets
can be buffers, files, or directories, depending on the type of hook
in question.  In a nutshell, first you create a hook, then using the
hook label, you specify for which targets it should be used.  For example,
suppose you have created a read hook, called I<myuid>, that searches
for your UID.  You could set it up so that the I<myuid> hook is
only activated for certain files:

   read-hook-targets 'myuid' '/etc/passwd, /etc/group, /etc/aliases'

As another example, you could turn autocolor off for certain buffers,
e.g. Help, like this:

   buffer-hook 'setl autocolor 0' 'color-off' 100
   buffer-hook-targets 'color-off' '[Help]'

Something to note:  When the Captain is initially loaded, he assigns
to each of Vile's hook variables one of his own activation functions.
However, he does note if any of Vile's hook variables have been set
previously and, if so, he saves the settings, adding them to his own
sets of hook actions.  (The priority assigned to any extant actions
is fairly arbitrary... As a matter of fact, I'm making it up right
now.  It's, um, probably like 1542 or something.)  Since other Perl
packages or sourced macro files might setup some of the Vile hooks,
you should probably make loading the CaptHook package and setting up
your hooks the last thing that happens in your I<.vilerc> file.

Now, I know some of you may think this is all overkill, but just you
wait until some clever soul hacks up a package that dynamically
manipulates certain hook-action priorities based on changing editor
conditions (possibly related to the current temperature in Arlington, MA),
and then you will all be exclaiming, "Thank goodness we had the Captain
or implementing this highly contrived and vague example would have been
nearly, if not almost but not quite completely impossible!"

=head1 PRIORITIES

Command priorities are assigned by the user whenever a new hook "action"
is added.  Me thinks you can use any string for a priority.  However,
the Captain sorts priorities in a numerically ascending order, so you
would be wise to always use numbers to avoid confusion.  Adding actions
with priorities of 1, 2, 3, etc. is fine, until you want to add an
action after the first and before the second.  Then you'd have to
resort to fractions, e.g. 1.5, and how many of those could there be?
Um, nevermind.  The point is that it might be less awkward to use priorities
like 10, 20, 30, etc. instead.  Then you can always stick in a 12 or 25 or
whatever, and save those decimal points for professions that really need
them, like chartered accountancy for instance.  Ah, chartered accountancy,
there's the life!  I could have been a chartered accountant you know.  I
had the handwriting for it, no doubt.  But my mum insisted I become
a pirate instead.  "Pirating was good enough for your no-account father,
the bastard, and it'll be good enough for you!  Now finish your grog!",
she'd say.  Sigh.  Many's the hour I whiled away sitting in the crow's
nest dreaming of the life I could have had.  A solid floor under my feet,
my own desk, sharpened pencils all neat in their holder...  Oh, buggerit.
Let's get on with the installation...

=head1 INSTALLATION

[Note: CaptHook may already be pacing the deck for you as part of your
Vile installation.]

Install CaptHook.pm somewhere in perl's @INC path.  Depending on your
Vile installation, I</usr/local/share/vile/perl> might be a good place.

Add B<perl "use CaptHook"> to you I<.vilerc> file.  Then use the
Captain's B<...-hook> commands to set up your hooks.  Note that
other packages may set hooks too, so you should probably activate
CaptHook last, giving him a chance to come along side and board
any previously setup hooks... so to speak.

=head1 USAGE

=over 4

=item perl "use CaptHook"

Invite the Captain on board...

=item autocolor-hook <command> <label> <priority>

=item buffer-hook <command> <label> <priority>

=item cd-hook <command> <label> <priority>

=item exit-hook <command> <label> <priority>

=item read-hook <command> <label> <priority>

=item write-hook <command> <label> <priority>

=item majormode-hook <command> <label> <priority>

Add a command to be invoked during a particular hook (obviously
which hook depends on which variation you use).  Note that these
are cumulative.  Running B<:buffer-hook ...> twice with two
different labels gives you TWO commands that get executed whenever
you change buffers.  The order of execution will depend on the
priorities given (see PRIORITIES).  Reusing a label will result
in the replacement of any command already assigned to that label,
for a given hook.  I.E. You can have a cd-hook and a buffer-hook
with the same label, but you cannot have two cd-hooks with the same label.

=item autocolor-hook-targets <label> <buffers>

=item buffer-hook-targets <label> <buffers>

=item cd-hook-targets <label> <dirs>

=item read-hook-targets <label> <files>

=item write-hook-targets <label> <buffers>

=item majormode-hook-targets <label> <buffers>

It is possible to limit certain hooks so that they only take
effect for certain targets.  I<Autocolor>, I<buffer>, and I<write>
hooks can be targeted for certain buffers.  I<Cd> hooks can be
targeted for certain directories. I<Read> and I<majormode> hooks can
be targeted for certain files.  Targets are delimited by commas.

=item autocolor-unhook <label>

=item buffer-unhook <label>

=item cd-unhook <label>

=item exit-unhook <label>

=item read-unhook <label>

=item write-unhook <label>

=item majormode-unhook <label>

Delete a command assigned to a particular hook (which hook depends on
which variation you use).  The label given should match the label
used when the no-longer-needed command was originally "hooked".

=item do-autocolor-hooks

=item do-buffer-hooks

=item do-cd-hooks

=item do-exit-hooks

=item do-read-hooks

=item do-write-hooks

=item do-majormode-hooks

Invoke the set of commands assigned to a particular hook.  Each of
the B<do-*-hooks> commands is assigned to an appropriate one of
Vile's B<$*-hook> variables when the Captain boards the good ship Vile.
(The order in which a particular set of commands is invoked depends on
the priority assigned to each command in the set (see PRIORITIES).)
Normally these are used to automatically trigger a set of actions
whenever a hook is activated, but they could be invoked manually as
well.

=item capthook-help

=back

Discover the Captain's treasure map.

=head1 BUGS

Probably result in some odd interactions here and there... For instance,
I've already noticed that this:

   autocolor-hook HighlightFilterMsg filter 1

uncovers a 'bug' in the Vile Perl extension.  Specifically, you'll
see a lot of the message "BUG: curwp not set to a visible window",
even though things seem to still work.

By the way, if anyone requests a B<show-hooks> command, I'll
make 'em walk the plank!

=head1 SEE ALSO

vile(1)

=head1 CREDITS

Drat.  No one to blame but myself...

=head1 AUTHOR

S<J. Chris Coppick, 2001 (last updated: June. 26, 2002)>

Ahoy, Maties!


=cut

use Vile;
use Vile::Manual;
require Vile::Exporter;

use vars qw(@ISA %REGISTRY);

@ISA      = 'Vile::Exporter';
%REGISTRY = (
    'autocolor-hook' =>
      [ 'CaptHook::addHook("autocolor")', 'add a new autocolor hook' ],
    'autocolor-unhook' =>
      [ 'CaptHook::delHook("autocolor")', 'remove an autocolor hook' ],
    'autocolor-hook-targets' => [
        'CaptHook::targetHook("autocolor")',
        'associate an autocolor-hook with one or more buffers'
    ],

    'buffer-hook' => [ 'CaptHook::addHook("buffer")', 'add a new buffer hook' ],
    'buffer-unhook' =>
      [ 'CaptHook::delHook("buffer")', 'remove a buffer hook' ],
    'buffer-hook-targets' => [
        'CaptHook::targetHook("buffer")',
        'associate a buffer-hook with one or more buffers'
    ],

    'cd-hook'         => [ 'CaptHook::addHook("cd")', 'add a new cd hook' ],
    'cd-unhook'       => [ 'CaptHook::delHook("cd")', 'remove a cd hook' ],
    'cd-hook-targets' => [
        'CaptHook::targetHook("cd")',
        'associate a cd-hook with one or more directories'
    ],

    'exit-hook'   => [ 'CaptHook::addHook("exit")', 'add a new exit hook' ],
    'exit-unhook' => [ 'CaptHook::delHook("exit")', 'remove an exit hook' ],
    'exit-hook-targets' => [
        'CaptHook::targetHook("exit")',
        'associate an exit-hook with one or more buffers'
    ],

    'read-hook'   => [ 'CaptHook::addHook("read")', 'add a new read hook' ],
    'read-unhook' => [ 'CaptHook::delHook("read")', 'remove a read hook' ],
    'read-hook-targets' => [
        'CaptHook::targetHook("read")',
        'associate a read-hook with one or more files'
    ],

    'write-hook'   => [ 'CaptHook::addHook("write")', 'add a new write hook' ],
    'write-unhook' => [ 'CaptHook::delHook("write")', 'remove a write hook' ],
    'write-hook-targets' => [
        'CaptHook::targetHook("write")',
        'associate a write-hook with one or more buffers'
    ],

    'majormode-hook' =>
      [ 'CaptHook::addHook("majormode")', 'add a new majormode hook' ],
    'majormode-unhook' =>
      [ 'CaptHook::delHook("majormode")', 'remove a majormode hook' ],
    'majormode-hook-targets' => [
        'CaptHook::targetHook("majormode")',
        'associate a majormode-hook with one or more buffers'
    ],

    'do-autocolor-hooks' =>
      [ 'CaptHook::_do_hook("autocolor")', 'Execute autocolor hooks' ],
    'do-buffer-hooks' =>
      [ 'CaptHook::_do_hook("buffer")', 'Execute buffer hooks' ],
    'do-cd-hooks'   => [ 'CaptHook::_do_hook("cd")',   'Execute cd hooks' ],
    'do-exit-hooks' => [ 'CaptHook::_do_hook("exit")', 'Execute exit hooks' ],
    'do-read-hooks' => [ 'CaptHook::_do_hook("read")', 'Execute read hooks' ],
    'do-write-hooks' =>
      [ 'CaptHook::_do_hook("write")', 'Execute write hooks' ],
    'do-majormode-hooks' =>
      [ 'CaptHook::_do_hook("majormode")', 'Execute majormode hooks' ],

    'capthook-help' => [ sub { &manual }, 'manual page for CaptHook.pm' ]
);

sub import {
    Vile::Exporter::import(@_);
    _setup();
}

*unimport = *_teardown;

my %_autocolor_hooks;
my %_buffer_hooks;
my %_cd_hooks;
my %_exit_hooks;
my %_read_hooks;
my %_write_hooks;
my %_majormode_hooks;

my @_autocolor_index;
my @_buffer_index;
my @_cd_index;
my @_exit_index;
my @_read_index;
my @_write_index;
my @_majormode_index;

my %_autocolor_targets;
my %_buffer_targets;
my %_exit_targets;
my %_cd_targets;
my %_read_targets;
my %_write_targets;
my %_majormode_targets;

# I shall fear no eval...

sub addHook {

    my ($hook) = @_;
    my ( $label, $rank, $action );

    $action = Vile::mlreply_no_opts("${hook}-hook command?: ");
    return 0 if ( !defined($action) || $action eq '' || $action =~ /^\s*$/ );
    chomp($action);

    $label = Vile::mlreply_no_opts("${hook}-hook command label?: ");
    return 0 if ( !defined($label) || $label eq '' || $label =~ /^\s*$/ );
    chomp($label);

    $rank = Vile::mlreply_no_opts("${hook}-hook command priority?: ");
    return 0 if ( !defined($rank) || $rank eq '' || $rank =~ /^\s*$/ );
    chomp($rank);

    _del_hook( $hook, $label );

    if ( _add_hook( $hook, $label, $rank, $action ) ) {

        print "Failed adding new hook: is ${hook}-hook supported?";
        return 1;
    }

    return 0;
}

sub delHook {

    my ($hook) = @_;
    my $label;

    $label = Vile::mlreply_no_opts("${hook}-hook command label?: ");
    return 0 if ( !defined($label) || $label eq '' || $label =~ /^\s*$/ );
    chomp($label);

    if ( _del_hook( $hook, $label ) ) {
        print "Failed deleting hook: is ${hook}-hook supported?";
        return 1;
    }

    return 0;

}

sub targetHook {

    my ($hook) = @_;

    my $label;
    my $targets = '';

    $label = Vile::mlreply_no_opts("${hook}-hook label?: ");
    return 0 if ( !defined($label) || $label eq '' || $label =~ /^\s*$/ );
    chomp($label);

    $targets = Vile::mlreply_no_opts("${hook}-hook targets?: ");
    return 0 if ( !defined($targets) || $targets eq '' || $targets =~ /^\s*$/ );
    chomp($targets);

    if ( _target_hook( $hook, $label, ( split( / *\, */, $targets ) ) ) ) {

        print "Failed adding hook target: is ${hook}-hook supported?";
        return 1;
    }

    return 0;
}

sub _do_hook {

    my ($hook) = @_;
    my ( $action, $i, $max );
    my $targets;
    my $label;

    return 1 if ( _not_supported($hook) );

    $max = eval("scalar(\@_${hook}_index)");

    for ( $i = 0 ; $i < $max ; $i++ ) {
        $label   = eval("\$_${hook}_index[\$i][1]");
        $targets = eval("\$_${hook}_targets{\$label}");

        if ( !$targets || !scalar(@$targets) || _on_target( $hook, @$targets ) )
        {

            $action = eval("\$_${hook}_hooks{\$label}");
            if ( defined($action) && $action ne '' ) {

                package main;
                eval { Vile::command $action };
                warn $@ if $@;

                package CaptHook;
            }
        }

        # window update lameness...
        if ( $hook ne 'autocolor' ) {
            $Vile::current_buffer->dot( $Vile::current_buffer->dot );
        }
    }
    Vile::update();

    return 0;
}

sub _on_target {

    my ( $hook, @targets ) = @_;
    my $bufname;
    my $cwd;
    my $filename;
    my $on_target = 0;

    if (   $hook eq 'autocolor'
        || $hook eq 'buffer'
        || $hook eq 'write'
        || $hook eq 'exit' )
    {

        $bufname = $Vile::current_buffer->buffername();
        $on_target = 1 if ( grep( $bufname =~ /$_/, @targets ) );

    }
    elsif ( $hook eq 'cd' ) {

        $cwd = Vile::get('$cwd');
        $on_target = 1 if ( grep( $cwd =~ /$_/, @targets ) );

    }
    elsif ( $hook eq 'read' || $hook eq 'majormode' ) {

        $filename = $Vile::current_buffer->filename();
        $on_target = 1 if ( grep( $filename =~ /$_/, @targets ) );

    }

    return $on_target;
}

sub _add_hook {

    my ( $hook, $label, $rank, $action ) = @_;
    my $max;

    return 1 if ( _not_supported($hook) );

    $max = eval("scalar(\@_${hook}_index)");

    eval("\$_${hook}_index[\$max][0] = \$rank");
    eval("\$_${hook}_index[\$max][1] = \$label");
    eval("\@_${hook}_index = sort { \$a->[0] <=> \$b->[0] } \@_${hook}_index");

    eval("\$_${hook}_hooks{\$label} = \$action");

    return 0;
}

sub _target_hook {

    my ( $hook, $label, @targets ) = @_;
    my $max;
    my $target;

    return 1 if ( _not_supported($hook) );

    eval("\$_${hook}_targets{\$label} = \\\@targets");

    return 0;
}

sub _del_hook {

    my ( $hook, $label ) = @_;
    my ( $max, $i );

    return 1 if ( _not_supported($hook) );

    $max = eval("scalar(\@_${hook}_index)");

    for ( $i = 0 ; $i < $max ; $i++ ) {
        if ( eval("\$_${hook}_index[\$i][1]") eq $label ) {
            eval("splice(\@_${hook}_index, \$i, 1)");
            last;
        }
    }

    if ( eval("defined(\$_${hook}_hooks{\$label})") ) {
        eval("delete \$_${hook}_hooks{\$label}");
    }

    if ( eval("defined(\$_${hook}_targets{\$label})") ) {
        eval("delete \$_${hook}_targets{\$label}");
    }

    return 0;
}

sub _setup {

    my $oldhook;
    my $cb = $Vile::current_buffer;

    $oldhook = $cb->get('$autocolor-hook');
    Vile::command('setv $autocolor-hook do-autocolor-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-autocolor-hooks' )
    {
        _add_hook( "autocolor", "$oldhook", 1542, "$oldhook", '' );
    }

    $oldhook = $cb->get('$buffer-hook');
    Vile::command('setv $buffer-hook do-buffer-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-buffer-hooks' )
    {
        _add_hook( "buffer", "$oldhook", 1542, "$oldhook", '' );
    }

    $oldhook = $cb->get('$cd-hook');
    Vile::command('setv $cd-hook do-cd-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-cd-hooks' )
    {
        _add_hook( "cd", "$oldhook", 1542, "$oldhook", '' );
    }

    $oldhook = $cb->get('$exit-hook');
    Vile::command('setv $exit-hook do-exit-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-exit-hooks' )
    {
        _add_hook( "exit", "$oldhook", 1542, "$oldhook", '' );
    }

    $oldhook = $cb->get('$read-hook');
    Vile::command('setv $read-hook do-read-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-read-hooks' )
    {
        _add_hook( "read", "$oldhook", 1542, "$oldhook", '' );
    }

    $oldhook = $cb->get('$write-hook');
    Vile::command('setv $write-hook do-write-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-write-hooks' )
    {
        _add_hook( "write", "$oldhook", 1542, "$oldhook", '' );
    }

    $oldhook = $cb->get('$majormode-hook');
    Vile::command('setv $majormode-hook do-majormode-hooks');
    if (   $oldhook ne 'ERROR'
        && $oldhook ne ''
        && $oldhook ne 'do-majormode-hooks' )
    {
        _add_hook( "majormode", "$oldhook", 1542, "$oldhook", '' );
    }

    print "Ahoy, Maties!";
    return 0;
}

sub _teardown {

    Vile::command('unsetv $autocolor-hook');
    Vile::command('unsetv $buffer-hook');
    Vile::command('unsetv $cd-hook');
    Vile::command('unsetv $exit-hook');
    Vile::command('unsetv $read-hook');
    Vile::command('unsetv $write-hook');
    Vile::command('unsetv $majormode-hook');

    return 0;
}

sub _not_supported {

    my ($hook) = @_;

    return 1
      if ( $hook ne 'autocolor'
        && $hook ne 'buffer'
        && $hook ne 'cd'
        && $hook ne 'exit'
        && $hook ne 'read'
        && $hook ne 'write'
        && $hook ne 'majormode' );

    return 0;
}

1;