From 4e0d8b5966e4eaf443146a91fca46ae3572dc052 Mon Sep 17 00:00:00 2001
From: Xavier Delaruelle <xavier.delaruelle@cea.fr>
Date: Sun, 6 Sep 2020 14:22:17 +0200
Subject: [PATCH] Add 'tr' sgr color key for trace messages

---
 configure        | 4 ++--
 modulecmd.tcl.in | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/configure b/configure
index 44080481..73c5579d 100755
--- a/configure
+++ b/configure
@@ -95,8 +95,8 @@ pager=less
 pageropts='-eFKRX'
 verbosity=normal
 color=n
-darkbgcolors='hi=1:db=2:se=2:er=91:wa=93:me=95:in=94:mp=1;94:di=94:al=96:sy=95:de=4:cm=92'
-lightbgcolors='hi=1:db=2:se=2:er=31:wa=33:me=35:in=34:mp=1;34:di=34:al=36:sy=35:de=4:cm=32'
+darkbgcolors='hi=1:db=2:tr=2:se=2:er=91:wa=93:me=95:in=94:mp=1;94:di=94:al=96:sy=95:de=4:cm=92'
+lightbgcolors='hi=1:db=2:tr=2:se=2:er=31:wa=33:me=35:in=34:mp=1;34:di=34:al=36:sy=35:de=4:cm=32'
 termbg=dark
 lockedconfigs=
 unloadmatchorder=returnlast
diff --git a/modulecmd.tcl.in b/modulecmd.tcl.in
index 60e9248a..be6a22b3 100644
--- a/modulecmd.tcl.in
+++ b/modulecmd.tcl.in
@@ -772,7 +772,7 @@ proc reportInfo {message {title INFO}} {
 proc reportTrace {message {title TRACE}} {
    if {[isVerbosityLevel trace]} {
       # use reportError for conveniance but there is no error here
-      reportError [sgr db $message] 0 $title db 0
+      reportError [sgr tr $message] 0 $title tr 0
    }
 }