From e44c0d35b49d130a9ff8d7f0a244b76bf7d54259 Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Thu, 22 Jun 2023 09:01:25 +0200 Subject: avoid source dirs Fixes #4 --- Types.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Types.hs') diff --git a/Types.hs b/Types.hs index f4212d8..58a8197 100644 --- a/Types.hs +++ b/Types.hs @@ -52,6 +52,7 @@ data SiteState = , _searchDataOut :: Maybe FilePath -- ^ File to write the searchable versions of pages to (as JSON) , _assetDir :: FilePath -- ^ Directory for output , _sourceDirs :: [FilePath] -- ^ Path to page source data + , _notSourceDirs :: [FilePath] -- ^ Subdirectories of source dirs where pages should not be sourced , _templateDir :: FilePath -- ^ Path to template directory , _defaultTemplate :: FilePath -- ^ Name of the default template , _redirectTemplate :: FilePath -- ^ Name of the template for redirect pages @@ -93,6 +94,11 @@ siteOptions' = do short 's' <> help "Path to the directory with source data (possibly multiple paths, defaults to a single directory \"cards\")" + _notSourceDirs <- + fmap (maybe ["assets"] toList . nonEmpty) . many . strOption $ + long "exclude-source-directory" <> + help + "Names of subdirectories of the sources that should never be used for sourcing pages (possibly multiple directory names, defaults to a single directory \"assets\")" _templateDir <- strOption $ long "template-directory" <> -- cgit v1.2.3