# HG changeset patch
# User Emmanuel Gil Peyrot <linkmauve@linkmauve.fr>
# Date 1640442917 -3600
# Node ID 5fc306239db344f7a08806757e782aafe88aa134
# Parent  60b2dbe032c064c8839bdbbd3e2031482a899ec9
mod_pep_atom_categories: Add a module to index categories in Atom entries

A new node is created for each category, named category-<the category>, which
contains a list of all node/item tuples having said category as a tag.

diff -r 60b2dbe032c0 -r 5fc306239db3 mod_pep_atom_categories/mod_pep_atom_categories.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/mod_pep_atom_categories/mod_pep_atom_categories.lua	Sat Dec 25 15:35:17 2021 +0100
@@ -0,0 +1,32 @@
+module:depends("pep");
+
+local st = require"util.stanza";
+
+local options = {
+	access_model = "open",
+	max_items = "max",
+};
+
+module:handle_items("pep-service", function (event)
+        local service = event.item.service;
+
+        module:hook_object_event(service.events, "item-published", function(event)
+		local service = event.service;
+		local node = event.node;
+		local actor = event.actor;
+		local id = event.id;
+		local item = event.item;
+
+		local entry = item:get_child("entry", "http://www.w3.org/2005/Atom");
+		if entry == nil then
+			return;
+		end
+
+		for category in entry:childtags("category") do
+			local term = category.attr.term;
+			local payload = st.stanza("item", {xmlns = "http://jabber.org/protocol/pubsub"})
+				:tag("item", {xmlns = "xmpp:linkmauve.fr/x-categories", jid = service.jid, node = node, id = id});
+			service:publish("category-"..term, actor, nil, payload, options);
+		end
+	end);
+end);