src/Util.hs

   1 module Util where
   2
   3 import Data.Text hiding (filter)
   4 import System.Directory
   5 import Data.Text.Template
   6
   7 ununlines :: [Text] -> Text
   8 ununlines = intercalate "\n\n"
   9
  10 slugify = toLower. replace " " "-"
  11 urlify = slugify . replace "?" ""
  12
  13 allFilesIn dir = filter (/= "..")<$>(filter(/= "."))<$>(getDirectoryContents dir)
  14
  15 (+++) = append
  16
  17 context :: [(Text, Text)] -> Context
  18 context assocs x = case lookup x $ assocs of
  19                      Nothing -> "[[" +++ x +++ "]]"
  20                      Just a -> a