20260312 - Fix .pdf hanging indent for manuscript references and make source code single spaced

Author: isaactpetersen

_extensions/wjschne/apaquarto/_extension.yml

@@ -150,7 +150,8 @@ contributes:
       anchor-sections: false
       fig-cap-location: top
       html-math-method: katex
-      mainfont: Times, Times New Roman, serif
+      mainfont: Times New Roman, Times, serif
+      monofont: Consolas, Lucida Console, Courier New, monospace
       grid: 
         body-width: "7in"
       css: apa.css

_extensions/wjschne/apaquarto/apa.css

@@ -90,3 +90,8 @@ table {
 .tabwid {padding: 0}
 
 .AbstractFirstParagraph p {text-indent: 0}
+
+.sourceCode {
+  font-family: Consolas, "Lucida Console", "Courier New", monospace;
+  font-size: 10pt;
+}

_extensions/wjschne/apaquarto/apafloatlatex.lua

@@ -83,7 +83,7 @@ local processfloat = function(float)
     local latextableenv = "table"
     -- Manuscript spacing before note needs adjustment ment
     if manuscriptmode then
-      beforenote = "\\vspace{-20pt}\n"
+      beforenote = "\\vspace{-12pt}\n"
       if float.attributes["beforenotespace"] then
         beforenote = "\\vspace{" .. float.attributes["beforenotespace"] .. "}\n"
       end

_extensions/wjschne/apaquarto/apatemplate.tex

@@ -1,7 +1,7 @@
 $doc-class.tex()$
 \usepackage{amsmath}
 \usepackage{amssymb}
-
+\usepackage{setspace}
 $if(docmode)$
 \geometry{inner=1in, outer=1in}
 \fancyhfoffset[LE,RO]{0cm}
@@ -40,6 +40,9 @@
 \RequirePackage{longtable}
 \RequirePackage{threeparttablex}
 
+\usepackage{framed}
+
+
 $header.tex()$
 
 $if(highlighting-macros)$
@@ -247,12 +250,19 @@
 \setcounter{page}{$first-page$}
 $endif$
 
+\ifdefined\Shaded\renewenvironment{Shaded}{\begin{snugshade}\begin{singlespace}}{\end{singlespace}\end{snugshade}}\fi
+
+$if(journalmode)$
+$else$
+\setlength{\cslhangindent}{0.5in}
+$endif$
 
 $body$
 
 $before-bib.tex()$
 
-$if(zeroitations)$
+$if(zerocitations)$
+$else$
 $biblio.tex()$
 $endif$
 

_extensions/wjschne/apaquarto/crossrefprefix.lua

@@ -99,7 +99,7 @@ local walkblock = function(b)
 
       if (headerfirstword == appendixword or headerfirstword == "Appendix") and newsppendixstyle then
         print(
-        "This style of creating appendices is deprecated:\n\n# Appendix A\n\n#Relationship Descriptive Scale\n\nInstead, use a single descriptive level-1 heading,\nfollowed by a an identifier with the apx prefix:\n\n# Relationship Description Scale {@apx-relationship}\n")
+        "This style of creating appendices is deprecated:\n\n# Appendix A\n\n#Relationship Descriptive Scale\n\nInstead, use a single descriptive level-1 heading,\nfollowed by a an identifier with the apx prefix:\n\n# Relationship Description Scale {#apx-relationship}\n")
         newsppendixstyle = false
       end
 

_extensions/wjschne/apaquarto/header.tex

@@ -48,6 +48,6 @@
 
 
 \usepackage{hyperref}
-
+\usepackage[protrusion=true]{microtype}
 
 

_extensions/wjschne/apaquarto/typst/typst-template.typ

@@ -44,6 +44,15 @@
 
   if suppresstitlepage {counter(page).update(first-page)}
 
+  show raw.where(block: true): set par(
+    spacing: 6pt,
+    leading: 6pt
+  )
+  
+  show raw.where(block: true): set text(
+    size: 10pt
+  )
+
   set page(
     margin: margin,
     paper: paper,

_quarto.yml

@@ -27,9 +27,11 @@ format:
   apaquarto-docx:
     toc: false
   #apaquarto-typst: # comment out Typst until bug is fixed: https://github.com/quarto-dev/quarto-cli/issues/11552
+  #  keep-typ: true
   #  toc: false
   #  list-of-figures: false
   #  list-of-tables: false
+  #  papersize: "us-letter"
   apaquarto-pdf:
     documentmode: man
     keep-tex: true