summaryrefslogtreecommitdiff
path: root/src/Text/Hakyll/Util.hs
blob: 8c335129b4c251747c6690be9ce59a7b19ef8d95 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
module Text.Hakyll.Util 
    ( trim
    , stripHTML
    , link
    ) where

import Data.Char (isSpace)

-- | Trim a string (drop spaces and tabs at both sides).
trim :: String -> String
trim = reverse . trim' . reverse . trim'
  where
    trim' = dropWhile isSpace

-- | Strip html tags.
stripHTML :: String -> String
stripHTML []  = []
stripHTML str = let (beforeTag, rest) = break (== '<') str
                    (_, afterTag)     = break (== '>') rest
                in beforeTag ++ stripHTML (tail' afterTag)
    -- We need a failsafe tail function.
  where
    tail' [] = []
    tail' xs = tail xs

-- | Make a HTML link.
--
--   > link "foo" "bar.html" == "<a href='bar.html'>foo</a>"
link :: String -> String -> String
link text destination = "<a href=\"" ++ destination ++ "\">"
                      ++ text ++ "</a>"