From 402107a237a7039b0aa2028f6c21939e53c98dc4 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sun, 15 Oct 2023 22:22:18 +0200
Subject: support tag metadata, make much everything nicer

---
 Utils.hs | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'Utils.hs')

diff --git a/Utils.hs b/Utils.hs
index 4426b68..07cc7b2 100644
--- a/Utils.hs
+++ b/Utils.hs
@@ -22,12 +22,13 @@ import Control.Monad.IO.Class
 import Data.List.Extra (stripSuffix)
 import Data.Maybe (isJust)
 import qualified Data.Text as T
+import Lens.Micro.Mtl
 import System.Directory
   ( createDirectoryIfMissing
   , doesDirectoryExist
   , getDirectoryContents
   )
-import System.FilePath ((</>), takeDirectory)
+import System.FilePath ((</>), takeDirectory, splitDirectories)
 import Text.Pandoc.Definition
 import qualified Text.Pandoc.Walk
 import Types
@@ -116,6 +117,23 @@ getRecursiveContents ignore top = go ""
                 else return [rel]
           return $ concat paths
 
+-- | A nice tool interned from Relude.
+foldMapM :: (Monoid b, Monad m, Foldable f) => (a -> m b) -> f a -> m b
+foldMapM f xs = foldr step return xs mempty
+  where
+    step x r z = f x >>= \y -> r $! z `mappend` y
+
+-- | Source paths from a source-y directory. The paths that have to be ignored
+-- by config `notSourceDirs` are omitted.
+sourcePaths :: Monoid a => FilePath -> (FilePath -> Site a) -> Site a
+sourcePaths fp process = do
+  notSource <- use notSourceDirs
+  let ignoreDir ds
+        | null ds = False
+        | last ds `elem` notSource = True
+        | otherwise = False
+  io (getRecursiveContents (pure . ignoreDir . splitDirectories) fp) >>= foldMapM process
+
 -- | Given a path to a file, try to make the path writable by making all
 -- directories on the path. (Interned from Hakyll.)
 makeDirectories :: FilePath -> IO ()
-- 
cgit v1.2.3