shrub/mar/sole/action.hoon

::
::::  /hoon/sole-action/mar
  ::
/?    314
/-    *sole
!:
::::
  ::
|_  sole-action
::
++  grab                                                ::  convert from
  |%
  ++  json
    |=  jon=^json  ^-  sole-action
    %-  need  %.  jon
    =>  [jo ..sole-action]
    |^  (fo %ret (of det/change ~))
    ++  fo
      |*  [a=term b=fist]
      |=(c=json ?.(=([%s a] c) (b c) (some [a ~])))
    ::
    ++  ra
      |*  [a=[p=term q=fist] b=fist]
      |=  c=json  %.  c
      ?.(=(%a -.c) b (pe p.a (ar q.a)))
    ::
    ++  change  (ot ler/(at ni ni ~) ted/(cu |*(a=* [0v0 a]) edit) ~)
    ++  char  (cu turf so)
    ++  edit
      %+  fo  %nop
      %+  ra  mor/|=(json (edit +<))
      (of del/ni set/(cu tuba sa) ins/(ot at/ni cha/char ~) ~)
    --
  ::
  ++  noun  sole-action                                   ::  clam from %noun
  --
--