+ | [ a; b; c] -> a, b, c
+ | _ -> assert false in
+ let theme_css =
+ match theme_css with
+ | `Null -> "/_css/standard.css"
+ | `String file -> file
+ | _ -> assert false in
+ let powered_by_name, powered_by_url =
+ match powered_by_name, powered_by_url with
+ | `Null, `Null ->
+ let url = "http://sandbox.merjis.com/" in
+ let name = Cocanwiki_version.package ^ " " ^
+ Cocanwiki_version.version in
+ name, url
+ | `String name, `String url -> name, url