Slug widget made with Elm

Slug.elm

module Slug exposing (..)

import Html exposing (Html, Attribute, beginnerProgram, text, div, input)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput)
import String exposing (toLower)
import Regex exposing (replace, regex)

-- MAIN

main =
  beginnerProgram { model = "", view = view, update = update }

-- MODEL

type alias Model =
  String

-- UPDATE

type Msg = NewContent String

update : Msg -> Model -> Model
update (NewContent content) oldContent =
  content

sluggify : Model -> Model
sluggify content =
  replace Regex.All (regex "[^\\w-]+") (\_ -> "-") (toLower content)

-- VIEW

view content =
  div []
    [ input [ placeholder "Text to reverse", onInput NewContent ] []
    , div [] [ text (sluggify content) ]
    ]

slug.js

    export default function(selector) {
      let elem = document.querySelector(selector)

      if (!!elem) {
        const Elm = require('../elm/Slug')
        Elm.Slug.embed(elem)
      }
    }