mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-10-27 00:25:49 +03:00
Put some lists onto a single line
This commit is contained in:
parent
322b99f031
commit
c181235792
@ -88,7 +88,7 @@ formatFile elmJson docsJson =
|
|||||||
|
|
||||||
dependencyModules : String
|
dependencyModules : String
|
||||||
dependencyModules =
|
dependencyModules =
|
||||||
listOfThings formatModule docsJson
|
listOfThings MultipleLines formatModule docsJson
|
||||||
in
|
in
|
||||||
( "src/" ++ String.replace "." "/" moduleName ++ ".elm"
|
( "src/" ++ String.replace "." "/" moduleName ++ ".elm"
|
||||||
, "module " ++ moduleName ++ """ exposing (dependency)
|
, "module " ++ moduleName ++ """ exposing (dependency)
|
||||||
@ -118,8 +118,8 @@ elmJson =
|
|||||||
, license = Elm.License.fromString """ ++ stringify (Elm.License.toString elmJson.license) ++ """ |> Maybe.withDefault Elm.License.bsd3
|
, license = Elm.License.fromString """ ++ stringify (Elm.License.toString elmJson.license) ++ """ |> Maybe.withDefault Elm.License.bsd3
|
||||||
, name = unsafePackageName """ ++ stringify (Elm.Package.toString elmJson.name) ++ """
|
, name = unsafePackageName """ ++ stringify (Elm.Package.toString elmJson.name) ++ """
|
||||||
, summary = """ ++ stringify elmJson.summary ++ """
|
, summary = """ ++ stringify elmJson.summary ++ """
|
||||||
, deps = """ ++ listOfThings formatDep elmJson.deps ++ """
|
, deps = """ ++ listOfThings MultipleLines formatDep elmJson.deps ++ """
|
||||||
, testDeps = """ ++ listOfThings formatDep elmJson.testDeps ++ """
|
, testDeps = """ ++ listOfThings MultipleLines formatDep elmJson.testDeps ++ """
|
||||||
, version = Elm.Version.fromString """ ++ stringify (Elm.Version.toString elmJson.version) ++ """ |> Maybe.withDefault Elm.Version.one
|
, version = Elm.Version.fromString """ ++ stringify (Elm.Version.toString elmJson.version) ++ """ |> Maybe.withDefault Elm.Version.one
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -174,10 +174,10 @@ formatModule : Elm.Docs.Module -> String
|
|||||||
formatModule mod =
|
formatModule mod =
|
||||||
"{ name = " ++ stringify mod.name ++ """
|
"{ name = " ++ stringify mod.name ++ """
|
||||||
, comment = """ ++ stringify mod.comment ++ """
|
, comment = """ ++ stringify mod.comment ++ """
|
||||||
, aliases = """ ++ listOfThings formatAlias mod.aliases ++ """
|
, aliases = """ ++ listOfThings MultipleLines formatAlias mod.aliases ++ """
|
||||||
, unions = """ ++ listOfThings formatUnion mod.unions ++ """
|
, unions = """ ++ listOfThings MultipleLines formatUnion mod.unions ++ """
|
||||||
, binops = """ ++ listOfThings formatBinop mod.binops ++ """
|
, binops = """ ++ listOfThings MultipleLines formatBinop mod.binops ++ """
|
||||||
, values = """ ++ listOfThings formatValue mod.values ++ """
|
, values = """ ++ listOfThings MultipleLines formatValue mod.values ++ """
|
||||||
}"""
|
}"""
|
||||||
|
|
||||||
|
|
||||||
@ -202,7 +202,7 @@ formatBinop binop =
|
|||||||
formatAlias : Elm.Docs.Alias -> String
|
formatAlias : Elm.Docs.Alias -> String
|
||||||
formatAlias alias_ =
|
formatAlias alias_ =
|
||||||
"{ name = " ++ stringify alias_.name ++ """
|
"{ name = " ++ stringify alias_.name ++ """
|
||||||
, args = """ ++ listOfThings stringify alias_.args ++ """
|
, args = """ ++ listOfThings SingleLine stringify alias_.args ++ """
|
||||||
, comment = """ ++ stringify alias_.comment ++ """
|
, comment = """ ++ stringify alias_.comment ++ """
|
||||||
, tipe = """ ++ formatType alias_.tipe ++ """
|
, tipe = """ ++ formatType alias_.tipe ++ """
|
||||||
}"""
|
}"""
|
||||||
@ -211,9 +211,9 @@ formatAlias alias_ =
|
|||||||
formatUnion : Elm.Docs.Union -> String
|
formatUnion : Elm.Docs.Union -> String
|
||||||
formatUnion union =
|
formatUnion union =
|
||||||
"{ name = " ++ stringify union.name ++ """
|
"{ name = " ++ stringify union.name ++ """
|
||||||
, args = """ ++ listOfThings stringify union.args ++ """
|
, args = """ ++ listOfThings SingleLine stringify union.args ++ """
|
||||||
, comment = """ ++ stringify union.comment ++ """
|
, comment = """ ++ stringify union.comment ++ """
|
||||||
, tags = """ ++ listOfThings (\( name, types ) -> "( " ++ stringify name ++ ", " ++ listOfThings formatType types ++ ")") union.tags ++ """
|
, tags = """ ++ listOfThings MultipleLines (\( name, types ) -> "( " ++ stringify name ++ ", " ++ listOfThings SingleLine formatType types ++ ")") union.tags ++ """
|
||||||
}"""
|
}"""
|
||||||
|
|
||||||
|
|
||||||
@ -224,13 +224,13 @@ formatType type_ =
|
|||||||
"Var " ++ stringify name
|
"Var " ++ stringify name
|
||||||
|
|
||||||
Elm.Type.Tuple list ->
|
Elm.Type.Tuple list ->
|
||||||
"Tuple " ++ listOfThings formatType list
|
"Tuple " ++ listOfThings SingleLine formatType list
|
||||||
|
|
||||||
Elm.Type.Type name list ->
|
Elm.Type.Type name list ->
|
||||||
"Type " ++ stringify name ++ " " ++ listOfThings formatType list
|
"Type " ++ stringify name ++ " " ++ listOfThings SingleLine formatType list
|
||||||
|
|
||||||
Elm.Type.Record fields maybeVar ->
|
Elm.Type.Record fields maybeVar ->
|
||||||
"Record " ++ listOfThings (\( field, subType ) -> "( " ++ stringify field ++ ", " ++ formatType subType ++ " )") fields ++ " " ++ Debug.toString maybeVar
|
"Record " ++ listOfThings SingleLine (\( field, subType ) -> "( " ++ stringify field ++ ", " ++ formatType subType ++ " )") fields ++ " " ++ Debug.toString maybeVar
|
||||||
|
|
||||||
Elm.Type.Lambda input output ->
|
Elm.Type.Lambda input output ->
|
||||||
"Lambda (" ++ formatType input ++ ") (" ++ formatType output ++ ")"
|
"Lambda (" ++ formatType input ++ ") (" ++ formatType output ++ ")"
|
||||||
@ -258,13 +258,23 @@ wrapInQuotes s =
|
|||||||
"\"" ++ s ++ "\""
|
"\"" ++ s ++ "\""
|
||||||
|
|
||||||
|
|
||||||
listOfThings : (a -> String) -> List a -> String
|
type LineFormatting
|
||||||
listOfThings mapper list =
|
= SingleLine
|
||||||
|
| MultipleLines
|
||||||
|
|
||||||
|
|
||||||
|
listOfThings : LineFormatting -> (a -> String) -> List a -> String
|
||||||
|
listOfThings lineFormatting mapper list =
|
||||||
if List.isEmpty list then
|
if List.isEmpty list then
|
||||||
"[]"
|
"[]"
|
||||||
|
|
||||||
else
|
else
|
||||||
"[ " ++ String.join "\n , " (List.map mapper list) ++ " ]"
|
case lineFormatting of
|
||||||
|
SingleLine ->
|
||||||
|
"[ " ++ String.join ", " (List.map mapper list) ++ " ]"
|
||||||
|
|
||||||
|
MultipleLines ->
|
||||||
|
"[ " ++ String.join "\n , " (List.map mapper list) ++ " ]"
|
||||||
|
|
||||||
|
|
||||||
capitalize : String -> String
|
capitalize : String -> String
|
||||||
|
Loading…
Reference in New Issue
Block a user