Detect explicit refs div

Author: dragonstyle

src/resources/filters/quarto-pre/input-traits.lua

@@ -0,0 +1,19 @@
+-- input-traits.lua
+-- Copyright (C) 2020 by RStudio, PBC
+
+
+function addInputTrait(key, value)
+  preState.results.inputTraits[key] = value
+end
+
+local kPositionedRefs = 'positioned-refs'
+function inputTraits() 
+  return {
+    Div = function(el) 
+      local hasPositionedRefs = el.attr.identifier == 'refs'
+      if (hasPositionedRefs) then
+        addInputTrait(kPositionedRefs, true) 
+      end
+    end
+  }
+end

src/resources/filters/quarto-pre/quarto-pre.lua

@@ -11,7 +11,8 @@ text = require 'text'
 preState = {
   usingTikz = false,
   results = {
-    resourceFiles = pandoc.List({})
+    resourceFiles = pandoc.List({}),
+    inputTraits = {}
   },
   file = nil,
   appendix = false,
@@ -74,6 +75,7 @@ import("content-hidden.lua")
 import("line-numbers.lua")
 import("output-location.lua")
 import("include-paths.lua")
+import("input-traits.lua")
 -- [/import]
 
 initParams()
@@ -109,6 +111,7 @@ return {
     panelTabset(),
     panelLayout(),
     panelSidebar(),
+    inputTraits()
   }),
   combineFilters({
     fileMetadata(),