linewrap: boolean() config

.formatter.exs

@@ -13,7 +13,8 @@ locals_without_parens = [
   disclosure: 2,
   paragraph: 2,
   list: 2,
-  brace: 2
+  brace: 2,
+  linewrap: 1
 ]
 
 [

lib/md/parser/dsl.ex

@@ -12,4 +12,10 @@ defmodule Md.Parser.DSL do
       end
     end
   end)
+
+  defmacro linewrap(value \\ true) do
+    quote do
+      @syntax %{linewrap: unquote(value)}
+    end
+  end
 end

lib/md/parser/engine.ex

@@ -663,9 +663,18 @@ defmodule Md.Engine do
             end
 
           state =
-            state
-            |> listener(:linefeed)
-            |> push_char(unquote(lb))
+            case syntax()[:linewrap] do
+              true ->
+                state
+                |> push_path({:br, [], []})
+                |> listener({:tag, {"  ", :br}, nil})
+                |> rewind_state(until: :br, inclusive: true)
+
+              _ ->
+                state
+                |> listener(:linefeed)
+                |> push_char(unquote(lb))
+            end
             |> push_mode({:linefeed, 0})
 
           do_parse(rest, state)

lib/md/parser/syntax.ex

@@ -32,7 +32,8 @@ defmodule Md.Parser.Syntax do
           paragraph: [item()],
           list: [item()],
           tag: [item()],
-          brace: [item()]
+          brace: [item()],
+          linewrap: boolean()
         }
 
   @doc "The implementation should return settings for this particular syntax definition"

lib/md/parser/syntax/default.ex

@@ -131,7 +131,8 @@ defmodule Md.Parser.Syntax.Default do
         {"dl", %{}},
         {"dt", %{}},
         {"dd", %{}}
-      ]
+      ],
+      linewrap: false
     }
   end
 end

test/md/dsl_test.exs

@@ -6,4 +6,9 @@ defmodule Md.DSL.Test do
     assert MyDSLParser.syntax()[:comment] == [{"<!--", %{closing: "-->"}}]
     assert MyDSLParser.syntax()[:brace] == [{"***", %{tag: "u"}}]
   end
+
+  test "DSL is used properly" do
+    assert [{:p, nil, ["L1", {:br, [], []}, {"u", nil, ["L2"]}, " L3"]}] ==
+             elem(MyDSLParser.parse("L1\n***L2*** L3"), 1).ast
+  end
 end

test/test_helper.exs

@@ -18,8 +18,9 @@ defmodule MyDSLParser do
   use Md.Parser, syntax: @my_syntax
   import Md.Parser.DSL
 
-  comment("<!--", %{closing: "-->"})
-  magnet("%", %{transform: Tag, terminators: [:ascii_punctuation]})
+  comment "<!--", %{closing: "-->"}
+  magnet "%", %{transform: Tag, terminators: [:ascii_punctuation]}
+  linewrap true
 end
 
 ExUnit.start()