let to_toc ~configuration content = Meta_result.( preprocess ~configuration content >>= fun p -> return Omd.(to_html (toc ~start:[0] p)) )