1
0
Fork 0

Compare commits

..

3 Commits

Author SHA1 Message Date
Bill Ewanick 296a5b56e0 Add fileExtension config for md files 2024-01-15 18:16:56 -05:00
Bill Ewanick 92bd2d5dee Tribute to Dad 2024-01-15 18:16:34 -05:00
Bill Ewanick 032daf33e4 Add dhall-lsp-server to IDE 2024-01-15 18:16:16 -05:00
3 changed files with 8 additions and 3 deletions

View File

@ -1,7 +1,8 @@
{ sealImagesPath = "images"
, postsOutputPath = "posts"
, startDate = 2022-01-01
, seed = +137
, startDate = 1959-01-15
, seed = +2016
, fileExtension = "md"
, adjectives1 =
[ "absorbing"
, "adorable"

View File

@ -35,6 +35,8 @@
ghc'
hlint
haskell-language-server
dhall-lsp-server
];
};
});

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)