41 lines
1.4 KiB
Haskell
41 lines
1.4 KiB
Haskell
{-# LANGUAGE NoImplicitPrelude, TemplateHaskell, QuasiQuotes #-}
|
|
|
|
module Handler.Utils.Templates where
|
|
|
|
import Import.NoFoundation
|
|
|
|
lipsum :: WidgetT site IO ()
|
|
lipsum = $(widgetFile "widgets/lipsum")
|
|
|
|
modalStatic :: Html -> WidgetT site IO ()
|
|
modalStatic modalContent = do
|
|
uniqueId <- newIdent
|
|
let modalTrigger = cons '#' uniqueId -- SJ: I am confused why this is needed here?
|
|
modalId :: Int32
|
|
modalId = 13
|
|
$(widgetFile "widgets/modalStatic")
|
|
[whamlet|<div .tooltip__handle ##{uniqueId}>?|] -- SJ: confused why ## is needed here either?
|
|
|
|
modalWidget :: Html -> WidgetT site IO () -> WidgetT site IO ()
|
|
modalWidget modalTrigger modalContent = do
|
|
uniqueId <- newIdent
|
|
let modalTriggerId = cons '#' uniqueId -- SJ: I am confused why this is needed here?
|
|
modalId :: Int32
|
|
modalId = 13
|
|
$(widgetFile "widgets/modalWidget")
|
|
[whamlet|<div .btn ##{uniqueId}>#{modalTrigger}|] -- SJ: confused why ## is needed here either?
|
|
|
|
modal :: Text -> Maybe [Char] -> WidgetT site IO ()
|
|
modal modalTrigger (Just modalContent) = do -- WARNING: ModalContent should not have length 11. SJ: This is possibly bad. See Template!
|
|
let
|
|
modalId :: Int32
|
|
modalId = 13
|
|
$(widgetFile "widgets/modal")
|
|
modal modalTrigger Nothing = do
|
|
let
|
|
modalId :: Int32
|
|
modalId = 13
|
|
modalContent :: [Char]
|
|
modalContent = "placeholder"
|
|
$(widgetFile "widgets/modal")
|