--- /dev/null
+{{Configuring common web applications}}
+
+val addWordPress = \ loc : (location) ->
+ location loc with
+ rewriteBase "/";
+ rewriteCond "%{REQUEST_FILENAME}" "!-f" [];
+ rewriteCond "%{REQUEST_FILENAME}" "!-d" [];
+ rewriteRule "." "/index.php" [last]
+ end;
+{{Add a standard WordPress blog set-up code to a virtual host. The WordPress
+ files should be rooted at the location you specify.}}
+
+val wordPress = \ host : (host) ->
+ web host with
+ addWordPress "/"
+ end;
+{{Create a WordPress blog with just the standard set-up code. The WordPress blog should
+ be rooted at the vhost's <tt>DocumentRoot</tt>.}}
+
+val addMoinMoin = begin
+ htdocs <- Htdocs;
+ prefix <- Prefix;
+ script <- Script;
+
+ alias htdocs "/usr/share/moin/htdocs";
+ scriptAlias prefix script
+end;
+{{Add a MoinMoin wiki to a vhost.}}
+
+val moinMoin = \ host : (host) ->
+ web host with
+ addMoinMoin where
+ Htdocs = "moin";
+ Prefix = "/"
+ end
+ end;
+{{Create a new vhost with just a MoinMoin wiki.}}