mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-16 19:22:22 +03:00
39 lines
849 B
Plaintext
39 lines
849 B
Plaintext
::
|
|
:::: /hoon#sole-action#mar
|
|
::
|
|
/? 314
|
|
/- sole
|
|
!:
|
|
::::
|
|
::
|
|
[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
|
|
--
|
|
--
|