Bind repository discovery

src/geef.erl

@@ -5,7 +5,7 @@
 
 % repository operations
 -export([repository_get_path/1, repository_get_odb/1, repository_open/1, repository_init/2,
-	 repository_is_bare/1, repository_get_workdir/1]).
+	 repository_is_bare/1, repository_get_workdir/1, repository_discover/1]).
 
 % oid parsing
 -export([oid_fmt/1, oid_parse/1]).
@@ -41,6 +41,10 @@ repository_get_odb(_Val) ->
 repository_init(_Path, _Bare) ->
     nif_error(?LINE).
 
+-spec repository_discover(iolist()) -> {ok, string()} | error.
+repository_discover(_Path) ->
+    nif_error(?LINE).
+
 reference_list(_Repo) ->
     nif_error(?LINE).
 

src/geef_repo.erl

@@ -1,6 +1,6 @@
 -module(geef_repo).
 
--export([open/1, init/2, path/1, workdir/1, odb/1, is_bare/1, references/1]).
+-export([open/1, init/2, path/1, workdir/1, odb/1, is_bare/1, references/1, discover/1]).
 
 -include("geef_records.hrl").
 
@@ -29,6 +29,10 @@ is_bare(#repo{handle=Handle}) ->
 references(#repo{handle=Handle}) ->
     geef:reference_list(Handle).
 
+-spec discover(iolist()) -> {ok, binary()} | error | {error, term()}.
+discover(Path) ->
+    geef:repository_discover(Path).
+
 -spec open(iolist()) -> {ok, repo()} | {error, term()}.
 open(Path) ->
     case geef:repository_open(Path) of