Enable annotating contributor roles

CHANGELOG.md

@@ -2,6 +2,10 @@
 
 `Inara` uses [SemVer][] (semantic versioning).
 
+## Inara v1.2.0
+
+- Support for annotating author roles with the Contribution Role Taxonomy (CRediT) (Charles Tapley Hoyt)
+
 ## Inara v1.1.0
 
 Released 2024-09-04.

data/defaults/pdf.yaml

@@ -11,6 +11,8 @@ filters:
     path: self-citation.lua
   - type: lua
     path: fix-bibentry-spacing.lua
+  - type: lua
+    path: prepare-credit.lua
 variables:
   # styling options
   colorlinks: true

data/defaults/preprint.yaml

@@ -1,6 +1,9 @@
 to: latex
 output-file: paper.preprint.tex
 template: preprint.latex
+filters:
+  - type: lua
+    path: prepare-credit.lua
 variables:
   # styling options
   colorlinks: true

data/filters/prepare-credit.lua

@@ -0,0 +1,86 @@
+-- Checks if any contributor information is available
+
+roles = pandoc.List {
+    "conceptualization",
+    "data-curation",
+    "formal-analysis",
+    "funding-acquisition",
+    "investigation",
+    "methodology",
+    "project-administration",
+    "resources",
+    "software",
+    "supervision",
+    "validation",
+    "visualization",
+    "writing-original-draft",
+    "writing-review-editing"
+}
+
+degrees = pandoc.List {
+    "Lead",
+    "Supporting",
+    "Equal"
+}
+
+function invalidRole(str)
+    return not roles:includes(str)
+end
+
+function invalidDegree(str)
+    return not degrees:includes(str)
+end
+
+function join_with_commas_and(list)
+    local len = #list
+    if len == 0 then
+        return ""
+    elseif len == 1 then
+        return list[1]
+    elseif len == 2 then
+        return list[1] .. " and " .. list[2]
+    else
+        local result = table.concat(list, ", ", 1, len - 1)
+        return result .. ", and " .. list[len]
+    end
+end
+
+function capitalize_first_letter(str)
+    return str:sub(1, 1):upper() .. str:sub(2)
+end
+
+function clean_role_dict(d)
+  if d.type then
+    return d
+  else
+    return {["type"] = pandoc.utils.stringify(d)}
+  end
+end
+
+function Meta (meta)
+  meta.hasRoles = false
+  for _, author in ipairs(meta.authors or {}) do
+    if author.roles then
+      meta.hasRoles = true
+      roleList = {}
+      for _, roleDict in ipairs(author.roles) do
+        roleDict = clean_role_dict(roleDict)
+        role = pandoc.utils.stringify(roleDict.type)
+        if invalidRole(role) then
+          error("invalid role for author " .. author.name .. ": " .. role)
+        end
+        if roleDict.degree then
+          degree = capitalize_first_letter(pandoc.utils.stringify(roleDict.degree))
+          if invalidDegree(degree) then
+            error("invalid degree for author " .. author.name .. ": " .. degree)
+          end
+          table.insert(roleList, role .. " (" .. degree .. ")")
+        else
+          table.insert(roleList, role)
+        end
+      end
+      author.rolesString = join_with_commas_and(roleList)
+    end
+  end
+  return meta
+end

data/templates/default.latex

@@ -557,6 +557,15 @@ $if(lof)$
 $endif$
 $body$
 
+$if(hasRoles)$
+\section{Author Contributions}\label{author-contributions}
+\begin{enumerate}
+$for(authors)$
+\item $it.name$ - $it.rolesString$
+$endfor$
+\end{enumerate}
+$endif$
+
 $if(natbib)$
 $if(bibliography)$
 $if(biblio-title)$

data/templates/preprint.latex

@@ -438,6 +438,15 @@ $if(has-frontmatter)$
 $endif$
 $body$
 
+$if(hasRoles)$
+\section{Author Contributions}\label{author-contributions}
+\begin{enumerate}
+$for(authors)$
+\item $it.name$ - $it.rolesString$
+$endfor$
+\end{enumerate}
+$endif$
+
 $if(has-frontmatter)$
 \backmatter
 $endif$

example/paper.md

@@ -366,6 +366,72 @@ authors:
   <!--     given-names: 瀧 -->
   <!--     surname: 立花 -->
 
+## Contributor Roles
+
+The [Contribution Role Taxonomy (CRediT)](https://credit.niso.org/contributor-roles) defines
+fourteen standard roles of authors. Each author can be annotated with one or more contribution
+roles.
+
+1. [conceptualization](https://credit.niso.org/contributor-roles/conceptualization)
+2. [data-curation](https://credit.niso.org/contributor-roles/data-curation)
+3. [formal-analysis](https://credit.niso.org/contributor-roles/formal-analysis)
+4. [funding-acquisition](https://credit.niso.org/contributor-roles/funding-acquisition)
+5. [investigation](https://credit.niso.org/contributor-roles/investigation)
+6. [methodology](https://credit.niso.org/contributor-roles/methodology)
+7. [project-administration](https://credit.niso.org/contributor-roles/project-administration)
+8. [resources](https://credit.niso.org/contributor-roles/resources)
+9. [software](https://credit.niso.org/contributor-roles/software)
+10. [supervision](https://credit.niso.org/contributor-roles/supervision)
+11. [validation](https://credit.niso.org/contributor-roles/validation)
+12. [visualization](https://credit.niso.org/contributor-roles/visualization)
+13. [writing-original-draft](https://credit.niso.org/contributor-roles/writing-original-draft)
+14. [writing-review-editing](https://credit.niso.org/contributor-roles/writing-review-editing)
+
+JATS also specifies three degrees which can be used to quantify the impact of a contribution:
+
+1. `Lead`
+2. `Supporting`
+3. `Equal` - for use if multiple equivalent leads
+
+Together, these can be used to identify which authors materially contributed to the paper,
+such as through `formal-analysis` or `data-curation` and which authors contributed immaterially,
+such as through `supervision`. It also allows for saying if multiple people made the same
+kind of contribution, who took the lead.
+
+```yaml
+authors:
+  - name: John Doe
+    affiliation: [ 1 ]
+    roles:
+      - type: 'formal-analysis'
+        degree: 'lead'
+
+  - name: John Boss
+    affiliation: [ 1 ]
+    roles:
+      - type: 'funding-acquisition'
+        degree: 'lead'
+      - type: 'supervision'
+        degree: 'lead'
+```
+
+Roles are optional, and within roles, degrees are optional. It's possible to shorthand
+roles by using strings directly:
+
+```yaml
+authors:
+  - name: John Doe
+    affiliation: [ 1 ]
+    roles:
+      - 'formal-analysis'
+
+  - name: John Boss
+    affiliation: [ 1 ]
+    roles:
+      - 'funding-acquisition'
+      - 'supervision'
+```
+
 ## Affiliations
 
 Each affiliation requires an `index` and `name`.