yogsototh/her.esy.fun
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Generate gemini files along other resources

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2020-11-09 10:52:51 +01:00
parent e51b71685f
commit bc3da59026
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Shakefile.hs
View file

@ -159,9 +159,9 @@ buildRules = do
then copyFileChanged (srcDir </> asset) out
else genAsciiAction getPost out
".gmi" ->
if out == siteDir </> "gemini" </> "archive.gmi"
if out == siteDir </> "archive.gmi"
then buildGeminiArchive getPosts out
else genGeminiAction getPost out
else genGeminiAction out
".jpg" -> compressImage asset
".jpeg" -> compressImage asset
".gif" -> compressImage asset
@ -384,9 +384,9 @@ genPdfAction _getPost out = do
-- Left _ -> fail "BAD"
-- Right innerMd -> return innerMd
genGeminiAction :: (FilePath -> Action BlogPost) -> [Char] -> Action ()
genGeminiAction getPost out = do
let srcFile = srcDir </> (dropDirectory1 (dropDirectory1 (out -<.> "org")))
genGeminiAction :: [Char] -> Action ()
genGeminiAction out = do
let srcFile = srcDir </> (dropDirectory1 (out -<.> "org"))
need [srcFile]
command_ [] "./engine/org2gemini.sh" [ srcFile, out ]
@ -411,8 +411,8 @@ allAsciiAction = do
allGeminiAction :: Action ()
allGeminiAction = do
allOrgFiles <- getDirectoryFiles srcDir ["//*.org"]
let allGeminiFiles = map (("gemini" </>) . (-<.> "gmi")) allOrgFiles
need (map build $ allGeminiFiles <> ["gemini" </> "archive.gmi"])
let allGeminiFiles = map (-<.> "gmi") allOrgFiles
need (map build $ allGeminiFiles <> ["archive.gmi"])
compressImage :: FilePath -> Action ()
compressImage img = do