some cleanup

src/definition.gleam

@@ -1,3 +1,4 @@
+import gleam/json
 import mode
 
 pub type Line {
@@ -26,3 +27,51 @@ pub type State {
     quotestate: List(Int),
   )
 }
+
+pub fn inline_to_json(inline: Inline) -> json.Json {
+  case inline {
+    Text(text) ->
+      json.object([
+        #("type", json.string("text")),
+        #("value", json.string(text)),
+      ])
+
+    Push(feeling) ->
+      case feeling {
+        Marking(level) ->
+          json.object([
+            #("type", json.string("marking")),
+            #("value", json.int(level)),
+          ])
+
+        Hirachy(level) ->
+          json.object([
+            #("type", json.string("hirachy")),
+            #("value", json.int(level)),
+          ])
+
+        Truth(level) ->
+          json.object([
+            #("type", json.string("truth")),
+            #("value", json.int(level)),
+          ])
+
+        Quote(level) ->
+          json.object([
+            #("type", json.string("quote")),
+            #("value", json.int(level)),
+          ])
+      }
+
+    Pop(text) ->
+      json.object([
+        #("type", json.string("pop")),
+        #("value", case text {
+          mode.Hirachy -> json.string("Hirachy")
+          mode.Truth -> json.string("Truth")
+          mode.Marking -> json.string("Marking")
+          mode.Quote -> json.string("Quote")
+        }),
+      ])
+  }
+}

src/markdown2.gleam

@@ -1,61 +1,20 @@
-import mode
 import definition
+import gleam/io
 import gleam/json
 import parser
-fn inline_to_json(inline: definition.Inline) -> json.Json {
-  case inline {
-    definition.Text(text) ->
-      json.object([
-        #("type", json.string("text")),
-        #("value", json.string(text)),
-      ])
 
-    definition.Push(feeling) ->
+pub fn main() -> Nil {
-      case feeling {
+  io.print("This is a debug function only used for testing")
-        definition.Marking(level) ->
+  io.print(parse_to_json("!2 @3 important >1 quoted"))
-          json.object([
-            #("type", json.string("marking")),
-            #("value", json.int(level)),
-          ])
-
-        definition.Hirachy(level) ->
-          json.object([
-            #("type", json.string("hirachy")),
-            #("value", json.int(level)),
-          ])
-
-        definition.Truth(level) ->
-          json.object([
-            #("type", json.string("truth")),
-            #("value", json.int(level)),
-          ])
-
-        definition.Quote(level) ->
-          json.object([
-            #("type", json.string("quote")),
-            #("value", json.int(level)),
-          ])
-      }
-
-    definition.Pop(text) ->
-      json.object([
-        #("type", json.string("pop")),
-        #("value",   case text {
-          mode.Hirachy -> json.string("Hirachy")
-          mode.Truth -> json.string("Truth")
-          mode.Marking -> json.string("Marking")
-          mode.Quote -> json.string("Quote")
-        }
-),
-      ])
-  }
 }
 
 fn line_to_json(line: definition.Line) -> String {
   let definition.Line(inlines) = line
 
-  json.array(inlines, inline_to_json)
+  json.array(inlines, definition.inline_to_json)
-  |> json.to_string}
+  |> json.to_string
+}
+
 pub fn parse(input: String) -> definition.Line {
   parser.handler(input)
 }

src/parser.gleam

@@ -1,23 +1,25 @@
 import definition
-import mode
-import gleam/int
-import gleam/result
-import gleam/list
 import gleam/dict
+import gleam/int
+import gleam/list
+import gleam/result
 import gleam/string
+import mode
+
 pub fn handler(line: String) -> definition.Line {
   let result = parse(line)
-  let result = echo list.map(result, whatsthat)
+  let result = list.map(result, whatsthat)
   definition.Line(result)
 }
 
 fn whatsthat(mod: String) -> definition.Inline {
-  let modes = dict.from_list([
+  let modes =
-    #("!", #(mode.Marking, definition.Marking)),
+    dict.from_list([
-    #("@", #(mode.Truth, definition.Truth)),
+      #("!", #(mode.Marking, definition.Marking)),
-    #(">", #(mode.Quote, definition.Quote)),
+      #("@", #(mode.Truth, definition.Truth)),
-    #("#", #(mode.Hirachy, definition.Hirachy)),
+      #(">", #(mode.Quote, definition.Quote)),
-  ])
+      #("#", #(mode.Hirachy, definition.Hirachy)),
+    ])
 
   case string.pop_grapheme(mod) {
     Ok(#(prefix, rest)) -> {
@@ -38,7 +40,9 @@ fn whatsthat(mod: String) -> definition.Inline {
 
     Error(_) -> definition.Text(mod)
   }
-}fn parse(modificators: String) -> List(String) {
+}
+
+fn parse(modificators: String) -> List(String) {
   modificators
   // 1. Target the tags + their trailing space, wrapping them in "|"
   |> string.replace(each: "#", with: " |#")