diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-08 09:42:33 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-08 09:42:33 +0100 |
| commit | 547f98dff029d011e6498c901190de11a0bc9c61 (patch) | |
| tree | 39b4be2b4b6c2a03ae4fd21c6d0a5cbcd9ddcfa3 /src/Text/Hakyll/Util.hs | |
| parent | d29e4157f1647b06367c2e04c1cdea4c8175fd4c (diff) | |
| download | hakyll-547f98dff029d011e6498c901190de11a0bc9c61.tar.gz | |
Added link function.
Diffstat (limited to 'src/Text/Hakyll/Util.hs')
| -rw-r--r-- | src/Text/Hakyll/Util.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Text/Hakyll/Util.hs b/src/Text/Hakyll/Util.hs index d498281..319bed4 100644 --- a/src/Text/Hakyll/Util.hs +++ b/src/Text/Hakyll/Util.hs @@ -2,6 +2,7 @@ module Text.Hakyll.Util ( trim , split , stripHTML + , link ) where import Data.Char (isSpace) @@ -26,3 +27,10 @@ stripHTML str = let (beforeTag, rest) = break (== '<') str split :: String -> String -> [String] split pattern = filter (not . null) . splitRegex (mkRegex pattern) + +-- | 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>" |