sub
options {
(
'n|name=s'
=>
'name'
,
'v|verbose'
=>
'verbose'
,
'nm|no-migration'
=>
'no_migration'
,
't|type=s'
=>
'type'
,
'a|author=s'
=>
'author'
,
'e|email=s'
=>
'email'
,
'no_dirs'
=>
'no_dirs'
,
'dirs=s'
=>
'dirs'
,
);
}
sub
run {
my
(
$self
,
@args
) =
@_
;
my
$plugin_name
;
my
$author
;
my
$email
;
$plugin_name
||=
$self
->{name};
unless
(
$plugin_name
) {
my
$cwd
;
chomp
(
$cwd
= `pwd`);
$cwd
=~ s{/$}{};
my
@s
=
split
"/"
,
$cwd
;
$plugin_name
=
pop
@s
;
$self
->{name} =
$plugin_name
;
}
my
$info_file
= File::Spec->
join
(
$ENV
{HOME} ,
'.vim-author'
) ;
if
( -e
$info_file
) {
say
"Found author info file"
;
open
FH ,
"<"
,
$info_file
or
die
$@;
while
( <FH> ) {
chomp
(
$self
->{author} =
$_
)
if
s/^author:\s+//;
chomp
(
$self
->{email} =
$_
)
if
s/^email:\s+//;
}
say
" Author: "
.
$self
->{author};
say
" Email: "
.
$self
->{email};
close
FH;
}
unless
(
$self
->{author} and
$self
->{email} ) {
say
"Please specify --author and --email"
;
return
;
}
unless
(
$self
->{no_migration} ) {
File::Path::mkpath [
'vimlib'
];
my
@known_dir_names
=
qw(autoload indent syntax colors doc plugin ftplugin after ftdetect)
;
for
(
@known_dir_names
) {
if
( -e
$_
) {
say
"$_ directory found , migrate $_ into vimlib/ "
;
rename
$_
, File::Spec->
join
(
'vimlib'
,
$_
);
}
}
}
$self
->create_dir_skeleton();
$self
->create_doc_skeleton()
if
( -e File::Spec->
join
(
'vimlib'
,
'doc'
) );
$self
->create_meta_skeleton( );
$self
->create_readme_skeleton();
}
sub
create_readme_skeleton {
my
$self
=
shift
;
my
$cmd
=
shift
;
say
"Creating README"
;
open
README ,
">"
,
"README"
;
print
README
""
;
close
README;
}
sub
create_doc_skeleton {
my
$self
=
shift
;
my
$name
=
$self
->{name};
say
"Creating doc skeleton."
;
open
DOC ,
">"
, File::Spec->
join
(
'vimlib'
,
'doc'
,
"$name.txt"
);
print
DOC
<<END;
*$name.txt* Plugin for ....
$name *$name*
Last Change: @{[ DateTime->now ]}
Version 0.0.0
Copyright (C) yourname
License: MIT license {{{
Permission is hereby granted, free of charge, to any person obtaining
a copy of this software and associated documentation files (the
"Software"), to deal in the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom the Software is furnished to do so, subject to
the following conditions:
The above copyright notice and this permission notice shall be included
in all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEME and associated documentation files (the
"Software"), to deal in the Software without restriction, including
without limitation the rights to use, copy, modify, merge, publish,
distribute, sublicense, and/or sell copies of the Software, and to
permit persons to whom
}}}
CONTENTS *$name-contents*
|$name-description| Description
|$name-usage| Usage
|$name-key-mappings| Key mappings
|$name-variables| Variables
|$name-contact| Contact
For Vim version 7.0 or later.
This plugin only works if 'compatible' is not set.
{Vi does not have any of these features.}
==============================================================================
DESCRIPTION *$name-description*
*$name* is a plugin to provide way to ...
==============================================================================
USAGE *$name-usage*
==============================================================================
KEY MAPPINGS *$name-key-mappings*
xx_key *xx_key*
key description here
==============================================================================
VARIABLES *$name-variables*
g:xxx_variable
Your variable here
==============================================================================
CHANGELOG *$name-changelog*
==============================================================================
CONTACT *$name-contact*
==============================================================================
Document skeleton generated by VIM::Packager.
vim:tw=78:ts=8:ft=help:norl:fen:fdl=0:fdm=marker:
END
close
DOC;
}
sub
create_dir_skeleton {
my
$self
=
shift
;
say
"Creating directories."
;
return
if
$self
->{no_dirs};
$self
->{dirs} ||=
'auto'
;
if
(
$self
->{dirs} eq
'basic'
) {
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(autoload syntax plugin ftplugin ftdetect doc)
],1;
}
elsif
(
$self
->{dirs} eq
'full'
) {
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(autoload syntax indent colors plugin ftplugin ftdetect compiler doc)
],1;
}
elsif
(
$self
->{dirs} eq
'auto'
) {
my
$type
=
$self
->{type};
if
(
$type
) {
if
(
$type
eq
'syntax'
) {
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(syntax indent)
],1;
}
elsif
(
$type
eq
'colors'
) {
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(colors)
],1;
}
elsif
(
$type
eq
'plugin'
) {
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(plugin doc autoload)
],1;
}
elsif
(
$type
eq
'ftplugin'
) {
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(ftplugin doc autoload)
],1;
}
}
else
{
File::Path::mkpath [
map
{ File::Spec->
join
(
'vimlib'
,
$_
) }
qw(autoload plugin doc)
],1;
}
}
}
sub
create_meta_skeleton {
my
$self
=
shift
;
say
"Writing META."
;
open
FH,
">"
,
"META"
;
print
FH
<<END;
\n=name @{[ $self->{name} ]}
\n=author @{[ $self->{author} ]}
\n=email @{[ $self->{email} ]}
\n=type @{[ $self->{type} || '[ script type ]' ]}
\n=version_from [File]
\n=vim_version >= 7.2
\n=dependency
[name] >= [version]
[name]
\n=script
# your script files here
END
close
FH;
}
1;