19 lines
591 B
Haskell
19 lines
591 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 (Route 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 -> [whamlet|<a .btn ##{triggerId} href=@{route}>^{modalTrigger}|]
|
|
Right content -> [whamlet|<div .btn ##{triggerId}>^{modalTrigger}|]
|