fix: handle offset conceal nodes

## Details

Currently when computing the range of a conceal highlight we always use
the entire range of the node.

However if an offset directive is specified then the range in the
metadata should be used instead.

This change accomplishes this by adding a series of fallbacks when
computing conceal information. First by checking the metadata range,
then the metadata[node_id] range, and finally falling back to the node
range of neither of these exist.

Author: MeanderingProgrammer

doc/render-markdown.txt

@@ -1,4 +1,4 @@
-*render-markdown.txt*         For 0.10.0        Last change: 2024 September 27
+*render-markdown.txt*         For 0.10.0        Last change: 2024 September 29
 
 ==============================================================================
 Table of Contents                          *render-markdown-table-of-contents*

lua/render-markdown/core/context.lua

@@ -229,9 +229,9 @@ function Context:compute_conceal()
     local parser = vim.treesitter.get_parser(self.buf)
     self:parse(parser)
     parser:for_each_tree(function(tree, language_tree)
-        local nodes = self:compute_conceal_nodes(language_tree:lang(), tree:root())
-        for _, node in ipairs(nodes) do
-            local row, start_col, _, end_col = node:range()
+        local conceal_ranges = self:compute_conceal_ranges(language_tree:lang(), tree:root())
+        for _, conceal_range in ipairs(conceal_ranges) do
+            local row, start_col, end_col = unpack(conceal_range)
             if ranges[row] == nil then
                 ranges[row] = {}
             end
@@ -244,8 +244,8 @@ end
 ---@private
 ---@param language string
 ---@param root TSNode
----@return TSNode[]
-function Context:compute_conceal_nodes(language, root)
+---@return [integer, integer, integer][]
+function Context:compute_conceal_ranges(language, root)
     if not self:overlaps_node(root) then
         return {}
     end
@@ -256,15 +256,24 @@ function Context:compute_conceal_nodes(language, root)
     if query == nil then
         return {}
     end
-    local nodes = {}
+    local result = {}
     for _, range in ipairs(self.ranges) do
-        for _, node, metadata in query:iter_captures(root, self.buf, range.top, range.bottom) do
+        for id, node, metadata in query:iter_captures(root, self.buf, range.top, range.bottom) do
             if metadata.conceal ~= nil then
-                table.insert(nodes, node)
+                local node_range = metadata.range
+                if node_range == nil and metadata[id] ~= nil then
+                    node_range = metadata[id].range
+                end
+                if node_range == nil then
+                    ---@diagnostic disable-next-line: missing-fields
+                    node_range = { node:range() }
+                end
+                local row, start_col, _, end_col = unpack(node_range)
+                table.insert(result, { row, start_col, end_col })
             end
         end
     end
-    return nodes
+    return result
 end
 
 ---@type table<integer, render.md.Context>

lua/render-markdown/health.lua

@@ -4,7 +4,7 @@ local state = require('render-markdown.state')
 local M = {}
 
 ---@private
-M.version = '7.2.3'
+M.version = '7.2.4'
 
 function M.check()
     M.start('version')