+ | [ a; b; c; d; e; f; g] -> a, b, c, d, e, f, g
+ | _ -> 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
+ | _ -> assert false in
+
+ let search_box = match search_box with `Bool b -> b | _ -> assert false in
+
+ let branding, brand,
+ has_brand_tagline, brand_tagline,
+ has_brand_description, brand_description =
+ match brand with
+ | `Null -> false, "", false, "", false, ""
+ | `String brand ->
+ let has_brand_tagline, brand_tagline =
+ match brand_tagline with
+ | `Null -> false, ""
+ | `String s -> true, s
+ | _ -> assert false in
+ let has_brand_description, brand_description =
+ match brand_description with
+ | `Null -> false, ""
+ | `String s -> true, s
+ | _ -> assert false in
+ true, brand,
+ has_brand_tagline, brand_tagline,
+ has_brand_description, brand_description