Skip to content

Instantly share code, notes, and snippets.

@roine roine/Debug.Extra.elm
Last active Jan 17, 2019

Embed
What would you like to do?
module Debug.Extra exposing (viewModel)
import Html exposing (Html, p, pre, text)
import Html.Attributes exposing (style)
quote =
"\""
indentChars =
"[{("
outdentChars =
"}])"
newLineChars =
","
uniqueHead =
"##FORMAT##"
incr =
20
viewModel : a -> Html msg
viewModel model =
let
lines =
model
|> Debug.toString
|> (\m ->
"("
++ m
++ ")"
|> formatString False 0
|> String.split uniqueHead
)
in
pre [] <| List.map viewLine lines
viewLine : String -> Html msg
viewLine lineStr =
let
( indent, lineTxt ) =
splitLine lineStr
in
p
[ style "paddingLeft" (px indent)
, style "marginTop" "0px"
, style "marginBottom" "0px"
]
[ text lineTxt ]
px : Int -> String
px int =
String.fromInt int
++ "px"
formatString : Bool -> Int -> String -> String
formatString isInQuotes indent str =
case String.left 1 str of
"" ->
""
firstChar ->
if isInQuotes then
if firstChar == quote then
firstChar
++ formatString (not isInQuotes) indent (String.dropLeft 1 str)
else
firstChar
++ formatString isInQuotes indent (String.dropLeft 1 str)
else if String.contains firstChar newLineChars then
uniqueHead
++ pad indent
++ firstChar
++ formatString isInQuotes indent (String.dropLeft 1 str)
else if String.contains firstChar indentChars then
uniqueHead
++ pad (indent + incr)
++ firstChar
++ formatString isInQuotes (indent + incr) (String.dropLeft 1 str)
else if String.contains firstChar outdentChars then
firstChar
++ uniqueHead
++ pad (indent - incr)
++ formatString isInQuotes (indent - incr) (String.dropLeft 1 str)
else if firstChar == quote then
firstChar
++ formatString (not isInQuotes) indent (String.dropLeft 1 str)
else
firstChar
++ formatString isInQuotes indent (String.dropLeft 1 str)
pad : Int -> String
pad indent =
String.padLeft 5 '0' <| Debug.toString indent
splitLine : String -> ( Int, String )
splitLine line =
let
indent =
String.left 5 line
|> String.toInt
|> Maybe.withDefault 0
newLine =
String.dropLeft 5 line
in
( indent, newLine )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.