let make_string_subst_opt name default opt =
  let get = make_string_opt name default opt in
    (fun ?(extra_subst=[]) conf ->
       match get conf with
         | Some str -> Some (subst conf extra_subst str)
         | None -> None)