path: root/_extensions/ruc-play/semantic-markdown/semantic-markdown.lua

--- semantic-markdown - Pandoc plugin to process semantic hints
---
--- SPDX-FileCopyrightText: 2025  Jonas Smedegaard <dr@jones.dk>
--- SPDX-License-Identifier: GPL-3.0-or-later
---
--- ## Examples
---
--- Ideally, this text:
---
--- ```Markdown+RDF
--- Simple ontological annotation:
--- [This]{foaf:depiction} is not a pipe.
---
--- Nested, mixed-use and custom-namespaced annotations:
--- [[Ceci]{foaf:depiction} n'est pas une pipe.]{lang=fr bibo:Quote}
---
--- {bibo}: http://purl.org/ontology/bibo/
--- ```
---
--- ...should with this filter be transformed to this text:
---
--- ```Markdown
--- ---
--- turtle: |
---   @prefix bibo: http://purl.org/ontology/bibo/
---
---   _:001 a foaf:depiction .
---   _:002 a foaf:depiction .
---   _:003 a bibo:Quote .
--- ---
--- Simple ontological annotation:
--- This is not a pipe.
---
--- Nested, mixed-use and custom-namespaced annotations:
--- [Ceci n'est pas une pipe.]{lang=fr}
--- ```
---
--- When target document format is html,
--- this filter should ideally produce RDFa 1.1 Lite or Core data.
--- (Lite is *not* a subset of Core as it deviates slightly).
---
--- * v0.0.1
---   * initial release
---
--- @version 0.0.1
--- @see <https://source.jones.dk/semantic-markdown/about/>
--- @see <https://moodle.ruc.dk/course/view.php?id=23505>
--- @see <https://www.w3.org/TR/rdfa-primer/#using-rdfa>
--- @see <https://www.ctrl.blog/entry/rdfa-link-attributes.html>

-- TODO: maybe use topdown traversal
--  * order of declaring annotations might matter (but should not)
--  * might enable simpler functions and/or faster processing
-- @see <https://pandoc.org/lua-filters.html#topdown-traversal>

-- ensure stable character classes independent of system locale
-- @see <https://pandoc.org/lua-filters.html#common-pitfalls>
os.setlocale 'C'

--- pseudo-enum table to track parser enclosure state
--- @see <https://stackoverflow.com/a/70529481/18619283>
local Enclosure = {
  NONE = "0",
  BRACKETED = "1",
  BRACKETED_DONE = "2",
  BRACED = "3",
}

-- element types representing content enclosure in Markdown
local ElementTypeIsEnclosure = {
  Emph = true,
  Image = true,
  Link = true,
  Strong = true,
}

-- TODO: cover non-ASCII Unicode characters
-- @see <https://www.lua.org/manual/5.4/manual.html#6.5>
--- curie_prefix - CURIE prefix component as set of chars
--- @see <https://www.w3.org/TR/2010/NOTE-curie-20101216/>
local _name_start_char = "A-Z_a-z"
local _name_char = _name_start_char.."-0-9"
local _ref = "[".._name_start_char.."][".._name_char.."]*"
local curie_prefix = "[".._name_start_char.."_-][".._name_char.."]*"

--- curie_long - CURIE with prefix and reference as set of chars
local curie_long = curie_prefix..":".._ref

--- curie_no_ref - CURIE with only prefix as set of chars
local curie_no_ref = curie_prefix..":"

--- curie_local - CURIE with only name as set of chars
local curie_local = ":".._ref

--- curie_default - CURIE without prefix or name as char
local curie_default = ":"

-- TODO: curie_re - CURIE as `LPeg.re` regex object
-- TODO: test and replace above curie* patterns
-- @see <https://pandoc.org/lua-filters.html#global-variables>
--local curie_re = re.compile("("..curie_prefix..")?:(".._ref..")?")

-- FIXME: define RDF context same as RDFa
-- TODO: maybe support overriding context with a JSON-LD URI
-- @see <https://www.w3.org/2011/rdfa-context/rdfa-1.1>

--- Namespaces - process RDF namespace IRI declarations
---
--- Takes as input a list of Para block elements.
--- For each block matching the pattern for a namespace IRI definition,
--- the declared namespace is extracted.
--- Returns an empty paragraph in case of a match,
--- or nothing (to signal preservation of original content).
---
--- Example:
---
--- ```Markdown
--- # Annotated paragraph using a custom namespace
---
--- My favorite animal is the [Liger]{ov:preferredAnimal}.
---
--- {ov}: http://open.vocab.org/terms/
--- ```
---
--- @param blocks  Markdown with ontological annotations as Blocks
--- @returns       Markdown without ontological annotations as Blocks
--- @see <https://pandoc.org/lua-filters.html#type-blocks>
--- @see <https://www.w3.org/TR/rdf12-concepts/#vocabularies>
local function Namespaces(blocks)

  -- paragraph with only a braced prefix-only CURIE, colon and one word
  local curie_pattern = "^{"..curie_prefix.."}:$"
  if #blocks.content == 3
    and blocks.content[1].t == "Str"
    and blocks.content[2].t == "Space"
    and blocks.content[1].text:match(curie_pattern)
  then
    local el = blocks.content[3]

    -- default namespace, parsed as commonmark
    if el.t == "Str"
        and el.text == "@default"
    then
      -- FIXME: add CURIE to metadata
      return {}
    end

    -- default namespace, parsed as markdown
    if el.t == "Cite"
        and #el.content == 1
        and el.content[1].text == "@default"
    then
      -- FIXME: add CURIE to metadata
      return {}
    end

    -- namespace
    -- TODO: relax to match URI syntax without hardcoded protocols
    local proto_pattern = "^[Hh][Tt][Tt][Pp][Ss]?:"
    if el.t == "Str"
      and el.text:match(proto_pattern)
    then
      -- FIXME: add CURIE and URI to metadata
      return {}
    end
  end
end

--- Statements - process inline RDF statements
---
--- Locate and extract ontological annotations
--- within a [Block] element of a Pandoc Abstract Syntax Tree (AST).
---
--- Markup for ontological annotations is an extension to Markdown
--- using similar syntax as hypermedia annotations,
--- but listing RDFa [CURIEs] in a braced enclosure.
---
--- ```ASCII-art
--- Simple ontological annotation:
--- "A [map]{foaf:depiction} is not the territory"
---    |   ||\~~~~~~~~~~~~/|
---    a   bc    CURIEa    d
---
--- Nested and mixed-use annotations:
--- ["[Ceci]{foaf:depiction} n'est pas une pipe"]{lang=fr dc:Text}
--- | |    ||\~~~~~~~~~~~~/|                    ||        \~~~~~/|
--- a a1   |c1   CURIEa    d1                   bc        CURIEb d
---        b1
---
--- Chained hypermedia and ontological annotations:
--- "A [map](https://osm.org/){foaf:depiction} is not the territory"
---    |   ||                ||\~~~~~~~~~~~~/|
---    a   be                fc    CURIEa    d
---
--- Legend:
---  a-b: braceted enclosure around content
---  c-d: bracketed enclosure around ontological or other annotation
---  e-f: parenthesized enclosure around hypermedia annotation
--- ```
---
--- Ontological annotations are parsed and reorganised
--- using the following algorithm:
---
---  1. locate pairs of bracketed text and braced text
---     either adjacent or separated by parenthesized text,
---     where braced text contains one or more [CURIEs]
---  2. for each pair,
---    1. add CURIEs in braced text to metadata
---    2. add positions of brackets to metadata
---    3. delete CURIEs
---    4. delete braced enclosure if now structurally empty
---    5. delete brackets if now unannotated
---
--- The implementation is inspired by Pandoc [issue#6038].
---
--- @param inlines  Markdown with semantic annotations as Inlines
--- @returns        Markdown stripped of semantic annotations as Inlines
--- @see [Block]: <https://pandoc.org/lua-filters.html#type-block>
--- @see [CURIEs]: <https://www.w3.org/TR/2010/NOTE-curie-20101216/>
--- @see [issue#6038]: <https://github.com/jgm/pandoc/issues/6038>
-- TODO: maybe instead as step #5 add/reuse hypermedia anchor
local function Statements (block)

  -- flags for enclosing stages
  -- TODO: support nested bracket enclosure
  local encl = Enclosure.NONE

  -- amount of detected statements in this block
  local statement_count = 0

  local elems = {}

  for _, el in ipairs(block.content) do
    local pos = 1
    local chars = ""

    -- non-string element
    if el.t ~= 'Str' then

      -- specific elements represent content enclosure
      if encl == Enclosure.NONE then
        if ElementTypeIsEnclosure[el.t] then
          encl = Enclosure.BRACKETED_DONE
        end

      -- disqualify bracketing not directly followed by brace
      elseif encl == Enclosure.BRACKETED_DONE then
        encl = Enclosure.NONE
      end

      -- collect element, except in braced enclosure
      -- TODO: support mixed-use braced enclosure
      if encl ~= Enclosure.BRACED then
        table.insert(elems, el)
      end

      goto continue
    end

    -- unenclosed
    -- TODO: accept backslash except immediately before bracket
    if encl == Enclosure.NONE then
      local _, x, s = el.text:find("^([^%[\\]*)")
      pos = x and x + 1 or pos + 1
      chars = chars..s

      -- entering bracketed enclosure
      if el.text:sub(pos, pos) == "[" then
        pos = pos + 1
        encl = Enclosure.BRACKETED
      end
    end

    -- in bracketed enclosure
    -- TODO: accept backslash except immediately before bracket/brace
    -- TODO: support nested bracket enclosure
    if encl == Enclosure.BRACKETED then
      local _, x, s = el.text:find("^([^%[%]}\\]*)", pos)
      pos = x and x + 1 or pos + 1
      chars = chars..s

      -- exiting bracketed enclosure
      if el.text:sub(pos, pos) == "]" then
        pos = pos + 1
        encl = Enclosure.BRACKETED_DONE
      end
    end

    -- exited bracketed enclosure
    if encl == Enclosure.BRACKETED_DONE then

      -- entering braced enclosure
      if el.text:sub(pos, pos) == "{" then
        pos = pos + 1
        encl = Enclosure.BRACED

      -- leaving non-annotation enclosure
      else
        encl = Enclosure.NONE

        -- TODO: parse remains of Str
      end
    end

    -- in braced enclosure, leaving it
    -- TODO: support mixed-use enclosure
    if encl == Enclosure.BRACED then
      local _, d1 = el.text:find("^"..curie_long.."}", pos)
      local _, d2 = el.text:find("^"..curie_no_ref.."}", pos)
      local _, d3 = el.text:find("^"..curie_local.."}", pos)
      local _, d4 = el.text:find("^"..curie_default.."}", pos)
      local d = d1 or d2 or d3 or d4
      if d then
        statement_count = statement_count + 1
        pos = d + 1

        -- TODO: instead recursively call Statements() on remains of Str
        chars = chars..el.text:sub(pos)

        encl = Enclosure.NONE
      end
    end

    -- push any string collected from above parsing to stack
    if chars:len() > 0 then
      table.insert(elems, pandoc.Str(chars))
    end

    -- done parsing current Inline element
    ::continue::
  end
  if statement_count > 0 then
    return pandoc.Blocks {pandoc.Para(elems)}
  end
end

-- First resolve namespace declarations, then statements.
--
-- Although this filter is *not* a full RDF parser,
-- order matters for the parts we do handle --
-- e.g. namespace resolving is similar to other RDF formats
-- with detailed documented process ordering.
--
-- @see <https://www.w3.org/TR/turtle/#sec-parsing>
local meta = {}
return {

  -- move aside MetaBlocks to speed up processing content
  --
  -- @see <https://stackoverflow.com/a/47356252/18619283>
  { Meta = function(m) meta = m; return {} end },

  {Para = Namespaces},

  {Block = Statements},

  -- FIXME: add custom declared namespaces in Meta
  -- TODO: maybe add only actively used namespaces
  -- (do same as for unused link definitions)
  { Meta = function(_) return meta; end },
  --{ Meta = function(_) return NamespacesToMeta(meta); end },
}