Merge pull request #7 from JJ/master

Adds `source-url`, with config from default, and test

.gitignore

@@ -0,0 +1 @@
+**/.precomp

lib/App/six-pm/Meta6.pm6

@@ -24,8 +24,8 @@ has Str     %.support               is json-skip-null is rw;
 has Bool    $.production            is json-skip-null is rw    = False;
 has Str     $.license               is json-skip-null is rw    = "https://opensource.org/licenses/Artistic-2.0";
 has Str     @.tags                  is json-skip-null is rw;
-
-has Str         %.scripts           is json-skip-null is rw    = {
+has Str     $.source-url            is json-skip-null is rw;
+has Str     %.scripts           is json-skip-null is rw    = {
     test => "zef test ."
 }
 

lib/App/six-pm/SixPM.pm6

@@ -11,7 +11,7 @@ class SixPM {
 	has Installer $.installer = ZefInstaller.new: :$!default-to, :$!DEBUG;
 
 	method get-project-name  { prompt "Project name [{$!meta.name}]: " }
-	method get-project-tags  { prompt("Project tags: ") }
+	method get-project-tags  { prompt("Project tags (separated by space): ") }
 	method get-perl6-version { prompt "perl6 version [{$!meta.perl}]: " }
 
 	method init(:$name, :@tags, :$perl-version) {
@@ -31,6 +31,11 @@ class SixPM {
 					$!meta.perl = $perl
 				}
 			}
+
+			if ".git/config".IO.e {
+			    my $git-config = ".git/config".IO.slurp;
+			    $!meta.source-url = ($git-config ~~  m{ \[remote \s+ \"origin\"\] \s+ url \s+ \= \s+ <(\S*)> }).Str;
+                        }		    
 			$!meta.save
 		}
 	}

t/01-six-pm.t

@@ -60,6 +60,7 @@ sub name is rw { state $a }
 		is $meta.name, "my_test";
 		is-deeply $meta.tags, <bla ble bli>;
 		is $meta.perl, "v6.*";
+		isnt $meta.source-url, "";
 	}
 
 	subtest {