(* Utility functions related to tags. *)

open Printf

let string_of_tag name colour =
  let bg, fg =
    match colour with
    (* white fg *)
    | "black"  -> 40, 37
    | "blue"   -> 44, 37
    | "green"  -> 42, 37
    | "red"    -> 41, 37
    | "purple" -> 45, 37
       
    (* black fg *)
    | "cyan"   -> 46, 30
    | "yellow" -> 43, 30
    | _ -> assert false in

  sprintf "\x1b[%d;%dm\x1b[%d;%dm %s \x1b[0m" 1 fg 1 bg name