From fb8b2afef89aba7a8e10fb81fa73612691ba2b97 Mon Sep 17 00:00:00 2001
From: Bill Stumbo <wstumbo@charter.net>
Date: Fri, 5 Jun 2026 21:29:20 -0400
Subject: [PATCH 1/2] Update bibliographies to include additional metadaa.

Metadata is encoded as JSON-LD and provides information for Google and
other search engines.  A first step in enabling richer data in our
searches.
---
 layouts/_partials/bibliography-json-ld.html | 290 ++++++++++++++++++++
 layouts/_partials/hooks/head-end.html       |   1 +
 2 files changed, 291 insertions(+)
 create mode 100644 layouts/_partials/bibliography-json-ld.html

diff --git a/layouts/_partials/bibliography-json-ld.html b/layouts/_partials/bibliography-json-ld.html
new file mode 100644
index 00000000..b466452f
--- /dev/null
+++ b/layouts/_partials/bibliography-json-ld.html
@@ -0,0 +1,290 @@
+{{- /*
+  bibliography-json-ld.html
+  Emits a <script type="application/ld+json"> block for bibliography pages.
+
+  • Single pages  → type-specific Schema.org type (ScholarlyArticle, Book, etc.)
+  • Section/list  → CollectionPage + ItemList
+
+  Only activates when .Type == "bibliography"; safe to call from head-end.html.
+  Note: Hugo's `return` does NOT terminate template execution; a top-level `if`
+  guard is used instead.
+*/ -}}
+{{- if eq .Type "bibliography" -}}
+
+{{- if .IsPage -}}
+
+{{- /* ── Date: mirror the logic in single.html ──────────────────────────── */ -}}
+{{- $dateTime := .Date -}}
+{{- with .Params.date -}}
+  {{- $iso := trim . " " -}}
+  {{- if and (ne $iso "") (findRE `^\d{4}-\d{2}-\d{2}$` $iso) -}}
+    {{- $dateTime = time $iso -}}
+  {{- end -}}
+{{- end -}}
+{{- $dateISO := $dateTime.Format "2006-01-02" -}}
+{{- $hasDate  := ne $dateISO "0001-01-01" -}}
+
+{{- /* ── Map item_type → Schema.org @type ──────────────────────────────── */ -}}
+{{- $itemType   := .Params.item_type | default "document" -}}
+{{- $schemaType := "CreativeWork" -}}
+{{- if      eq $itemType "article-journal"        -}}{{- $schemaType = "ScholarlyArticle"   -}}
+{{- else if eq $itemType "article-magazine"       -}}{{- $schemaType = "Article"            -}}
+{{- else if eq $itemType "paper-conference"       -}}{{- $schemaType = "ScholarlyArticle"   -}}
+{{- else if eq $itemType "book"                   -}}{{- $schemaType = "Book"               -}}
+{{- else if eq $itemType "chapter"                -}}{{- $schemaType = "Chapter"            -}}
+{{- else if eq $itemType "report"                 -}}{{- $schemaType = "Report"             -}}
+{{- else if eq $itemType "thesis"                 -}}{{- $schemaType = "Thesis"             -}}
+{{- else if eq $itemType "patent"                 -}}{{- $schemaType = "CreativeWork"       -}}
+{{- else if eq $itemType "webpage"                -}}{{- $schemaType = "WebPage"            -}}
+{{- else if eq $itemType "post-weblog"            -}}{{- $schemaType = "BlogPosting"        -}}
+{{- else if eq $itemType "motion_picture"         -}}{{- $schemaType = "VideoObject"        -}}
+{{- else if eq $itemType "entry-encyclopedia"     -}}{{- $schemaType = "Article"            -}}
+{{- else if eq $itemType "personal_communication" -}}{{- $schemaType = "Message"            -}}
+{{- else if eq $itemType "software"               -}}{{- $schemaType = "SoftwareSourceCode" -}}
+{{- end -}}
+
+{{- /* ── Helper: build []Person from a raw authors/editors field ─────────
+     Handles both slice and single-string values.
+     Names are stored as "Last, First [Middle]"; we split on the first comma
+     to get familyName / givenName and recombine as "First Last" for name.
+*/ -}}
+{{- $authorObjs := slice -}}
+{{- $rawAuthors  := .Params.authors -}}
+{{- $authorList  := slice -}}
+{{- if reflect.IsSlice $rawAuthors -}}
+  {{- $authorList = $rawAuthors -}}
+{{- else if $rawAuthors -}}
+  {{- $authorList = slice $rawAuthors -}}
+{{- end -}}
+{{- range $authorList -}}
+  {{- $parts := split . ", " -}}
+  {{- if gt (len $parts) 1 -}}
+    {{- $family := index $parts 0 -}}
+    {{- $given  := index $parts 1 -}}
+    {{- $authorObjs = append (dict "@type" "Person" "name" (printf "%s %s" $given $family) "familyName" $family "givenName" $given) $authorObjs -}}
+  {{- else -}}
+    {{- $authorObjs = append (dict "@type" "Person" "name" .) $authorObjs -}}
+  {{- end -}}
+{{- end -}}
+
+{{- $editorObjs := slice -}}
+{{- $rawEditors  := .Params.editors -}}
+{{- $editorList  := slice -}}
+{{- if reflect.IsSlice $rawEditors -}}
+  {{- $editorList = $rawEditors -}}
+{{- else if $rawEditors -}}
+  {{- $editorList = slice $rawEditors -}}
+{{- end -}}
+{{- range $editorList -}}
+  {{- $parts := split . ", " -}}
+  {{- if gt (len $parts) 1 -}}
+    {{- $family := index $parts 0 -}}
+    {{- $given  := index $parts 1 -}}
+    {{- $editorObjs = append (dict "@type" "Person" "name" (printf "%s %s" $given $family) "familyName" $family "givenName" $given) $editorObjs -}}
+  {{- else -}}
+    {{- $editorObjs = append (dict "@type" "Person" "name" .) $editorObjs -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── sameAs: source URL + Zotero record URL ───────────────────────── */ -}}
+{{- $sameAs := slice -}}
+{{- with .Params.url_source -}}{{- $sameAs = append (trim . " ") $sameAs -}}{{- end -}}
+{{- with .Params.zotero_url -}}{{- $sameAs = append (trim . " ") $sameAs -}}{{- end -}}
+
+{{- /* ── Base JSON-LD object (properties common to all types) ─────────── */ -}}
+{{- $ld := dict
+  "@context"   "https://schema.org"
+  "@type"      $schemaType
+  "name"       .Title
+  "url"        .Permalink
+  "inLanguage" "en-US"
+-}}
+
+{{- with .Params.abstract -}}
+  {{- $ld = merge $ld (dict "description" .) -}}
+{{- end -}}
+
+{{- if $hasDate -}}
+  {{- $ld = merge $ld (dict "datePublished" $dateISO) -}}
+{{- end -}}
+
+{{- with .Params.lastmod -}}
+  {{- $ld = merge $ld (dict "dateModified" .) -}}
+{{- end -}}
+
+{{- if gt (len $authorObjs) 0 -}}
+  {{- $ld = merge $ld (dict "author" $authorObjs) -}}
+{{- end -}}
+
+{{- if gt (len $editorObjs) 0 -}}
+  {{- $ld = merge $ld (dict "editor" $editorObjs) -}}
+{{- end -}}
+
+{{- if gt (len $sameAs) 0 -}}
+  {{- $ld = merge $ld (dict "sameAs" $sameAs) -}}
+{{- end -}}
+
+{{- /* ── Patent: additionalType + structured identifiers ──────────────── */ -}}
+{{- if eq $itemType "patent" -}}
+  {{- $ld = merge $ld (dict "additionalType" "Patent") -}}
+
+  {{- $identifiers := slice -}}
+  {{- with .Params.patent_number -}}
+    {{- $identifiers = append (dict "@type" "PropertyValue" "propertyID" "patent-number" "value" .) $identifiers -}}
+  {{- end -}}
+  {{- with .Params.application_number -}}
+    {{- $identifiers = append (dict "@type" "PropertyValue" "propertyID" "application-number" "value" .) $identifiers -}}
+  {{- end -}}
+  {{- if gt (len $identifiers) 0 -}}
+    {{- $ld = merge $ld (dict "identifier" $identifiers) -}}
+  {{- end -}}
+
+  {{- with .Params.assignee -}}
+    {{- $ld = merge $ld (dict "funder" (dict "@type" "Organization" "name" .)) -}}
+  {{- end -}}
+  {{- with .Params.issuing_authority -}}
+    {{- $ld = merge $ld (dict "countryOfOrigin" (dict "@type" "Country" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Journal / Magazine article ────────────────────────────────────── */ -}}
+{{- if or (eq $itemType "article-journal") (eq $itemType "article-magazine") -}}
+  {{- with .Params.publication_title -}}
+    {{- $ld = merge $ld (dict "isPartOf" (dict "@type" "Periodical" "name" .)) -}}
+  {{- end -}}
+  {{- with .Params.volume -}}{{- $ld = merge $ld (dict "volumeNumber" .) -}}{{- end -}}
+  {{- with .Params.issue  -}}{{- $ld = merge $ld (dict "issueNumber"  .) -}}{{- end -}}
+  {{- with .Params.pages  -}}{{- $ld = merge $ld (dict "pagination"   .) -}}{{- end -}}
+{{- end -}}
+
+{{- /* ── Conference paper ─────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "paper-conference" -}}
+  {{- with .Params.proceedings_title -}}
+    {{- $ld = merge $ld (dict "isPartOf" (dict "@type" "Periodical" "name" .)) -}}
+  {{- end -}}
+  {{- with .Params.publisher -}}
+    {{- $ld = merge $ld (dict "publisher" (dict "@type" "Organization" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Book ─────────────────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "book" -}}
+  {{- with .Params.publisher -}}
+    {{- $ld = merge $ld (dict "publisher" (dict "@type" "Organization" "name" .)) -}}
+  {{- end -}}
+  {{- with .Params.place -}}
+    {{- $ld = merge $ld (dict "locationCreated" .) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Chapter ──────────────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "chapter" -}}
+  {{- with .Params.book_title -}}
+    {{- $bookDict := dict "@type" "Book" "name" . -}}
+    {{- with $.Params.publisher -}}
+      {{- $bookDict = merge $bookDict (dict "publisher" (dict "@type" "Organization" "name" .)) -}}
+    {{- end -}}
+    {{- $ld = merge $ld (dict "isPartOf" $bookDict) -}}
+  {{- end -}}
+  {{- with .Params.pages -}}{{- $ld = merge $ld (dict "pagination" .) -}}{{- end -}}
+{{- end -}}
+
+{{- /* ── Report ───────────────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "report" -}}
+  {{- with .Params.publisher -}}
+    {{- $ld = merge $ld (dict "publisher" (dict "@type" "Organization" "name" .)) -}}
+  {{- end -}}
+  {{- with .Params.reportType -}}
+    {{- $ld = merge $ld (dict "additionalType" .) -}}
+  {{- end -}}
+  {{- with .Params.reportNumber -}}
+    {{- $ld = merge $ld (dict "identifier" (dict "@type" "PropertyValue" "propertyID" "report-number" "value" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Thesis ───────────────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "thesis" -}}
+  {{- with .Params.university -}}
+    {{- $ld = merge $ld (dict "sourceOrganization" (dict "@type" "CollegeOrUniversity" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Blog post ─────────────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "post-weblog" -}}
+  {{- with .Params.blog_title -}}
+    {{- $ld = merge $ld (dict "isPartOf" (dict "@type" "Blog" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Motion picture / video ──────────────────────────────────────── */ -}}
+{{- if eq $itemType "motion_picture" -}}
+  {{- with .Params.studio -}}
+    {{- $ld = merge $ld (dict "productionCompany" (dict "@type" "Organization" "name" .)) -}}
+  {{- end -}}
+  {{- with .Params.video_recording_format -}}
+    {{- $ld = merge $ld (dict "encodingFormat" .) -}}
+  {{- end -}}
+  {{- with .Params.series_title -}}
+    {{- $ld = merge $ld (dict "partOfSeries" (dict "@type" "CreativeWorkSeries" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Encyclopedia entry ──────────────────────────────────────────── */ -}}
+{{- if eq $itemType "entry-encyclopedia" -}}
+  {{- with .Params.encyclopedia_title -}}
+    {{- $ld = merge $ld (dict "isPartOf" (dict "@type" "Book" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+{{- /* ── Webpage ──────────────────────────────────────────────────────── */ -}}
+{{- if eq $itemType "webpage" -}}
+  {{- with .Params.website_title -}}
+    {{- $ld = merge $ld (dict "isPartOf" (dict "@type" "WebSite" "name" .)) -}}
+  {{- end -}}
+{{- end -}}
+
+<script type="application/ld+json">
+{{- $ld | jsonify (dict "indent" "  ") | safeJS -}}
+</script>
+
+{{- else if .IsSection -}}
+
+{{- /* ── COLLECTION PAGE (bibliography index) ──────────────────────────── */ -}}
+{{- $pages := .RegularPages -}}
+{{- $pages  = sort $pages "Date" "desc" -}}
+{{- $pages  = sort $pages "Title" "asc" -}}
+
+{{- $itemList := slice -}}
+{{- range $i, $p := $pages -}}
+  {{- $itemList = append (dict
+    "@type"    "ListItem"
+    "position" (add $i 1)
+    "name"     $p.Title
+    "url"      $p.Permalink
+  ) $itemList -}}
+{{- end -}}
+
+{{- $desc := .Description | default "A bibliography of publications, patents, reports, and other artifacts related to the Interlisp programming environment." -}}
+
+{{- $ld := dict
+  "@context"    "https://schema.org"
+  "@type"       "CollectionPage"
+  "name"        .Title
+  "url"         .Permalink
+  "description" $desc
+  "inLanguage"  "en-US"
+  "mainEntity"  (dict
+    "@type"           "ItemList"
+    "name"            .Title
+    "numberOfItems"   (len $pages)
+    "itemListElement" $itemList
+  )
+-}}
+
+<script type="application/ld+json">
+{{- $ld | jsonify (dict "indent" "  ") | safeJS -}}
+</script>
+
+{{- end -}}
+
+{{- end -}}
diff --git a/layouts/_partials/hooks/head-end.html b/layouts/_partials/hooks/head-end.html
index 9daa28c0..f800ce9f 100644
--- a/layouts/_partials/hooks/head-end.html
+++ b/layouts/_partials/hooks/head-end.html
@@ -1,2 +1,3 @@
 <link rel="canonical" href="{{ .Permalink }}">
 <link rel="me" href="https://fosstodon.org/@interlisp">
+{{ partial "bibliography-json-ld.html" . }}

From 3940d92b1e4c1ed7352355758eaee3c194e31002 Mon Sep 17 00:00:00 2001
From: Bill Stumbo <wstumbo@charter.net>
Date: Thu, 18 Jun 2026 23:21:03 -0400
Subject: [PATCH 2/2] Clean up book metadata.  - Remove incorrect usage of
 locationCreated field  - Fix formatting of titles.  Remove newline character
 at end of string

---
 layouts/_partials/bibliography-json-ld.html | 3 ---
 scripts/bibSplit.pl                         | 8 +++++---
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/layouts/_partials/bibliography-json-ld.html b/layouts/_partials/bibliography-json-ld.html
index b466452f..b83b770f 100644
--- a/layouts/_partials/bibliography-json-ld.html
+++ b/layouts/_partials/bibliography-json-ld.html
@@ -172,9 +172,6 @@
   {{- with .Params.publisher -}}
     {{- $ld = merge $ld (dict "publisher" (dict "@type" "Organization" "name" .)) -}}
   {{- end -}}
-  {{- with .Params.place -}}
-    {{- $ld = merge $ld (dict "locationCreated" .) -}}
-  {{- end -}}
 {{- end -}}
 
 {{- /* ── Chapter ──────────────────────────────────────────────────────── */ -}}
diff --git a/scripts/bibSplit.pl b/scripts/bibSplit.pl
index 8a9b77be..97356543 100755
--- a/scripts/bibSplit.pl
+++ b/scripts/bibSplit.pl
@@ -58,10 +58,12 @@ sub sanitize_text {
 
   my $type = $obj->{type} // '';
 
-  # Titles can have colons and other special characters.  Place YAML keyword on one line
-  # and follow it with the title indented on subsequent line
+  # Titles can have colons and other special characters.  Use a YAML double-quoted scalar
+  # so the decoded value has no trailing newline (the literal-block `|` style would add one).
   my $itemTitle = sanitize_text($obj->{title} // '');
-  my $title = $itemTitle eq '' ? "title: ''" : "title: |\n  $itemTitle\n";
+  (my $escapedTitle = $itemTitle) =~ s/\\/\\\\/g;
+  $escapedTitle =~ s/"/\\"/g;
+  my $title = $itemTitle eq '' ? "title: ''" : "title: \"$escapedTitle\"";
 
   # Abstracts can be multi-line and  contain multiple paragraphs.  Place YAML keyword on
   # one line and follow it with the abstract indented on subsequent lines.