Merge pull request #5 from tbrugere/clean

added set_meta function

src/pandoc.ml

@@ -710,6 +710,10 @@ let meta_string p k =
   | MetaString s -> s
   | _ -> raise Not_found
 
+let set_meta v p k =
+  let meta = List.remove_assoc k (meta p) in
+  { p with meta = (k, v) :: meta }
+
 (** {2 Transforming} *)
 
 (** Change the list of blocks. *)

src/pandoc.mli

@@ -157,6 +157,9 @@ val meta_bool : t -> string -> bool
 (** Value of a string metadata. *)
 val meta_string : t -> string -> string
 
+(** Add a metadata value *) 
+val set_meta :  t -> string -> meta_value -> t
+
 (** {2 Mapping functions} *)
 
 (** General mapping function which maps a function on blocks and a function on