feat: initial releasev1.0.0

1 files changed, 20 insertions, 0 deletions

diff --git a/src/gemtext/blockquote.gleam b/src/gemtext/blockquote.gleam
new file mode 100644
index 0000000..94aa937
--- /dev/null
+++ b/src/gemtext/blockquote.gleam
@@ -0,0 +1,20 @@
+import gemtext/gemtext.{type Gemtext}
+import gleam/list
+import gleam/string
+
+pub fn combine_adjacent_blockquote_lines(lines: List(Gemtext)) -> List(Gemtext) {
+  case lines {
+    [gemtext.BlockquoteLine(a), gemtext.BlockquoteLine(b), ..rest] ->
+      combine_adjacent_blockquote_lines([
+        gemtext.Blockquote(string.join([a, b], "\n")),
+        ..rest
+      ])
+    [gemtext.Blockquote(a), gemtext.BlockquoteLine(b), ..rest] ->
+      combine_adjacent_blockquote_lines([
+        gemtext.Blockquote(string.join([a, b], "\n")),
+        ..rest
+      ])
+    [g, ..rest] -> list.append([g], combine_adjacent_blockquote_lines(rest))
+    [] -> []
+  }
+}