avoid source dirs

Fixes #4

1 files changed, 6 insertions, 0 deletions

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" <>