From 8a756ea9c776514b90cc45447c6847d9ccce6664 Mon Sep 17 00:00:00 2001
From: "Heinz N. Gies" <heinz@licenser.net>
Date: Tue, 22 Sep 2015 17:08:46 +0200
Subject: [PATCH] Add underline and bold only codes

---
 README.md  |  2 ++
 src/cf.erl | 10 ++++++++++
 2 files changed, 12 insertions(+)

diff --git a/README.md b/README.md
index f92bf43..0df9142 100644
--- a/README.md
+++ b/README.md
@@ -13,6 +13,8 @@ syntax to add colours.
 %% The colour can be one of:
 %%
 %%   !   - resets the output
+%%   ^   - bold (no colour change)
+%%   __  - (two _) makes text underlined (no colour change)
 %%   x,X - black
 %%   r,R - red
 %%   g,G - greeen
diff --git a/src/cf.erl b/src/cf.erl
index 4c7a352..a756e47 100644
--- a/src/cf.erl
+++ b/src/cf.erl
@@ -28,6 +28,7 @@
 %% The colour can be one of:
 %%
 %%   !   - resets the output
+%%   ^   - makes text bold
 %%   x,X - black
 %%   r,R - red
 %%   g,G - greeen
@@ -77,6 +78,7 @@ format(Fmt) ->
 -define(BC,  "\033[1;36m").
 -define(BW,  "\033[1;37m").
 -define(U,   "\033[4m").
+-define(B,   "\033[1m").
 -define(BGX, "\033[40m").
 -define(BGR, "\033[41m").
 -define(BGG, "\033[42m").
@@ -103,9 +105,17 @@ cfmt(S, Enabled) ->
 
 cfmt_([$~,$!, _C | S], false) ->
     cfmt_(S, false);
+cfmt_([$~,$!, $_, _C | S], false) ->
+    cfmt_(S, false);
 cfmt_([$~,$#, _C | S], false) ->
     cfmt_(S, false);
 
+cfmt_([$~, $!, $_, $_ | S], Enabled) ->
+    [?U | cfmt_(S, Enabled)];
+cfmt_([$~,$!, $^ | S], Enabled) ->
+    [?B | cfmt_(S, Enabled)];
+cfmt_([$~,$!, $_, $^ | S], Enabled) ->
+    [?U, ?B | cfmt_(S, Enabled)];
 ?CFMT($!, ?R);
 ?CFMT($x, ?NX);
 ?CFMT($X, ?BX);