fix: #3

evaluate <pre> child separately

Author: luckasRanarison

lua/nvim-devdocs/transpiler.lua

@@ -95,10 +95,7 @@ M.html_to_md = function(html)
     result = "",
   }
 
-  ---@param node TSNode
-  function transpiler:get_node_text(node)
-    local row_start, col_start = node:start()
-    local row_end, col_end = node:end_()
+  function transpiler:get_text_range(row_start, col_start, row_end, col_end)
     local extracted_lines = {}
 
     for i = row_start, row_end do
@@ -118,6 +115,15 @@ M.html_to_md = function(html)
     return table.concat(extracted_lines, "\n")
   end
 
+  ---@param node TSNode
+  function transpiler:get_node_text(node)
+    local row_start, col_start = node:start()
+    local row_end, col_end = node:end_()
+    local text = self:get_text_range(row_start, col_start, row_end, col_end)
+
+    return text
+  end
+
   ---@param node TSNode
   function transpiler:get_node_tag_name(node)
     local tag_node = node:named_child():named_child()
@@ -154,6 +160,7 @@ M.html_to_md = function(html)
   end
 
   ---@param node TSNode
+  ---@return TSNode[]
   function transpiler:filter_tag_children(node)
     local children = node:named_children()
     local filtered = vim.tbl_filter(function(child)
@@ -180,8 +187,13 @@ M.html_to_md = function(html)
 
       if tag_type == "start_tag" then
         local children = self:filter_tag_children(node)
+
         for _, child in ipairs(children) do
-          result = result .. self:eval(child)
+          if tag_name == "pre" then
+            result = result .. self:eval_pre_child(child)
+          else
+            result = result .. self:eval(child)
+          end
         end
       end
 
@@ -229,6 +241,31 @@ M.html_to_md = function(html)
     return result
   end
 
+  ---@param node TSNode
+  function transpiler:eval_pre_child(node)
+    local result = self:eval(node)
+    local sibling = node:next_named_sibling()
+
+    if sibling then
+      local c_row_end, c_col_end = node:end_()
+      local s_row_start, s_col_start = sibling:start()
+      local row, col = c_row_end, c_col_end
+
+      while row ~= s_row_start or col ~= s_col_start do
+        local char = self:get_text_range(row, col, row, col + 1)
+        if char ~= "" then
+          result = result .. char
+          col = col + 1
+        else
+          result = result .. "\n"
+          row, col = row + 1, 0
+        end
+      end
+    end
+
+    return result
+  end
+
   ---@param node TSNode
   function transpiler:eval_table(node)
     local result = ""