bill
/
sealPostGenerator
1
0
Fork 0
Code

Add fileExtension config for md files

main
Bill Ewanick 2024-01-15 18:16:56 -05:00
parent 92bd2d5dee
commit 296a5b56e0
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
config.dhall
View File

@ -2,6 +2,7 @@
, postsOutputPath = "posts" , postsOutputPath = "posts"
, startDate = 1959-01-15 , startDate = 1959-01-15
, seed = +2016 , seed = +2016
, fileExtension = "md"
, adjectives1 = , adjectives1 =
[ "absorbing" [ "absorbing"
, "adorable" , "adorable"

4
generateSealPosts.hs
View File

@ -30,6 +30,7 @@ import System.Random (Random (randoms), mkStdGen)
data Config = Config data Config = Config
{ adjectives1 :: [Text] { adjectives1 :: [Text]
, adjectives2 :: [Text] , adjectives2 :: [Text]
, fileExtension :: String
, looks :: [Text] , looks :: [Text]
, sealImagesPath :: FilePath , sealImagesPath :: FilePath
, postsOutputPath :: FilePath , postsOutputPath :: FilePath
@ -102,11 +103,12 @@ sealText config n rand date = ( fileName', bp )
show date <> "-" show date <> "-"
<> "seal-post-" <> "seal-post-"
<> show n <> show n
<> ".markdown" <> "." <> fileExtension'
date' = T.pack . show $ date date' = T.pack . show $ date
title = T.pack $ "Seal Post Number " <> show n title = T.pack $ "Seal Post Number " <> show n
title' = T.replace " " "-" title title' = T.replace " " "-" title
sealImagesPath' = sealImagesPath config sealImagesPath' = sealImagesPath config
fileExtension' = fileExtension config
bp = blogPost' (toGregorian date) bp = blogPost' (toGregorian date)