Compare commits
3 Commits
f4abf812ad
...
296a5b56e0
Author | SHA1 | Date |
---|---|---|
Bill Ewanick | 296a5b56e0 | |
Bill Ewanick | 92bd2d5dee | |
Bill Ewanick | 032daf33e4 |
|
@ -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"
|
||||
|
|
|
@ -35,6 +35,8 @@
|
|||
ghc'
|
||||
hlint
|
||||
haskell-language-server
|
||||
|
||||
dhall-lsp-server
|
||||
];
|
||||
};
|
||||
});
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
Loading…
Reference in New Issue