Allow to use jog instead of walk for individual filters

Jog can be enable on a per-filter basis by setting the `traverser` field
to `jog`.

Author: tarleb

src/resources/filters/ast/customnodes.lua

@@ -41,7 +41,7 @@ function is_regular_node(node, name)
   return node
 end
 
-function run_emulated_filter(doc, filter)
+function run_emulated_filter(doc, filter, traverse)
   if doc == nil then
     return nil
   end
@@ -73,7 +73,20 @@ function run_emulated_filter(doc, filter)
         -- luacov: enable
       end
     end
-    local result = node:walk(filter_param)
+
+    local old_traverse = _quarto.traverser
+    if traverser == nil or traverser == 'pandoc' or traverser == 'walk' then
+      _quarto.traverser = _quarto.utils.walk
+    elseif traverser == 'jog' then
+      _quarto.traverser = _quarto.modules.jog
+    elseif type(traverser) == 'function' then
+      _quarto.traverser = traverser
+    else
+      warn('Unknown traverse method: ' .. tostring(traverse))
+    end
+    local result = _quarto.traverser(node, filter_param)
+    _quarto.traverse = old_traverse
+
     return result
   end
 

src/resources/filters/ast/emulatedfilter.lua

@@ -68,6 +68,9 @@ inject_user_filters_at_entry_points = function(filter_list)
     end
     local filter = {
       name = entry_point .. "-user-" .. tostring(entry_point_counts[entry_point]),
+      -- The filter might not work as expected when doing a non-lazy jog, so
+      -- make sure it is processed with the default 'walk' function.
+      traverser = 'walk',
     }
     if is_many_filters then
       filter.filters = wrapped
@@ -76,4 +79,4 @@ inject_user_filters_at_entry_points = function(filter_list)
     end
     table.insert(filter_list, index, filter)
   end
-end
+end

src/resources/filters/ast/runemulation.lua

@@ -79,7 +79,7 @@ local function run_emulated_filter_chain(doc, filters, afterFilterPass, profilin
         print(pandoc.write(doc, "native"))
       else
         _quarto.ast._current_doc = doc
-        doc = run_emulated_filter(doc, v.filter)
+        doc = run_emulated_filter(doc, v.filter, v.traverser)
         ensure_vault(doc)
 
         add_trace(doc, v.name)
@@ -204,4 +204,4 @@ function run_as_extended_ast(specTable)
   end
 
   return pandocFilterList
-end
+end

src/resources/filters/quarto-post/render-asciidoc.lua

@@ -89,7 +89,7 @@ function render_asciidoc()
             local noteEl = el[i+1]
             -- if the note contains a code inline, we need to add a space
             local hasCode = false
-            pandoc.walk_inline(noteEl, {
+            _quarto.traverser(noteEl, {
               Code = function(_el)
                 hasCode = true
               end