bill
/
sealPostGenerator
1
0
Fork 0
Code

Compare commits

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

3 Commits
f4abf812ad ... 296a5b56e0

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
Show Stats Expand all files Collapse all files

5
config.dhall
View File

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

2
flake.nix
View File

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

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)