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 minJs = do
let js = dropExtension minJs -<.> "js"
need [js]
liftIO $ BS.writeFile minJs =<< JS.minifyFile js
minifyCss :: FilePath
-> Action ()
minifyCss minCss = do
let css = dropExtension minCss -<.> "css"
need [css]
liftIO $ TIO.writeFile minCss . LT.toStrict . LTB.toLazyText . minify =<< TIO.readFile css
where minify = either error CSS.renderNestedBlocks . CSS.parseNestedBlocks