jacinda-1.0.0.0: examples/diffctx.jac

{. git diff master | rg '(\+|-).*TODO'

@include'prelude/fn.jac'
@include'lib/maybe.jac'

fn mMatch(str, re) :=
  if str ~ re
    then Some str
    else None;

fn step(needle, ctx, line) :=
  let 
    val fpCtx ≔ line ~* 1 /diff --git\s+([^\s]+)/
    val mLine ≔ mMatch line needle
  in (alternative (ctx->1) fpCtx.mLine) end;

fn process(x) :=
  let
    val fpCtx ≔ fromMaybe 'WARN' (x->1)
    val line ≔ (λl. sprintf'%s: %s' (fpCtx.l))"(x->2)
  in line end;

process:?(step/(\+|-).*TODO/)^(None.None)$0