{-# 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 :: ByteString
scriptEmbed = $(embedFile "client/dist/hyperbole.js")


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


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


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