module Development.Shake.Minify where
import qualified Data.ByteString.Lazy as BS
import qualified Data.Text.IO as TIO
import qualified Data.Text.Lazy as LT
import qualified Data.Text.Lazy.Builder as LTB
import Development.Shake (Action, liftIO, need)
import Development.Shake.FilePath (dropExtension, (-<.>))
import qualified Text.CSS.Parse as CSS
import qualified Text.CSS.Render as CSS
import qualified Text.Jasmine as JS
minifyJs :: FilePath
-> Action ()
minifyJs = minifyJs' ((-<.> "js") . dropExtension)
minifyJs' :: (FilePath -> FilePath)
-> FilePath
-> Action ()
minifyJs' fromMin minJs = do
let js = fromMin minJs
need [js]
liftIO $ BS.writeFile minJs =<< JS.minifyFile js
minifyCss :: FilePath
-> Action ()
minifyCss = minifyCss' ((-<.> "css") . dropExtension)
minifyCss' :: (FilePath -> FilePath)
-> FilePath
-> Action ()
minifyCss' fromMin minCss = do
let css = fromMin minCss
need [css]
liftIO $ TIO.writeFile minCss . LT.toStrict . LTB.toLazyText . minify =<< TIO.readFile css
where minify = either error CSS.renderNestedBlocks . CSS.parseNestedBlocks