回せ！

spin.is

### {
  name: "回す"
  version: "0.0.1"
  author: "coord_e"
  description: "回せ！"
}

@parse_num_attr(text def) {
  #arr = Str:split(text, " ")
  ? (Arr:len(arr) = 0) {
    << { num: def, rest: text }
  }

  #last = arr[Arr:len(arr)]
  #may_num = Str:to_num(last)
  
  ? (may_num = _) {
    { num: def, rest: text }
  } . {
    Arr:pop(arr)
    #init = Arr:join(arr, " ")
    { num: may_num, rest: init }
  }
}

@apply_times(f n a) {
  ? (n = 0) {
    a
  } . {
    apply_times(f (n - 1) f(a))
  }
}

@wrap_with(tag) {
  @(text) {
    `<{tag}>{text}</{tag}>`
  }
}

Plugin:register_post_form_action("回す" @(form update) {
  #r = parse_num_attr(form.text, 1)
  #text = apply_times(wrap_with("spin") r.num r.rest)
  update("text" text)
})