amalgame/commit

oops, forgot to check in the hook itself

authorJacco van Ossenbruggen
Tue Sep 2 15:06:15 2014 +0200
committerJacco van Ossenbruggen
Tue Sep 2 15:06:15 2014 +0200
commite239c77ce11fece8de063dc421d3de3b64174cb0
tree0d21a29816e91e9b9f975b8cd15ed69913c1bde5
parentbc432100614ee0f8a2d90011e4748689fda7d884
Diff style: patch stat
diff --git a/lib/amalgame/hooks/autocomplete.pl b/lib/amalgame/hooks/autocomplete.pl
new file mode 100644
index 0000000..0def50c
--- /dev/null
+++ b/lib/amalgame/hooks/autocomplete.pl
@@ -0,0 +1,13 @@
+:- module(autocomplete_hook, []).
+
+/* This hook allows the autocomplete cpack to suggest skos concepts
+ * from virtual vocabulary schemes created by amalgame.
+ */
+
+:- use_module(library(amalgame/vocabulary)).
+
+:- multifile
+        cliopatria:in_scheme/2.  % filter hook
+
+cliopatria:in_scheme(Concept, Scheme) :-
+	vocab_member(Concept, Scheme).