mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-18 11:11:38 +03:00
105 lines
2.9 KiB
Elm
105 lines
2.9 KiB
Elm
module EllieLink exposing (Config, SectionExample, view)
|
|
|
|
import Dict exposing (Dict)
|
|
import Html.Styled exposing (..)
|
|
import Http
|
|
import Nri.Ui.ClickableText.V3 as ClickableText
|
|
import Url.Builder
|
|
|
|
|
|
type alias Config =
|
|
{ packageDependencies : Result Http.Error (Dict String String)
|
|
}
|
|
|
|
|
|
type alias SectionExample =
|
|
{ name : String
|
|
, fullModuleName : String
|
|
, sectionName : String
|
|
, code : String
|
|
}
|
|
|
|
|
|
view : Config -> SectionExample -> Html msg
|
|
view config example =
|
|
ClickableText.link ("View " ++ example.sectionName ++ " example on Ellie")
|
|
[ ClickableText.linkExternal (generateEllieLink config example)
|
|
, ClickableText.small
|
|
]
|
|
|
|
|
|
generateEllieLink : Config -> SectionExample -> String
|
|
generateEllieLink config example =
|
|
let
|
|
packageDependencies =
|
|
config.packageDependencies
|
|
|> Result.map Dict.toList
|
|
|> Result.withDefault []
|
|
|> List.map toPackageDependencyQueryString
|
|
|
|
toPackageDependencyQueryString ( name, version ) =
|
|
Url.Builder.string "packages" (name ++ "@" ++ version)
|
|
in
|
|
Url.Builder.crossOrigin "https://ellie-app.com/a/example/v1"
|
|
[]
|
|
([ Url.Builder.string "title" (example.name ++ " | " ++ example.sectionName)
|
|
, Url.Builder.string "elmcode" (generateElmExampleModule config example)
|
|
, Url.Builder.string "htmlcode" ellieHtmlSetup
|
|
, Url.Builder.string "elmversion" "0.19.1"
|
|
]
|
|
++ packageDependencies
|
|
)
|
|
|
|
|
|
generateElmExampleModule : Config -> SectionExample -> String
|
|
generateElmExampleModule config example =
|
|
let
|
|
maybeErrorMessages =
|
|
case config.packageDependencies of
|
|
Err httpError ->
|
|
[ "{- "
|
|
, "Something went wrong fetching the package dependencies!"
|
|
, "You will need to install the packages by hand for this code to compile."
|
|
, ""
|
|
, "Error:"
|
|
, Debug.toString httpError
|
|
, "-}"
|
|
]
|
|
|
|
Ok _ ->
|
|
[]
|
|
in
|
|
[ "module Main exposing (main)"
|
|
, ""
|
|
, "import Css exposing (Style)"
|
|
, "import Html as RootHtml"
|
|
, "import Html.Styled exposing (..)"
|
|
, "import Nri.Ui.Colors.V1 as Colors"
|
|
, "import Nri.Ui.UiIcon.V1 as UiIcon"
|
|
, "import " ++ example.fullModuleName ++ " as " ++ example.name
|
|
, ""
|
|
, ""
|
|
]
|
|
++ maybeErrorMessages
|
|
++ [ "main : RootHtml.Html msg"
|
|
, "main ="
|
|
, " " ++ example.code
|
|
, " |> toUnstyled"
|
|
]
|
|
|> String.join "\n"
|
|
|> String.replace "\t" " "
|
|
|
|
|
|
ellieHtmlSetup : String
|
|
ellieHtmlSetup =
|
|
"""
|
|
<html> <head></head>
|
|
<body>
|
|
<main></main>
|
|
<script>
|
|
var app = Elm.Main.init({ node: document.querySelector('main') })
|
|
</script>
|
|
</body>
|
|
</html>
|
|
"""
|