amalgame/commit

ADDED: basic nodelist api (should have used this from day one ...?)

diff --git a/api/mappinglist.pl b/api/mappinglist.pl
index c3a5aaa..7e8d5b2 100644
--- a/api/mappinglist.pl
+++ b/api/mappinglist.pl
@@ -3,12 +3,14 @@
 	  ]).
 
 :- use_module(library(semweb/rdf_db)).
+:- use_module(library(semweb/rdf_label)).
 :- use_module(library(http/http_dispatch)).
 :- use_module(library(http/http_parameters)).
 :- use_module(library(http/http_json)).
-:- use_module(library(semweb/rdf_label)).
+:- use_module(library(amalgame/json_util)).
 
 :- http_handler(amalgame(data/mappinglist), http_mapping_list, []).
+:- http_handler(amalgame(data/nodelist), http_node_list, []).
 
 %%	http_mapping_list(+Request)
 %
@@ -23,7 +25,10 @@ http_mapping_list(Request) :-
 				 [default(final)])
 			]),
 	Obj = json([uri=URI, label=Label]),
-	findall(Obj, mapping_in_strategy(Strategy, URI, Label, [status(Status)]), Mappings),
+	findall(Obj,
+		mapping_in_strategy(Strategy, URI, Label,
+				    [status(Status)]),
+		Mappings),
 	reply_json(Mappings).
 
 mapping_in_strategy(Strategy, MappingId, Label, Options) :-
@@ -32,3 +37,12 @@ mapping_in_strategy(Strategy, MappingId, Label, Options) :-
 	rdf(MappingId, amalgame:status, MappingStatus),
 	rdf_global_id(_NS:StatusRequired, MappingStatus),
 	rdf_display_label(MappingId, Label).
+
+http_node_list(Request) :-
+	http_parameters(Request,
+			[ strategy(Strategy,
+				   [description('URL of strategy')])
+			]),
+	js_strategy_nodes(Strategy, Nodes),
+	reply_json(Nodes).
+