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.
--- /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);