DynamicList Demo

DynListDemo.hs

-- Paste this into http://hsnippet.com after adding Reflex.Dom.Contrib.Widgets.DynamicList
-- to the imports list in HSnippet's imports tab.

app :: MonadWidget t m => App t m ()
app = do
  addItem <- button "Add Item"
  dynamicList single snd (const never) ("edit me" <$ addItem)
              ["alpha", "bravo", "charlie"]
  return ()

single k v ups = do
    el "div" $ do
      del <- button "remove"
      rec val <- holdDyn v $ leftmost [ups, edits]
          edits <- editInPlace (constant True) val
      return (edits, del)