diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-06-17 12:01:22 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-06-17 12:01:22 +0200 |
commit | 6814ff2e9bbe8bc51834c948ae14a59a326b3789 (patch) | |
tree | ef8c0c867485cab905609b2080ee71f5b93c3808 /src/Hakyll | |
parent | 25e15846a2476db365809b06333cc0fab2d85221 (diff) | |
download | hakyll-6814ff2e9bbe8bc51834c948ae14a59a326b3789.tar.gz |
Only add teaser when <!--more--> is there
Diffstat (limited to 'src/Hakyll')
-rw-r--r-- | src/Hakyll/Core/Util/String.hs | 43 | ||||
-rw-r--r-- | src/Hakyll/Web/Template/Context.hs | 10 |
2 files changed, 33 insertions, 20 deletions
diff --git a/src/Hakyll/Core/Util/String.hs b/src/Hakyll/Core/Util/String.hs index d9ec91c..b46f7b8 100644 --- a/src/Hakyll/Core/Util/String.hs +++ b/src/Hakyll/Core/Util/String.hs @@ -1,5 +1,5 @@ +-------------------------------------------------------------------------------- -- | Miscellaneous string manipulation functions. --- module Hakyll.Core.Util.String ( trim , replaceAll @@ -7,21 +7,24 @@ module Hakyll.Core.Util.String , needlePrefix ) where + +-------------------------------------------------------------------------------- import Data.Char (isSpace) import Data.List (isPrefixOf) import Data.Maybe (listToMaybe) - import Text.Regex.TDFA ((=~~)) + +-------------------------------------------------------------------------------- -- | Trim a string (drop spaces, tabs and newlines at both sides). --- trim :: String -> String trim = reverse . trim' . reverse . trim' where trim' = dropWhile isSpace + +-------------------------------------------------------------------------------- -- | A simple (but inefficient) regex replace funcion --- replaceAll :: String -- ^ Pattern -> (String -> String) -- ^ Replacement (called on capture) -> String -- ^ Source string @@ -35,9 +38,10 @@ replaceAll pattern f source = replaceAll' source (capture, after) = splitAt l tmp in before ++ f capture ++ replaceAll' after + +-------------------------------------------------------------------------------- -- | A simple regex split function. The resulting list will contain no empty -- strings. --- splitAll :: String -- ^ Pattern -> String -- ^ String to split -> [String] -- ^ Result @@ -50,19 +54,24 @@ splitAll pattern = filter (not . null) . splitAll' in before : splitAll' (drop l tmp) --- | Find the first instance of needle (must be non-empty) in --- haystack. We return the prefix of haystack before needle is --- matched. + +-------------------------------------------------------------------------------- +-- | Find the first instance of needle (must be non-empty) in haystack. We +-- return the prefix of haystack before needle is matched. -- -- Examples: --- needlePrefix "cd" "abcde" = "ab" --- needlePrefix "ab" "abc" = "" --- needlePrefix "ab" "xxab" = "xx" --- needlePrefix "a" "xx" = "xx" -- -needlePrefix :: String -> String -> String -needlePrefix needle haystack = go haystack +-- > needlePrefix "cd" "abcde" = "ab" +-- +-- > needlePrefix "ab" "abc" = "" +-- +-- > needlePrefix "ab" "xxab" = "xx" +-- +-- > needlePrefix "a" "xx" = "xx" +needlePrefix :: String -> String -> Maybe String +needlePrefix needle haystack = go [] haystack where - go [] = [] - go xss@(x:xs) | needle `isPrefixOf` xss = [] - | otherwise = x : go xs + go _ [] = Nothing + go acc xss@(x:xs) + | needle `isPrefixOf` xss = Just $ reverse acc + | otherwise = go (x : acc) xs diff --git a/src/Hakyll/Web/Template/Context.hs b/src/Hakyll/Web/Template/Context.hs index 3fde93b..ecf769d 100644 --- a/src/Hakyll/Web/Template/Context.hs +++ b/src/Hakyll/Web/Template/Context.hs @@ -242,9 +242,13 @@ modificationTimeFieldWith locale key fmt = field key $ \i -> do teaserField :: String -- ^ Key to use -> Snapshot -- ^ Snapshot to load -> Context String -- ^ Resulting context -teaserField key snapshot = field key $ \item -> - (needlePrefix teaserSeparator . itemBody) <$> - loadSnapshot (itemIdentifier item) snapshot +teaserField key snapshot = field key $ \item -> do + body <- itemBody <$> loadSnapshot (itemIdentifier item) snapshot + case needlePrefix teaserSeparator body of + Nothing -> fail $ + "Hakyll.Web.Template.Context: no teaser defined for " ++ + show (itemIdentifier item) + Just t -> return t -------------------------------------------------------------------------------- |