@@ -137,6 +137,7 @@ dynComment t = do
137137display :: (PostBuild t m, DomBuilder t m, Show a) => Dynamic t a -> m ()
138138display = dynText . fmap (T.pack . show)
139139
140+{-# DEPRECATED button "Use 'elAttr'' in combination with 'domEvent' instead" #-}
140141button :: DomBuilder t m => Text -> m (Event t ())
141142button t = do
142143 (e, _) <- element "button" def $ text t
@@ -290,23 +291,25 @@ elDynHtmlAttr' elementTag attrs html = do
290291 wrapElement defaultDomEventHandler e
291292-}
292293
294+{-# DEPRECATED Link "Will be removed when 'linkClass' and 'link' are removed" #-}
293295newtype Link t
294296 = Link { _link_clicked :: Event t ()
295297 }
296298
297−-- | >>> linkClass "Click here" "link-class"
298−-- > <a class="link-class">Click here</a>
299+{-# DEPRECATED linkClass "Use 'elAttr'' in combination with 'domEvent' for just clicks. Use 'routeLink' for Obelisk navigation" #-}
299300linkClass :: DomBuilder t m => Text -> Text -> m (Link t)
300301linkClass s c = do
301302 (l,_) <- elAttr' "a" ("class" =: c) $ text s
302303 return $ Link $ domEvent Click l
303304
305+{-# DEPRECATED link "Use 'elAttr'' in combination with 'domEvent' for just clicks. Use 'routeLink' for Obelisk navigation" #-}
304306link :: DomBuilder t m => Text -> m (Link t)
305307link s = linkClass s ""
306308
307309divClass :: forall t m a. DomBuilder t m => Text -> m a -> m a
308310divClass = elClass "div"
309311
312+{-# DEPRECATED dtdd "Use an application specific widget generating function" #-}
310313dtdd :: forall t m a. DomBuilder t m => Text -> m a -> m a
311314dtdd h w = do
312315 el "dt" $ text h
@@ -315,7 +318,9 @@ dtdd h w = do
315318blank :: forall m. Monad m => m ()
316319blank = return ()
317320
321+-- TODO: Move to an example project.
318322-- | A widget to display a table with static columns and dynamic rows.
323+{-# DEPRECATED tableDynAttr "Use an application specific widget generating function" #-}
319324tableDynAttr :: forall t m r k v. (Ord k, DomBuilder t m, MonadHold t m, PostBuild t m, MonadFix m)
320325 => Text -- ^ Class applied to <table> element
321326 -> [(Text, k -> Dynamic t r -> m v)] -- ^ Columns of (header, row key -> row value -> child widget)
@@ -331,9 +336,11 @@ tableDynAttr klass cols dRows rowAttrs = elAttr "div" (Map.singleton "style" "zo
331336 dAttrs <- rowAttrs k
332337 elDynAttr' "tr" dAttrs $ mapM (\x -> el "td" $ snd x k r) cols)
333338
339+-- TODO: Move to an example project.
334340-- | A widget to construct a tabbed view that shows only one of its child widgets at a time.
335341-- Creates a header bar containing a <ul> with one <li> per child; clicking a <li> displays
336342-- the corresponding child and hides all others.
343+{-# DEPRECATED tabDisplay "Use an application specific widget generating function" #-}
337344tabDisplay :: forall t m k. (MonadFix m, DomBuilder t m, MonadHold t m, PostBuild t m, Ord k)
338345 => Text -- ^ Class applied to <ul> element
339346 -> Text -- ^ Class applied to currently active <li> element