amalgame/commit

ADDED: select/remove mode for type selecter

diff --git a/lib/ag_modules/type_select.pl b/lib/ag_modules/type_select.pl
index 2464b5f..2c84d07 100644
--- a/lib/ag_modules/type_select.pl
+++ b/lib/ag_modules/type_select.pl
@@ -8,9 +8,15 @@ amalgame_module(amalgame:'TypeSelect').
 
 parameter(class, uri, '',
 	  'rdfs:Class from which to select the concepts').
+parameter(mode, oneof([select, remove]), select,
+	  'select or remove concepts of this type').
 
 % a bit naive at the moment: we simply change the query that should be
 % done.
 
 selecter(Scheme, and((Scheme), type(Class)), Options) :-
+	option(mode(select), Options),
+	option(class(Class), Options).
+selecter(Scheme, and((Scheme), not(type(Class))), Options) :-
+	option(mode(remove), Options),
 	option(class(Class), Options).