{{See <a href="http://httpd.apache.org/docs/2.0/mod/mod_autoindex.html#adddescription">the
Apache documentation</a> for <tt>AddDescription</tt>.}}
+extern val addIcon : location -> [no_spaces] -> [^Vhost];
+{{See <a href="http://httpd.apache.org/docs/2.0/mod/mod_autoindex.html#addicon">the
+ Apache documentation</a> for <tt>AddIcon</tt>.}}
+
+extern val indexIgnore : [no_spaces] -> [^Vhost];
+{{See <a href="http://httpd.apache.org/docs/2.0/mod/mod_autoindex.html#indexignore">the
+ Apache documentation</a> for <tt>IndexIgnore</tt>.}}
+
extern type autoindex_width;
{{A setting for how wide some column should be}}
extern val autofit : autoindex_width;
app (fn pat => (write " "; write pat)) pats;
write "\n"))
+val () = Env.action_two "addIcon"
+ ("icon", Env.string, "patterns", Env.list Env.string)
+ (fn (icon, pats) =>
+ case pats of
+ [] => ()
+ | _ => (write "\tAddIcon \"";
+ write icon;
+ write "\"";
+ app (fn pat => (write " "; write pat)) pats;
+ write "\n"))
+
val () = Env.action_one "indexOptions"
("options", Env.list autoindex_option)
(fn opts =>
(write "="; write arg)) arg)) opts;
write "\n"))
+val () = Env.action_one "indexIgnore"
+ ("patterns", Env.list Env.string)
+ (fn pats =>
+ case pats of
+ [] => ()
+ | _ => (write "\tIndexIgnore";
+ app (fn pat => (write " "; write pat)) pats;
+ write "\n"))
+
val () = Env.action_one "set_indexOptions"
("options", Env.list autoindex_option)
(fn opts =>