better remove empty line function

[gitmo/moose-dev-utils.git] / vim / moose_snippets.vim

diff --git a/vim/moose_snippets.vim b/vim/moose_snippets.vim
index 5b97d8d..bfe9f90 100644 (file)
--- a/vim/moose_snippets.vim
+++ b/vim/moose_snippets.vim
@@ -5,18 +5,13 @@ if !exists('loaded_snippet') || &cp
     finish
 endif
 
-function! RemoveEmptySuperClass()
-    if @z == "SuperClass"
-        s/extends '<{}>';\n\n//e
-        return ""
+function! RemoveUnchangedLine()
+    if match(getline('.'), "<{}>") >= 0
+        normal! dd
+        return ''
+    else
+        return @z
     endif
-
-    return @z
-endfun
-
-function! RemoveEmptyLine()
-    s/^\s*<{}>\s*\n//e
-    return @z
 endfun
 
 function! Snippet(abbr, str)
@@ -38,11 +33,24 @@ function! SnippetFile(filename)
     return Snippet(abbr, str)
 endfunction
 
+function! ParameterizedModule()
+    let current_file = expand("%")
+    let t = substitute(current_file, '\.pm', '', '')
+    let t = substitute(t, 'lib/', '', '')
+
+    " Sadly, this does not work because : is a special character in snippet
+    " tag names. Any ideas?
+    "let module = substitute(t, '/', '::', 'g')
+    let module = substitute(t, '/.*', '', '')
+
+    return '<{' . module . '}>'
+endfun
+
 call Snippet('class', [
-            \"package <{ClassName}>;",
+            \"package ".ParameterizedModule().";",
             \"use Moose;",
             \"",
-            \"extends '<{SuperClass:RemoveEmptySuperClass()}>';",
+            \"extends '<{SuperClass:RemoveUnchangedLine()}>;",
             \"",
             \"<{}>",
             \"",
@@ -51,7 +59,7 @@ call Snippet('class', [
             \"",
             \"1;"])
 call Snippet('role', [
-            \"package <{RoleName}>;",
+            \"package ".ParameterizedModule().";",
             \"use Moose::Role;",
             \"",
             \"<{}>",
@@ -63,14 +71,14 @@ call Snippet('has', [
             \"has <{attr}> => (",
             \    "is  => '<{rw}>',",
             \    "isa => '<{Str}>',",
-            \    "<{options:RemoveEmptyLine()}>",
+            \    "<{options:RemoveUnchangedLine()}>",
             \");"])
 call Snippet('hasl', [
             \"has <{attr}> => (",
             \    "is         => '<{rw}>',",
             \    "isa        => '<{Str}>',",
             \    "lazy_build => 1,",
-            \    "<{options:RemoveEmptyLine()}>",
+            \    "<{options:RemoveUnchangedLine()}>",
             \");",
             \"",
             \"sub _build_<{attr}> {",
@@ -80,6 +88,7 @@ call Snippet('hasl', [
 call Snippet('sub', [
             \"sub <{name}> {",
             \    "my $self = shift;",
+            \    "my (<{arg:RemoveUnchangedLine()}>) = @_;",
             \    "<{}>",
             \"}"])
 call Snippet('around', [
@@ -101,7 +110,7 @@ call Snippet('after', [
 
 " MooseX support
 call Snippet('prole', [
-            \"package <{RoleName}>;",
+            \"package ".ParameterizedModule().";",
             \"use MooseX::Role::Parameterized;",
             \"",
             \"<{}>",