Book chapter cross reference support

We need to pull the identifier up out of the title

Author: dragonstyle

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

@@ -17,8 +17,23 @@ function renderAsciidoc()
     Meta = function(meta)
       if hasMath then
         meta['asciidoc-stem'] = 'latexmath'
-        return meta
       end 
+
+      -- We construct the title with cross ref information into the metadata
+      -- if we see such a title, we need to move the identifier up outside the title
+      local titleInlines = meta['title']
+      if #titleInlines == 1 and titleInlines[1].t == 'Span' then
+        local span =  titleInlines[1]
+        local identifier = span.identifier
+        if refType(identifier) == "sec" then
+          -- this is a chapter title, tear out the id and make it ourselves
+          local titleContents = pandoc.write(pandoc.Pandoc(span.content), "asciidoc")
+          meta['title'] = pandoc.RawInline("asciidoc", titleContents)
+          meta['title-prefix'] = pandoc.RawInline("asciidoc", "[[" .. identifier .. "]]")
+        end
+      end
+
+      return meta
     end,
     Math = function(el)
       hasMath = true;

src/resources/formats/asciidoc/pandoc/template.asciidoc

@@ -1,4 +1,7 @@
 $if(titleblock)$
+$if(title-prefix)$
+$title-prefix$
+$endif$
 = $title$
 $if(by-author)$
 $for(by-author)$$it.name.literal$$if(it.email)$ <$it.email$>$endif$$sep$; $endfor$