Enhance JSON-LD generation

Author: strawmelonjuice

cynthia_websites_mini_client/src/cynthia_websites_mini_client/dom.gleam

@@ -37,3 +37,8 @@ pub fn set_hash(hash: String) -> Nil
 /// Get innerhtml of an element
 @external(javascript, "./dom.ts", "get_inner_html")
 pub fn get_inner_html(element: element.Element) -> String
+
+/// jsonify_string
+/// Convert a string to a JSON safe string
+@external(javascript, "./dom.ts", "jsonify_string")
+pub fn jsonify_string(str: String) -> Result(String, Nil)

cynthia_websites_mini_client/src/cynthia_websites_mini_client/dom.ts

@@ -1,3 +1,5 @@
+import { Error, Ok } from "../../prelude";
+
 export function get_color_scheme() {
   // Media queries the preferred color colorscheme
 
@@ -57,3 +59,13 @@ export function destroy_comment_box() {
     }
   }
 }
+
+export function jsonify_string(str: string) {
+  // Convert a string to a JSON object
+  try {
+    return new Ok(JSON.stringify(str));
+  } catch (e) {
+    console.error("Failed to parse JSON string:", e);
+    return new Error(null);
+  }
+}

cynthia_websites_mini_client/src/cynthia_websites_mini_client/shared/jsonld.gleam

@@ -0,0 +1,74 @@
+import cynthia_websites_mini_client
+import cynthia_websites_mini_client/configtype
+import cynthia_websites_mini_client/contenttypes
+import cynthia_websites_mini_client/dom
+import cynthia_websites_mini_client/pottery
+import gleam/list
+import gleam/result
+import gleam/string
+import lustre/element
+
+/// Generates JSON-LD structured data for the website.
+pub fn generate_jsonld(cd: configtype.CompleteData) -> String {
+  let base_jsonld = "{
+    \"@context\": \"https://schema.org\",
+    \"@type\": \"Website\",
+    \"name\": " <> cd.global_site_name
+    |> dom.jsonify_string()
+    |> result.unwrap("Site name is invalid") <> ",
+    \"description\": " <> cd.global_site_description
+    |> dom.jsonify_string()
+    |> result.unwrap("Site description is invalid") <> ",
+    \"generator\": {
+      \"@type\": \"SoftwareApplication\",
+      \"name\": \"CynthiaMini Website Engine\",
+      \"url\": \"https://github.com/CynthiaWebsiteEngine/Mini-docs\",
+      \"version\": \"" <> cynthia_websites_mini_client.version() <> "\"
+    },
+    \"@graph\": ["
+
+  let content_jsonld =
+    cd.content
+    |> list.map(fn(c) {
+      let title = {
+        result.unwrap(dom.jsonify_string(c.title), "Title is invalid")
+      }
+      let description = {
+        pottery.parse_html(c.description, "descr.dj")
+        |> element.to_string()
+        |> dom.jsonify_string()
+        |> result.unwrap("Description is invalid")
+      }
+      let content_type = case c.data {
+        contenttypes.PostData(..) -> "BlogPosting"
+        contenttypes.PageData(..) -> "WebPage"
+      }
+
+      let dates = case c.data {
+        contenttypes.PostData(
+          date_published: published,
+          date_updated: updated,
+          category: _,
+          tags: _,
+        ) -> "\n\"datePublished\": \"" <> published <> "\",
+           \"dateModified\": \"" <> updated <> "\","
+        _ -> ""
+      }
+
+      "{
+        \"@type\": \"" <> content_type <> "\",
+        \"@id\": " <> c.permalink |> dom.jsonify_string() |> result.unwrap("/") <> ",
+        \"headline\": " <> title <> ",
+        \"description\": " <> description <> "," <> dates <> "
+        \"mainEntityOfPage\": {
+          \"@type\": \"WebPage\",
+          \"@id\": " <> c.permalink
+      |> dom.jsonify_string()
+      |> result.unwrap("/") <> "
+        }
+      }"
+    })
+    |> string.join(",\n")
+
+  base_jsonld <> content_jsonld <> "]}"
+}

cynthia_websites_mini_server/src/cynthia_websites_mini_server.gleam

@@ -3,9 +3,9 @@ import bungibindies/bun
 import bungibindies/bun/http/serve.{ServeOptions}
 import cynthia_websites_mini_client
 import cynthia_websites_mini_client/configtype
+import cynthia_websites_mini_client/shared/jsonld
 import cynthia_websites_mini_client/shared/sitemap
 import cynthia_websites_mini_server/config
-import cynthia_websites_mini_server/jsonld
 import cynthia_websites_mini_server/mutable_model_type
 import cynthia_websites_mini_server/ssrs
 import cynthia_websites_mini_server/utils/files

cynthia_websites_mini_server/src/cynthia_websites_mini_server/jsonld.gleam

@@ -3,9 +3,9 @@ import bungibindies/bun/bunfile.{type BunFile}
 import bungibindies/bun/http/serve/request.{type Request}
 import bungibindies/bun/http/serve/response
 import cynthia_websites_mini_client/configtype
+import cynthia_websites_mini_client/shared/jsonld
 import cynthia_websites_mini_client/shared/sitemap
 import cynthia_websites_mini_server/config
-import cynthia_websites_mini_server/jsonld
 import cynthia_websites_mini_server/mutable_model_type
 import cynthia_websites_mini_server/ssrs
 import gleam/dict