simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

provide "bold" style

Browse source
This commit is contained in:
Simon Cruanes 2016-02-19 14:10:29 +01:00
parent b8beed4587
commit 12ca402025
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/core/CCFormat.ml
View file

@ -197,7 +197,8 @@ let style_of_tag_ s = match String.trim s with
| "magenta" -> [`FG `Magenta] | "magenta" -> [`FG `Magenta]
| "cyan" -> [`FG `Cyan] | "cyan" -> [`FG `Cyan]
| "white" -> [`FG `White] | "white" -> [`FG `White]
| "Black" -> [`FG `Black] | "bold" -> [`Bold]
| "Black" -> [`FG `Black; `Bold]
| "Red" -> [`FG `Red; `Bold] | "Red" -> [`FG `Red; `Bold]
| "Green" -> [`FG `Green; `Bold] | "Green" -> [`FG `Green; `Bold]
| "Yellow" -> [`FG `Yellow; `Bold] | "Yellow" -> [`FG `Yellow; `Bold]

1
src/core/CCFormat.mli
View file

@ -84,6 +84,7 @@ val map : ('a -> 'b) -> 'b printer -> 'a printer
{- "magenta" } {- "magenta" }
{- "cyan" } {- "cyan" }
{- "white" } {- "white" }
{- "bold" bold font}
{- "Black" bold black} {- "Black" bold black}
{- "Red" bold red } {- "Red" bold red }
{- "Green" bold green } {- "Green" bold green }