virtual-programs/_archive/log.folk


1
2
3
4
5
6
7
8
9
10
11
12
13

Wish the web server handles route "/log$" with handler {
  set log [Evaluator::getOperationLog]
  set body [list "<ol>"]
  foreach entry $log {
    if {$entry eq "Evaluate"} {
      lappend body {<li style="background-color: yellow;">Evaluate</li>}
    } else {
      lappend body "<li>[htmlEscape $entry]</li>"
    }
  }
  lappend body "</ol>"
  html [join $body ""]
}