Provide colored output

fury

@@ -18,9 +18,14 @@ project eucalyptus
     sources   src/syslog
     include   guillotine/core eucalyptus/core
 
+  module ansi
+    compiler  scala
+    sources   src/ansi
+    include   escapade/core eucalyptus/core
+
   module test
     compiler  scala
     sources   src/test
-    include   probably/cli eucalyptus/syslog
+    include   probably/cli eucalyptus/syslog eucalyptus/ansi
     main      eucalyptus.Tests
 

src/ansi/ansi.scala

@@ -0,0 +1,23 @@
+package eucalyptus
+
+import escapade.*
+import iridescence.*
+import anticipation.*
+import gossamer.*
+import spectacular.*
+import hieroglyph.textWidthCalculation.uniform
+
+package logFormats:
+  given standardColor[TargetType]: LogFormat[TargetType] = entry =>
+    given displayLevel: Displayable[Level] = level =>
+      val color = level match
+      case Level.Fine => colors.LightSeaGreen
+      case Level.Info => colors.YellowGreen
+      case Level.Warn => colors.Gold
+      case Level.Fail => colors.Tomato
+
+      e"${Bg(color)}[${colors.Black}($Bold( ${level.show.upper} ))]"
+
+    val realm: Output = e"${colors.MediumSeaGreen}(${entry.realm.show.fit(8)})"
+
+    e"${colors.SlateGray}(${Log.dateFormat.format(entry.timestamp).nn.tt}) ${entry.level} $realm ${entry.message}\n".render

src/core/log.scala

@@ -30,7 +30,7 @@ import scala.language.experimental.captureChecking
 
 object Log:
 
-  private val dateFormat = jt.SimpleDateFormat(t"yyyy-MMM-dd HH:mm:ss.SSS".s)
+  val dateFormat = jt.SimpleDateFormat(t"yyyy-MMM-dd HH:mm:ss.SSS".s)
 
   inline def fine
       [ValueType]

src/core/logging.scala

@@ -92,10 +92,10 @@ extends Logger:
     funnel.put(entry)
 
 object LogFormat:
-  given standardAnsi[TargetType]: LogFormat[TargetType] = entry =>
+  given standard[TargetType]: LogFormat[TargetType] = entry =>
     import textWidthCalculation.uniform
     val realm: Message = msg"${entry.realm.show.fit(8)}"
-    msg"${entry.timestamp} ${entry.level} $realm ${entry.message}".text+t"\n"
+    msg"${Log.dateFormat.format(entry.timestamp).nn.tt} ${entry.level} $realm ${entry.message}".text+t"\n"
 
 trait LogFormat[TargetType]:
   def apply(entry: Entry): Text

src/test/tests.scala

@@ -27,11 +27,13 @@ import turbulence.*, stdioSources.jvm
 object Tests extends Suite(t"Eucalyptus tests"):
   def run(): Unit =
     import Level.*
+    given LogFormat[Out.type] = logFormats.standardColor[Out.type]
+    given LogFormat[Err.type] = logFormats.standardColor[Err.type]
     supervise:
       given Log = Log:
-        case Warn() => Err
+        case Warn() => Out
         case Fail() => Out
-        case _      => Syslog(t"tab")
+        case _      => Out//Syslog(t"tab")
 
       test(t"Log something"):
         given realm: Realm = realm"test"