@@ -138,6 +138,7 @@ dynComment t = do
138138display :: (PostBuild t m, DomBuilder t m, Show a) => Dynamic t a -> m ()
139139display = dynText . fmap (T.pack . show)
140140
141+{-# DEPRECATED button "Use 'elAttr'' in combination with 'domEvent' instead" #-}
141142button :: DomBuilder t m => Text -> m (Event t ())
142143button t = do
143144 (e, _) <- element "button" def $ text t
@@ -293,23 +294,25 @@ elDynHtmlAttr' elementTag attrs html = do
293294 wrapElement defaultDomEventHandler e
294295-}
295296
297+{-# DEPRECATED Link "Will be removed when 'linkClass' and 'link' are removed" #-}
296298newtype Link t
297299 = Link { _link_clicked :: Event t ()
298300 }
299301
300−-- | >>> linkClass "Click here" "link-class"
301−-- > <a class="link-class">Click here</a>
302+{-# DEPRECATED linkClass "Use 'elAttr'' in combination with 'domEvent' for just clicks. Use 'routeLink' for Obelisk navigation" #-}
302303linkClass :: DomBuilder t m => Text -> Text -> m (Link t)
303304linkClass s c = do
304305 (l,_) <- elAttr' "a" ("class" =: c) $ text s
305306 return $ Link $ domEvent Click l
306307
308+{-# DEPRECATED link "Use 'elAttr'' in combination with 'domEvent' for just clicks. Use 'routeLink' for Obelisk navigation" #-}
307309link :: DomBuilder t m => Text -> m (Link t)
308310link s = linkClass s ""
309311
310312divClass :: forall t m a. DomBuilder t m => Text -> m a -> m a
311313divClass = elClass "div"
312314
315+{-# DEPRECATED dtdd "Use an application specific widget generating function" #-}
313316dtdd :: forall t m a. DomBuilder t m => Text -> m a -> m a
314317dtdd h w = do
315318 el "dt" $ text h
@@ -318,7 +321,9 @@ dtdd h w = do
318321blank :: forall m. Monad m => m ()
319322blank = return ()
320323
324+-- TODO: Move to an example project.
321325-- | A widget to display a table with static columns and dynamic rows.
326+{-# DEPRECATED tableDynAttr "Use an application specific widget generating function" #-}
322327tableDynAttr :: forall t m r k v. (Ord k, DomBuilder t m, MonadHold t m, PostBuild t m, MonadFix m)
323328 => Text -- ^ Class applied to <table> element
324329 -> [(Text, k -> Dynamic t r -> m v)] -- ^ Columns of (header, row key -> row value -> child widget)
@@ -334,9 +339,11 @@ tableDynAttr klass cols dRows rowAttrs = elAttr "div" (Map.singleton "style" "zo
334339 dAttrs <- rowAttrs k
335340 elDynAttr' "tr" dAttrs $ mapM (\x -> el "td" $ snd x k r) cols)
336341
342+-- TODO: Move to an example project.
337343-- | A widget to construct a tabbed view that shows only one of its child widgets at a time.
338344-- Creates a header bar containing a <ul> with one <li> per child; clicking a <li> displays
339345-- the corresponding child and hides all others.
346+{-# DEPRECATED tabDisplay "Use an application specific widget generating function" #-}
340347tabDisplay :: forall t m k. (MonadFix m, DomBuilder t m, MonadHold t m, PostBuild t m, Ord k)
341348 => Text -- ^ Class applied to <ul> element
342349 -> Text -- ^ Class applied to currently active <li> element