mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-09-11 16:16:09 +03:00
Set module name
This commit is contained in:
parent
ef8eb61f61
commit
2c596edd59
@ -12,6 +12,7 @@ import Html.Attributes exposing (form, type_)
|
||||
import Json.Decode as Decode
|
||||
import Review.Project exposing (elmJson)
|
||||
import Review.Project.Dependency as Dependency exposing (Dependency)
|
||||
import String
|
||||
|
||||
|
||||
type alias Flags =
|
||||
@ -160,6 +161,10 @@ formatDep ( name, constraint ) =
|
||||
"( unsafePackageName " ++ stringify (Elm.Package.toString name) ++ ", unsafeConstraint " ++ stringify (Elm.Constraint.toString constraint) ++ ")"
|
||||
|
||||
|
||||
capitalize s =
|
||||
String.toUpper (String.left 1 s) ++ String.dropLeft 1 s
|
||||
|
||||
|
||||
formatFile : Elm.Project.PackageInfo -> List Elm.Docs.Module -> String
|
||||
formatFile elmJson docsJson =
|
||||
let
|
||||
@ -177,7 +182,14 @@ formatFile elmJson docsJson =
|
||||
"Elm.Project.ExposedDict [ " ++ String.join ", " (List.map (\( section, list ) -> "( \"" ++ section ++ "\", " ++ listOfModuleNames list ++ " ) ") dict) ++ " ]"
|
||||
|
||||
moduleName =
|
||||
"Hello"
|
||||
"Review.Test.Dependencies."
|
||||
++ (elmJson.name
|
||||
|> Elm.Package.toString
|
||||
|> String.replace "/" "-"
|
||||
|> String.split "-"
|
||||
|> List.map capitalize
|
||||
|> String.join ""
|
||||
)
|
||||
|
||||
dependencyModules =
|
||||
listOfThings formatModule docsJson
|
||||
|
Loading…
Reference in New Issue
Block a user