Added -h/--homepage command line option for showing homepage in the b…

…rowser

README.md

@@ -65,7 +65,8 @@ Will list all agner-packages. With the `-d` or `--descriptions`
 option, it will also print out the descriptions of the packages, for
 easy grepping to find relevant packages.
 
-    agner spec PACKAGE [-v/--version package_version] [-b/--browser]
+    agner spec PACKAGE [-v/--version package_version] [-b/--browser] 
+                       [-h/--homepage]
 
 Will print a specification of a given package on stdout. If the
 optional version constraint is given (for example `agner spec gproc -v
@@ -75,6 +76,9 @@ optional version constraint is given (for example `agner spec gproc -v
 If `-b` or `--browser` is used, it will also open browser with the specification 
 file in its respective `.agner` repository.
 
+If `-h` or `--homepage` is present, it will also open browser with the package's
+homepage.
+
     agner fetch PACKAGE [DESTDIR] [-v/--version package_version]
 
 Fetch a given `PACKAGE` to either the current directory or,

src/agner.erl

@@ -21,6 +21,7 @@ main(["spec"|Args]) ->
     OptSpec = [
                {package, undefined, undefined, string, "Package name"},
                {browser, $b, "browser", boolean, "Show specification in the browser"},
+               {homepage, $h, "homepage", boolean, "Show package homepage in the browser"},
                {version, $v, "version", {string, "@master"}, "Version"}
               ],
 	start(),
@@ -36,8 +37,14 @@ main(["spec"|Args]) ->
                 false ->
                     ignore
             end,
-
-            io:format("~p~n",[spec(Package,Version)])
+            Spec = spec(Package,Version),
+            case proplists:get_value(homepage, Opts) of
+                true ->
+                    agner_utils:launch_browser(proplists:get_value(homepage, Spec, "http://google.com/?q=" ++ Package));
+                false ->
+                    ignore
+            end,
+            io:format("~p~n",[Spec])
     end,
 	stop();