RDBModel
commented
1 year ago I was able to add such support by modifying multilineStep and postProcessString in Util.elm file:
multilineStep : Int -> List String -> P.Parser (P.Step (List String) String)
multilineStep indent lines =
let
multilineString : List String -> String
multilineString lines_ =
String.join "\n" (List.reverse lines_)
conclusion line indent_ =
let
intendedLine =
if List.isEmpty lines then
line
else
String.repeat (indent + 1) " " ++ line
in
if indent_ > indent then
P.Loop (intendedLine :: lines)
else
P.Done (multilineString (intendedLine :: lines))
in
P.oneOf
[ P.succeed conclusion
|= characters (not << isNewLine)
|. P.chompIf isNewLine
|. spaces
|= P.getCol
, P.succeed (P.Done <| multilineString lines)
] postProcessString : String -> String
postProcessString str =
-- let
-- regexFromString : String -> Regex
-- regexFromString =
-- Regex.fromString >> Maybe.withDefault Regex.never
-- in
str
-- |> Regex.replace (regexFromString "\\s\\s+")
-- (\match ->
-- if String.contains "\n\n" match.match then
-- "\n"
-- else
-- " "
-- )
MaybeJustJames
lovebug356
it seems the parser converts multiline string to simple string, e.g.
will be saved internally as
My assumption is that it should be like