implement sourcing of timestamp files

1 files changed, 5 insertions, 0 deletions

diff --git a/Types.hs b/Types.hs
index 58a8197..455a4f4 100644
--- a/Types.hs
+++ b/Types.hs
@@ -58,6 +58,7 @@ data SiteState =
     , _redirectTemplate :: FilePath -- ^ Name of the template for redirect pages
     , _tagTemplate :: FilePath -- ^ Name of the template for category pages
     , _listTemplate :: FilePath -- ^ Name of the template for listing pages
+    , _timestampSuffix :: FilePath -- ^ File to search for a timestamp (e.g., if the prefix is ".ts", a timestamp for file "page.md" will be looked for in "page.md.ts"). These are best autogenerated with a script that sources the data from git or so.
     , _urlBase :: FilePath -- ^ "Root route" to prepend to all absolute links.
     , _dumpFinalState :: Bool -- ^ Triggers printing out the structure when the processing finishes.
     }
@@ -128,6 +129,10 @@ siteOptions' = do
     strOption $
     long "url-base" <>
     short 'u' <> help "Base absolute URL" <> value "/" <> showDefault
+  _timestampSuffix <-
+    strOption $
+    long "timestamp-prefix" <>
+    help "Timestamp file suffix for markdowns" <> value ".timestamp" <> showDefault
   _dumpFinalState <-
     switch $
     long "dump-state" <>