shrub/base/mar/sole-action.hoon
2015-06-04 17:27:01 -07:00

38 lines
841 B
Plaintext

::
:::: /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
--
--