fix: cleanup ast for links

gleam.toml

@@ -2,7 +2,7 @@
 # https://gleam.run/writing-gleam/gleam-toml/.
 
 name = "commonmark"
-version = "0.1.0"
+version = "0.1.1"
 description = "CommonMark implementation for Gleam, for the BEAM or JS"
 licenses = ["MIT"]
 links = [

src/commonmark/ast.gleam

@@ -24,9 +24,9 @@ pub type InlineNode {
   Emphasis(contents: List(InlineNode), marker: EmphasisMarker)
   StrongEmphasis(contents: List(InlineNode), marker: EmphasisMarker)
   StrikeThrough(contents: List(InlineNode))
-  Link(title: List(InlineNode), href: String)
-  ReferenceLink(title: List(InlineNode), ref: String)
-  Image(title: String, href: String)
+  Link(contents: List(InlineNode), title: Option(String), href: String)
+  ReferenceLink(content: List(InlineNode), ref: String)
+  Image(title: Option(String), href: String)
   UriAutolink(href: String)
   EmailAutolink(href: String)
   HtmlInline(html: String)
@@ -70,15 +70,19 @@ pub type BlockNode {
   Heading(level: Int, contents: List(InlineNode))
   CodeBlock(info: Option(String), full_info: Option(String), contents: String)
   HtmlBlock(html: String)
-  LinkReference(name: String, href: String)
   Paragraph(contents: List(InlineNode))
   BlockQuote(contents: List(BlockNode))
   OrderedList(contents: List(ListItem), start: Int, marker: OrderedListMarker)
   UnorderedList(contents: List(ListItem), marker: UnorderedListMarker)
 }
 
+/// A reference used with ReferenceLink nodes
+pub type Reference {
+  Reference(href: String, title: Option(String))
+}
+
 /// Documents contain all the information necessary to render a document, both structural and
 /// metadata.
 pub type Document {
-  Document(blocks: List(BlockNode), references: Dict(String, String))
+  Document(blocks: List(BlockNode), references: Dict(String, Reference))
 }

src/commonmark/internal/html.gleam

@@ -49,7 +49,7 @@ pub fn inline_to_html(inline: ast.InlineNode) -> String {
     ast.HtmlInline(html) -> html
     ast.Image(_, _) -> "Image"
     ast.ReferenceLink(_, _) -> "Link"
-    ast.Link(_, _) -> "Link"
+    ast.Link(_, _, _) -> "Link"
     ast.NamedEntity("amp", _) -> "&"
     ast.NamedEntity(_, cp) -> string.from_utf_codepoints(cp)
     ast.NumericCharacterReference(cp, _) -> string.from_utf_codepoints([cp])
@@ -58,7 +58,6 @@ pub fn inline_to_html(inline: ast.InlineNode) -> String {
 
 pub fn block_to_html(block: ast.BlockNode) -> String {
   case block {
-    ast.LinkReference(_, _) -> ""
     ast.CodeBlock(None, _, contents) ->
       "<pre><code>" <> { contents |> sanitize_plain_text } <> "</code></pre>\n"
     ast.CodeBlock(Some(info), _, contents) ->