{-# LANGUAGE OverloadedStrings #-} module Lucid.Alpine where import Data.Text (Text, intercalate, pack) import Lucid (Html, HtmlT, defer_, script_, src_) import Lucid.Base (Attribute, makeAttribute) -- | x-data -- Declare a new Alpine component and its data for a block of HTML xData_ :: Text -> Attribute xData_ = makeAttribute "x-data" {-