bill
/
sealPostGenerator
1
0
Fork 0
Code

Compare commits

base: bill:296a5b56e00cfbf0c44133da5bab28404ddf8ea0
Branches Tags
bill:main
..
compare: bill:f4abf812ada6adf9d6371e424bcacfcda20e8f26
Branches Tags
bill:main

No commits in common. "296a5b56e00cfbf0c44133da5bab28404ddf8ea0" and "f4abf812ada6adf9d6371e424bcacfcda20e8f26" have entirely different histories.
296a5b56e0 ... f4abf812ad

3 changed files with 3 additions and 8 deletions
Show Stats Expand all files Collapse all files

5
config.dhall
View File

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

2
flake.nix
View File

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

4
generateSealPosts.hs
View File

@ -30,7 +30,6 @@ 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
@ -103,12 +102,11 @@ sealText config n rand date = ( fileName', bp )
show date <> "-" show date <> "-"
<> "seal-post-" <> "seal-post-"
<> show n <> show n
<> "." <> fileExtension' <> ".markdown"
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)