gram: nue

> ./schedule.nu

def "schedule parse" [] {
  transpose mon days | update days {
    transpose day aims | update aims {|day|
      ($day.aims | assure {[]})
      | each {|a| { aim: $a }}
      | insert done { $in.aim | parse '({done}) {aim}' | get -o done.0 }
      | update aim { str replace -r '^\(.?\) ?' ''}
      | select done aim
      | replace ($in | is-empty) { null }
} } }

def "schedule display" [proc?: closure] {
  schedule parse
  | if ($proc | is-not-empty) { do $proc }
  | table --index false --expand
}