{-# LANGUAGE TemplateHaskell #-}
module Eventlog.Javascript
  (
    vegaLite
  , vegaEmbed
  , vega
  , jquery
  , bootstrap
  , bootstrapCSS
  , fancytable
  , sparkline

  , stylesheet
  , tablogic
  , treevega
  ) where

import Data.Text
import Data.Text.Encoding
import Data.FileEmbed
import Eventlog.AssetVersions

vegaLite :: Text
vegaLite :: Text
vegaLite = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/vega-lite@" ++ vegaLiteVersion))

vegaEmbed :: Text
vegaEmbed :: Text
vegaEmbed = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/vega-embed@" ++ vegaEmbedVersion))

vega :: Text
vega :: Text
vega = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/vega@" ++ vegaVersion))

jquery :: Text
jquery :: Text
jquery = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/jquery-" ++ jqueryVersion ++ ".min.js"))

bootstrap :: Text
bootstrap :: Text
bootstrap = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/bootstrap.min.js"))

bootstrapCSS :: Text
bootstrapCSS :: Text
bootstrapCSS = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/bootstrap.min.css"))

fancytable :: Text
fancytable :: Text
fancytable = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/fancyTable.min.js"))

sparkline :: Text
sparkline :: Text
sparkline = ByteString -> Text
decodeUtf8 $(embedFile ("javascript/generated/jquery.sparkline.min.js"))

stylesheet :: Text
stylesheet :: Text
stylesheet = ByteString -> Text
decodeUtf8 $(embedFile "javascript/stylesheet.css")

tablogic :: Text
tablogic :: Text
tablogic = ByteString -> Text
decodeUtf8 $(embedFile "javascript/tablogic.js")

treevega :: Text
treevega :: Text
treevega = ByteString -> Text
decodeUtf8 $(embedFile "javascript/ccmap.vg")