primitive design_docs resource, BugzID 10243

1 files changed, 17 insertions, 1 deletions

diff --git a/src/fabric.erl b/src/fabric.erl
index 29af3224..29396e9e 100644
--- a/src/fabric.erl
+++ b/src/fabric.erl
@@ -12,7 +12,7 @@
 -export([all_docs/4]).
 
 % miscellany
--export([db_path/2]).
+-export([db_path/2, design_docs/1]).
 
 -include("fabric.hrl").
 
@@ -65,6 +65,22 @@ all_docs(DbName, #view_query_args{} = QueryArgs, Callback, Acc0) when
         is_function(Callback, 2) ->
     fabric_view_all_docs:go(dbname(DbName), QueryArgs, Callback, Acc0).
 
+design_docs(DbName) ->
+    QueryArgs = #view_query_args{start_key = <<"_design/">>, include_docs=true},
+    Callback = fun({total_and_offset, _, _}, []) ->
+        {ok, []};
+    ({row, {Props}}, Acc) ->
+        case couch_util:get_value(id, Props) of
+        <<"_design/", _/binary>> ->
+            {ok, [couch_util:get_value(doc, Props) | Acc]};
+        _ ->
+            {stop, Acc}
+        end;
+    (complete, Acc) ->
+        {ok, lists:reverse(Acc)}
+    end,
+    fabric:all_docs(dbname(DbName), QueryArgs, Callback, []).
+
 %% some simple type validation and transcoding
 
 dbname(DbName) when is_list(DbName) ->