Compress CSS

This commit is contained in:
2025-11-07 19:00:55 +01:00
parent 86f7a15a28
commit a4a232befb
3 changed files with 7 additions and 2382 deletions

View File

@@ -1,2 +1,3 @@
This is the source code of my personal blog. It is a static This is the source code of my personal blog. It is a static
site generated by Hakyll. site generated by Hakyll. The actual content is written in
LaTeX.

File diff suppressed because one or more lines are too long

View File

@@ -4,7 +4,7 @@
module Main where module Main where
import Control.Monad (forM) import Control.Monad (forM)
import Data.List (isSuffixOf) import Data.List (isPrefixOf, isSuffixOf)
import Data.Time.Format (formatTime, FormatTime) import Data.Time.Format (formatTime, FormatTime)
import Data.Time.Locale.Compat (defaultTimeLocale) import Data.Time.Locale.Compat (defaultTimeLocale)
import Hakyll.Core.Compiler import Hakyll.Core.Compiler
@@ -79,8 +79,8 @@ configuration = Configuration
, storeDirectory = "./var/cache" , storeDirectory = "./var/cache"
, tmpDirectory = "./var/cache/tmp" , tmpDirectory = "./var/cache/tmp"
, providerDirectory = "." , providerDirectory = "."
, ignoreFile = ignoreFile'
, watchIgnore = const False , watchIgnore = const False
, ignoreFile = const False
, deployCommand = "rsync" , deployCommand = "rsync"
, deploySite = deploySite' , deploySite = deploySite'
, inMemoryCache = True , inMemoryCache = True
@@ -90,6 +90,7 @@ configuration = Configuration
, previewSettings = Static.defaultFileServerSettings , previewSettings = Static.defaultFileServerSettings
} }
where where
ignoreFile' path = isPrefixOf "." path || path == "var"
deploySite' deploymentConfiguration deploySite' deploymentConfiguration
= readFile "deployment.txt" = readFile "deployment.txt"
>>= executeDeployment deploymentConfiguration >>= executeDeployment deploymentConfiguration