cpack_repository/commit

Show calls to public predicates in predicate overview.

diff --git a/components/cpack.pl b/components/cpack.pl
index 1177b46..59c12ee 100644
--- a/components/cpack.pl
+++ b/components/cpack.pl
@@ -593,6 +593,12 @@ required_predicate(_File, literal(LPI)) -->
 	cpack_link(literal(LPI)),
 	html([span(class(msg_informational),
 		   ' multifile')]).
+required_predicate(File, literal(LPI)) -->
+	{ file_calls_public_from(File, UsedFile, LPI)
+	},
+	cpack_link(literal(LPI)),
+	html([span(class(msg_informational),
+		   [' public in ', \cpack_link(UsedFile)])]).
 required_predicate(_File, PI) -->
 	cpack_link(PI),
 	html(span(class(msg_error), ' undefined')).
diff --git a/lib/cpack/dependency.pl b/lib/cpack/dependency.pl
index 6a8eff5..c27f32f 100644
--- a/lib/cpack/dependency.pl
+++ b/lib/cpack/dependency.pl
@@ -35,7 +35,8 @@
 	    cpack_list/2,		% +Package, -ListOfImplied
 	    cpack_not_satisfied/2,	% +Package, -Reasons
 	    file_not_satisfied/2,	% +File, -Reasons
-	    file_imports_from/3		% +File, -Imports, -From
+	    file_imports_from/3,	% +File, -Imports, -From
+	    file_calls_public_from/3	% +File, -UsedFile, +PI
 	  ]).
 :- use_module(library(assoc)).
 :- use_module(library(ugraphs)).