New vhost shortcut

[hcoop/domtool2.git] / lib / hcoop.dtl

diff --git a/lib/hcoop.dtl b/lib/hcoop.dtl
index 755949d..f538e7e 100644 (file)
--- a/lib/hcoop.dtl
+++ b/lib/hcoop.dtl
@@ -6,6 +6,19 @@ extern type homedir_path;
 extern val home : homedir_path -> your_path;
 {{Shortcut to denote a subdirectory of your home directory}}
 
+extern val homeS : no_spaces -> no_spaces;
+{{Use this version when it doesn't matter if the output is a real filesystem
+  path.}}
+
 val mailmanHcoop = mailmanWebHost "lists.hcoop.net";
 {{Configure your domain to have its Mailman mailing lists served on the web at
   lists.hcoop.net.}}
+
+val deleuze_ip : (ip) = "69.90.123.67";
+val mire_ip : (ip) = "69.90.123.68";
+val krunk_ip : (ip) = "69.90.123.70";
+val fyodor_ip : (ip) = "64.20.38.170";
+
+val simple_web = \host -> \docroot -> web host where
+  DocumentRoot = home docroot
+with end;