Formats a log to be printed to the console.

Formats a Log into a FileLog. Applies prefix and timestamp.

Like formatConsoleLog, but for multiple logs. Concatenates all together with a newline.

Like formatFileLog, but for multiple logs. Concatenates all together.

Transforms log to a color based on its LogLevel.

Transforms log to a prefix based on its LogLevel.

Maps LogLevel to Color.

Maps LogLevel to 'Prefix'.

Combines a prefix p and msg m with possible line truncation. If no truncation is given then concatWithLineTrunc is equivalent to p <> m. If we are given some line truncation l, then we derive

   k := l - prefix_len -- k is clamped to zero

and return

   prefix <> t'

where t' is t truncated to k chars. Notice the prefix is always included untarnished.

Pretty show for Command. If the command has a key, and KeyHideSwitch is KeyHideOff then we return the key. Otherwise we return the command itself.

>>> import Shrun.Command.Types (CommandP (MkCommandP), unsafeFromInt)
>>> import Shrun.Configuration.Data.CommonLogging.KeyHideSwitch (KeyHideSwitch (MkKeyHideSwitch))

>>> let idx = unsafeFromInt 1
>>> let mkCmd = MkCommandP idx
>>> let fmt k cmd kh = view #unUnlinedText $ displayCmd (mkCmd k cmd) kh

>>> fmt Nothing "some long command" (MkKeyHideSwitch true)
"some long command"

>>> fmt Nothing "some long command" (MkKeyHideSwitch false)
"some long command"

>>> fmt (Just "long") "some long command" (MkKeyHideSwitch true)
"some long command"

>>> fmt (Just "long") "some long command" (MkKeyHideSwitch false)
"long"

Applies the given StripControl to the Text.

• StripControlAll: All control chars.
• StripControlSmart: Ansi control chars.
• StripControlNone: Nothing.

Surrounds text with brackets, appending a space if the boolean is True.

Examples

>>> brackets "text"
"[text]"

Replace newlines with whitespace before stripping, so any strings separated by newlines do not get smashed together.