More refactoring

[xyz.git] / src / Util.hs

diff --git a/src/Util.hs b/src/Util.hs
index d1c5834..caae57c 100644 (file)
--- a/src/Util.hs
+++ b/src/Util.hs
@@ -2,6 +2,7 @@ module Util where
 
 import Data.Text hiding (filter)
 import System.Directory
+import Data.Text.Template
 
 ununlines :: [Text] -> Text
 ununlines = intercalate "\n\n"
@@ -12,3 +13,8 @@ urlify = slugify . replace "?" ""
 allFilesIn dir = filter (/= "..")<$>(filter(/= "."))<$>(getDirectoryContents dir)
 
 (+++) = append
+
+context :: [(Text, Text)] -> Context
+context assocs x = case lookup x $ assocs of
+                     Nothing -> "[[" +++ x +++ "]]"
+                     Just a -> a