add extensions

_extensions/authors-block/utils.lua

@@ -0,0 +1,62 @@
+--[[
+authors-block – affiliations block extension for quarto
+
+Copyright (c) 2023 Lorenz A. Kapsner
+
+Permission to use, copy, modify, and/or distribute this software for any purpose
+with or without fee is hereby granted, provided that the above copyright notice
+and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH
+REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
+FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT,
+INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS
+OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
+TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
+THIS SOFTWARE.
+]]
+
+local List = require 'pandoc.List'
+local utils = require 'pandoc.utils'
+local stringify = utils.stringify
+
+-- [import]
+local from_scholarly = require "from_scholarly_metadata"
+local resolve_institutes = from_scholarly.resolve_institutes
+-- [/import]
+
+local M = {}
+
+-- from @kapsner
+local function normalize_affiliations(affiliations)
+  local affiliations_norm = List:new(affiliations):map(
+    function(affil, i)
+      affil.index = pandoc.MetaInlines(pandoc.Str(tostring(i)))
+      affil.id = pandoc.MetaString(stringify(affil.id))
+      return affil
+    end
+  )
+  return affiliations_norm
+end
+M.normalize_affiliations = normalize_affiliations
+
+-- from https://stackoverflow.com/a/2282547
+local function has_key(set, key)
+  return set[key] ~= nil
+end
+M.has_key = has_key
+
+-- from @kapsner
+local function normalize_authors(affiliations)
+  return function(auth)
+    auth.id = pandoc.MetaString(stringify(auth.name))
+    auth.affiliations = resolve_institutes(
+      auth.affiliations,
+      affiliations
+    )
+    return auth
+  end
+end
+M.normalize_authors = normalize_authors
+
+return M