Embed.hs

{-# LANGUAGE TemplateHaskell #-}

module Web.Hyperbole.View.Embed
  ( cssEmbed
  , scriptEmbed
  , scriptEmbedSourceMap
  , scriptLiveReload
  )
where

import Data.ByteString
import Data.FileEmbed
import Web.Atomic.CSS.Reset qualified as Atomic


scriptEmbed :: ByteString
scriptEmbed = $(embedFile "client/dist/hyperbole.js")


scriptEmbedSourceMap :: ByteString
scriptEmbedSourceMap = $(embedFile "client/dist/hyperbole.js.map")


scriptLiveReload :: ByteString
scriptLiveReload = $(embedFile "client/util/live-reload.js")


cssEmbed :: ByteString
cssEmbed =
  Atomic.cssResetEmbed
    <> "\n"
    <> intercalate
      "\n"
      ["form, label { display: flex; flex-direction: column } "]