21 lines
636 B
Haskell
21 lines
636 B
Haskell
module Handler.Utils.Templates where
|
|
|
|
import Data.Either (isLeft)
|
|
|
|
import Import.NoFoundation
|
|
|
|
lipsum :: WidgetT site IO ()
|
|
lipsum = $(widgetFile "widgets/lipsum")
|
|
|
|
modal :: WidgetT site IO () -> Either (SomeRoute site) (WidgetT site IO ()) -> WidgetT site IO ()
|
|
modal modalTrigger modalContent = do
|
|
let modalDynamic = isLeft modalContent
|
|
modalId <- newIdent
|
|
triggerId <- newIdent
|
|
$(widgetFile "widgets/modal")
|
|
case modalContent of
|
|
Left route -> do
|
|
route' <- toTextUrl route
|
|
[whamlet|<a .btn ##{triggerId} href=#{route'}>^{modalTrigger}|]
|
|
Right _ -> [whamlet|<div .btn ##{triggerId}>^{modalTrigger}|]
|