More refactoring. Way nicer prompts

[xyz.git] / src / Util.hs

diff --git a/src/Util.hs b/src/Util.hs
index 5071998..d1c5834 100644 (file)
--- a/src/Util.hs
+++ b/src/Util.hs
@@ -1,6 +1,14 @@
 module Util where
 
-import Data.Text
+import Data.Text hiding (filter)
+import System.Directory
 
 ununlines :: [Text] -> Text
 ununlines = intercalate "\n\n"
+
+slugify = toLower. replace " " "-"
+urlify = slugify . replace "?" ""
+
+allFilesIn dir = filter (/= "..")<$>(filter(/= "."))<$>(getDirectoryContents dir)
+
+(+++) = append