Update tailwind for liveserver (#503)

This change makes the liveserver works with the latest tailwind version,
similarly to what the site export produce.

emanote/CHANGELOG.md

@@ -14,6 +14,7 @@
   - KaTeX support ([\#489](https://github.com/srid/emanote/pull/489))
   - Lua filters: filter paths will now be looked up in all layers now.
   - **BACKWARDS INCOMPTABILE**: `feed.siteUrl` is now `page.siteUrl`
+  - Live server now uses Tailwind 3 ([\#503](https://github.com/srid/emanote/pull/503))
   - Enable auto identifier for org files ([\#502](https://github.com/srid/emanote/pull/502))
 - Bug fixes:
   - Emanote no longer crashes when run on an empty directory ([\#487](https://github.com/srid/emanote/issues/487))

emanote/default/_emanote-live-server/tailwind/README.txt

@@ -1,7 +1,4 @@
 Files in this directory are excluded from the static site, as they are used only the live server.
 
-To upgrade the tailwind CDN css, download it from a URL like
-https://unpkg.com/tailwindcss@2.2.2/dist/tailwind.min.css and position it in the
-appropriate directory, before updating the path in `LiveServerFiles.hs`.
-
-Unfortunately there is no CDN for 3.x: https://github.com/tailwindlabs/tailwindcss/issues/6355
+To upgrade the tailwind CDN js:
+  curl -L https://cdn.tailwindcss.com > tailwind.min.js

emanote/default/index.yaml

@@ -23,7 +23,7 @@ template:
     enable: false
     # Class to apply for uptree's nodes
     nodeClass: text-gray-900 hover:bg-${theme}-500 hover:text-white cursor-pointer
-  # List of available colors: https://v2.tailwindcss.com/docs/customizing-colors#default-color-palette
+  # List of available colors: https://tailwindcss.com/docs/customizing-colors#default-color-palette
   theme: blue
   # Value of the <base> tag.
   baseUrl: /

emanote/emanote.cabal

@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               emanote
-version:            1.3.9.0
+version:            1.3.10.0
 license:            AGPL-3.0-only
 copyright:          2022 Sridhar Ratnakumar
 maintainer:         srid@srid.ca
@@ -20,7 +20,7 @@ extra-source-files:
 
 data-dir:           default
 data-files:
-  _emanote-live-server/**/*.css
+  _emanote-live-server/**/*.js
   _emanote-static/**/*.ttf
   _emanote-static/*.css
   _emanote-static/*.svg

emanote/src/Emanote/Route/SiteRoute/Class.hs

@@ -53,7 +53,7 @@ emanoteGeneratableRoutes model =
       staticRoutes =
         let includeFile f =
               not (LiveServerFile.isLiveServerFile f)
-                || (f == LiveServerFile.tailwindFullCssPath && not (model ^. M.modelCompileTailwind))
+                || (f == LiveServerFile.tailwindFullJsPath && not (model ^. M.modelCompileTailwind))
          in model
               ^. M.modelStaticFiles
                 & Ix.toList

emanote/src/Emanote/View/Common.hs

@@ -196,11 +196,10 @@ commonSplices withCtx model meta routeTitle = do
       let localCdnUrl =
             SR.siteRouteUrl model
               $ SR.staticFileSiteRoute
-              $ LiveServerFiles.tailwindCssFile model
-      H.link
-        ! A.href (H.toValue localCdnUrl)
-        ! A.rel "stylesheet"
-        ! A.type_ "text/css"
+              $ LiveServerFiles.tailwindJsFile model
+      H.script
+        ! A.src (H.toValue localCdnUrl)
+        $ mempty
 
 renderModelTemplate :: Model -> Tmpl.TemplateName -> H.Splices (HI.Splice Identity) -> LByteString
 renderModelTemplate model templateName =

emanote/src/Emanote/View/LiveServerFiles.hs

@@ -1,7 +1,7 @@
 module Emanote.View.LiveServerFiles (
   isLiveServerFile,
-  tailwindFullCssPath,
-  tailwindCssFile,
+  tailwindFullJsPath,
+  tailwindJsFile,
 ) where
 
 import Data.Text qualified as T
@@ -14,13 +14,13 @@ import Relude
 baseDir :: FilePath
 baseDir = "_emanote-live-server"
 
-tailwindFullCssPath :: FilePath
-tailwindFullCssPath = baseDir <> "/tailwind/2.2.2/tailwind.min.css"
+tailwindFullJsPath :: FilePath
+tailwindFullJsPath = baseDir <> "/tailwind/tailwind.min.js"
 
 isLiveServerFile :: FilePath -> Bool
 isLiveServerFile (toText -> fp) =
   toText baseDir `T.isPrefixOf` fp
 
-tailwindCssFile :: M.Model -> StaticFile
-tailwindCssFile model =
-  fromMaybe (error "model not ready?") $ M.modelLookupStaticFile tailwindFullCssPath model
+tailwindJsFile :: M.Model -> StaticFile
+tailwindJsFile model =
+  fromMaybe (error "model not ready?") $ M.modelLookupStaticFile tailwindFullJsPath model