1
0
Fork 0

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

View File

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

View File

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