Elm Markdown Example

10-markdown.elm

import Html exposing (..)
import Html.App as Html
import Html.Attributes exposing (..)
import Html.Events exposing (onInput)
import String
import Markdown

main =
  Html.beginnerProgram
    { model = model
    , view = view
    , update = update
    }


-- MODEL

type alias Model = { markdown: String }

model : Model
model = 
  Model ""


-- UPDATE
type Msg
  = Change String

update : Msg -> Model -> Model
update msg model =
  case msg of
    Change markdown ->
      { model | markdown = markdown }


-- VIEW
view : Model -> Html Msg
view model =
  div [class "container"] 
  [ textarea [placeholder "Enter markdown here...", onInput Change] []
  , Markdown.toHtml [] model.markdown
  ]