proc ::cmdr::color::Unknown {cmd codes {text {}}} {
    debug.cmdr/color {}
    list [namespace current]::Apply $codes
}

proc ::cmdr::color::Apply {codes {text {}}} {
    debug.cmdr/color {}









    # Check codes first. Even if not active! IOW do not stop catching
    # the use of bad/unknown codes just because we switched off the
    # colorization.
    variable char
    foreach c $codes {
	if {![dict exists $char $c]} {
................................................................................
	return $text
    }

    # Apply chosen colors. Validation happend already.
    foreach c $codes {
	append r [dict get $char $c]
    }



    if {$text ne {}} {
	append r $text
	append r [dict get $char reset]
    }

    debug.cmdr/color {/done}
    return $r
................................................................................
	lappend smap $c $o
    }
    lappend smap \127 \\127
} ::cmdr::color}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::color 1.0.1

proc ::cmdr::color::Unknown {cmd codes {text {}}} {
    debug.cmdr/color {}
    list [namespace current]::Apply $codes
}

proc ::cmdr::color::Apply {codes {text {}}} {
    debug.cmdr/color {}

    # Empty string, user-specified (IOW not the default value).
    # Return as is, color superfluous (no-op: set, then reset, with
    # nothing in between)
    if {($text eq {}) &&
	([llength [info level 0]] == 3)} {
	return $text
    }

    # Check codes first. Even if not active! IOW do not stop catching
    # the use of bad/unknown codes just because we switched off the
    # colorization.
    variable char
    foreach c $codes {
	if {![dict exists $char $c]} {
................................................................................
	return $text
    }

    # Apply chosen colors. Validation happend already.
    foreach c $codes {
	append r [dict get $char $c]
    }
    # Empty string here can only be default value => Were called only
    # with code, no text => No reset, we wanted just the low-level
    # string for the color code.
    if {$text ne {}} {
	append r $text
	append r [dict get $char reset]
    }

    debug.cmdr/color {/done}
    return $r
................................................................................
	lappend smap $c $o
    }
    lappend smap \127 \\127
} ::cmdr::color}

# # ## ### ##### ######## ############# #####################
## Ready
package provide cmdr::color 1.0.2

    cmdr color activate 1
} -body {
    cmdr color {bold red}
} -cleanup {
    cmdr color activate $save
    unset save
} -result "\033\[1m\033\[31m"





















# # ## ### ##### ######## ############# #####################
## Go through the API commands.
## active, activate, names, get, get-def, define, exists

# # ## ### ##### ######## ############# #####################
## active

    cmdr color activate 1
} -body {
    cmdr color {bold red}
} -cleanup {
    cmdr color activate $save
    unset save
} -result "\033\[1m\033\[31m"

test cmdr-color-2.4 {color, formatting, single code, empty string} -setup {
    set save [cmdr color active]
    cmdr color activate 1
} -body {
    cmdr color red {}
} -cleanup {
    cmdr color activate $save
    unset save
} -result ""

test cmdr-color-2.5 {color, formatting, multi-code, empty string} -setup {
    set save [cmdr color active]
    cmdr color activate 1
} -body {
    cmdr color {bold red} {}
} -cleanup {
    cmdr color activate $save
    unset save
} -result ""

# # ## ### ##### ######## ############# #####################
## Go through the API commands.
## active, activate, names, get, get-def, define, exists

# # ## ### ##### ######## ############# #####################
## active