module System.Log.Simple.Text (
	defaultTimeFormat,
	textFmt, text, shortText, msgOnly
	) where

import Data.Time
import Text.Format

import System.Log.Simple.Base

-- | Default time format
defaultTimeFormat ∷ String
defaultTimeFormat = "%_Y-%m-%d %T.%3q %z"

textFmt ∷ FormatResult r ⇒ String → String → Converter r
textFmt tmFmt msgFmt (Message tm l comp scope msg) = format msgFmt ~~ args where
	args = [
		"time" ~% formatTime defaultTimeLocale tmFmt tm,
		"level" ~% l,
		"component" ~% comp,
		"scope" ~% scope,
		"message" ~% msg]

-- | Text log converter with default time format
text ∷ FormatResult r ⇒ Converter r
text = textFmt defaultTimeFormat "{time:cyan}\t{level}\t{component:magenta}:{scope:green}> {message}"

shortText ∷ FormatResult r ⇒ Converter r
shortText = textFmt defaultTimeFormat "{level}\t{component:magenta}: {message}"

msgOnly ∷ FormatResult r ⇒ Converter r
msgOnly = textFmt defaultTimeFormat "{message}"