mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
provide "bold" style
This commit is contained in:
parent
b8beed4587
commit
12ca402025
2 changed files with 3 additions and 1 deletions
|
|
@ -197,7 +197,8 @@ let style_of_tag_ s = match String.trim s with
|
|||
| "magenta" -> [`FG `Magenta]
|
||||
| "cyan" -> [`FG `Cyan]
|
||||
| "white" -> [`FG `White]
|
||||
| "Black" -> [`FG `Black]
|
||||
| "bold" -> [`Bold]
|
||||
| "Black" -> [`FG `Black; `Bold]
|
||||
| "Red" -> [`FG `Red; `Bold]
|
||||
| "Green" -> [`FG `Green; `Bold]
|
||||
| "Yellow" -> [`FG `Yellow; `Bold]
|
||||
|
|
|
|||
|
|
@ -84,6 +84,7 @@ val map : ('a -> 'b) -> 'b printer -> 'a printer
|
|||
{- "magenta" }
|
||||
{- "cyan" }
|
||||
{- "white" }
|
||||
{- "bold" bold font}
|
||||
{- "Black" bold black}
|
||||
{- "Red" bold red }
|
||||
{- "Green" bold green }
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue