srid/ema
1
1
Fork 0
mirror of https://github.com/srid/ema.git synced 2024-12-02 09:15:10 +03:00
Code Issues Projects Releases Wiki Activity

Add twindShim to dynamically determine shim

Browse Source 
Also update tailwind cdn
This commit is contained in:
Sridhar Ratnakumar 2021-05-19 18:51:08 -04:00
parent d6fd722b0d
commit e85a461f77
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Ema/Helper/Tailwind.hs
View File

@ -9,6 +9,7 @@ module Ema.Helper.Tailwind
layoutWith, layoutWith,
-- * Tailwind shims -- * Tailwind shims
twindShim,
twindShimCdn, twindShimCdn,
twindShimOfficial, twindShimOfficial,
twindShimUnofficial, twindShimUnofficial,
@ -25,7 +26,11 @@ import qualified Text.Blaze.Html5.Attributes as A
-- | A simple and off-the-shelf layout using Tailwind CSS -- | A simple and off-the-shelf layout using Tailwind CSS
layout :: Ema.CLI.Action -> H.Html -> H.Html -> LByteString layout :: Ema.CLI.Action -> H.Html -> H.Html -> LByteString
layout action = layout action =
layoutWith "en" "UTF-8" $ case action of layoutWith "en" "UTF-8" $ twindShim action
twindShim :: Ema.CLI.Action -> H.Html
twindShim action =
case action of
Ema.CLI.Generate _ -> Ema.CLI.Generate _ ->
twindShimUnofficial twindShimUnofficial
_ -> _ ->
@ -35,14 +40,14 @@ layout action =
-- | Like @layout@, but pick your own language, encoding and tailwind shim. -- | Like @layout@, but pick your own language, encoding and tailwind shim.
layoutWith :: H.AttributeValue -> H.AttributeValue -> H.Html -> H.Html -> H.Html -> LByteString layoutWith :: H.AttributeValue -> H.AttributeValue -> H.Html -> H.Html -> H.Html -> LByteString
layoutWith lang encoding twindShim appHead appBody = RU.renderHtml $ do layoutWith lang encoding tshim appHead appBody = RU.renderHtml $ do
H.docType H.docType
H.html ! A.lang lang $ do H.html ! A.lang lang $ do
H.head $ do H.head $ do
H.meta ! A.charset encoding H.meta ! A.charset encoding
-- This makes the site mobile friendly by default. -- This makes the site mobile friendly by default.
H.meta ! A.name "viewport" ! A.content "width=device-width, initial-scale=1" H.meta ! A.name "viewport" ! A.content "width=device-width, initial-scale=1"
twindShim tshim
appHead appHead
-- The "overflow-y-scroll" makes the scrollbar visible always, so as to -- The "overflow-y-scroll" makes the scrollbar visible always, so as to
-- avoid janky shifts when switching to routes with suddenly scrollable content. -- avoid janky shifts when switching to routes with suddenly scrollable content.
@ -54,7 +59,7 @@ twindShimCdn :: H.Html
twindShimCdn = twindShimCdn =
H.unsafeByteString . encodeUtf8 $ H.unsafeByteString . encodeUtf8 $
[text| [text|
<link href="https://unpkg.com/tailwindcss@2.1.1/dist/tailwind.min.css" rel="stylesheet" type="text/css"> <link href="https://unpkg.com/tailwindcss@2.1.2/dist/tailwind.min.css" rel="stylesheet" type="text/css">
|] |]
-- | This shim may not work with hot reload. -- | This shim may not work with hot reload.