First work an tinc

1 files changed, 19 insertions, 0 deletions

diff --git a/custom/tinc/generate_hostfile.hs b/custom/tinc/generate_hostfile.hs
new file mode 100755
index 00000000..a8420780
--- /dev/null
+++ b/custom/tinc/generate_hostfile.hs
@@ -0,0 +1,19 @@
+#!/usr/bin/env runhaskell
+
+import System.Directory.Tree
+import Data.List
+
+main :: IO ()
+main = readDirectory "." >>= putStrLn . genHostFile
+
+genHostFile :: AnchoredDirTree String -> String
+genHostFile (_ :/ (Dir _ contents)) = "{\n" ++ entries ++ "\n}\n"
+  where
+    entries = concat [ genEntry name content | (File name content) <- contents, name `notElem` hidden ]
+    genEntry fileName fileContent = unlines . indent $ [ "\"" ++ fileName ++ "\" = ''" ] ++ indent (lines fileContent) ++ [ "'';" ]
+    hidden = [ "to_nix.sh"
+             , "signup.sh"
+             ]
+
+indent :: [String] -> [String]
+indent = map ("  " ++)