mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
c9539452e2
Conflicts: urb/urbit.pill urb/zod/base/mar/bit-accounts.hoon urb/zod/base/mar/bit-addr-made.hoon urb/zod/base/mar/bit-addr-request.hoon urb/zod/base/mar/bit-api-call.hoon urb/zod/base/mar/bit-get-token.hoon urb/zod/base/mar/bit-transaction.hoon urb/zod/base/mar/bit/accounts.hoon urb/zod/base/mar/bit/addr-made.hoon urb/zod/base/mar/bit/addr-request.hoon urb/zod/base/mar/bit/api-call.hoon urb/zod/base/mar/bit/get-token.hoon urb/zod/base/mar/bit/transaction.hoon urb/zod/base/mar/cloud-auth.hoon urb/zod/base/mar/cloud-secret.hoon urb/zod/base/mar/cloud/auth.hoon urb/zod/base/mar/cloud/secret.hoon urb/zod/base/mar/dill-belt.hoon urb/zod/base/mar/dill-blit.hoon urb/zod/base/mar/dill/belt.hoon urb/zod/base/mar/dill/blit.hoon urb/zod/base/mar/oct3-move.hoon urb/zod/base/mar/oct3-update.hoon urb/zod/base/mar/oct3/move.hoon urb/zod/base/mar/oct3/update.hoon urb/zod/base/mar/oct4-move.hoon urb/zod/base/mar/oct4-update.hoon urb/zod/base/mar/oct4/move.hoon urb/zod/base/mar/oct4/update.hoon urb/zod/base/mar/sole-action.hoon urb/zod/base/mar/sole-effect.hoon urb/zod/base/mar/sole/action.hoon urb/zod/base/mar/sole/effect.hoon urb/zod/base/mar/talk-command.hoon urb/zod/base/mar/talk-report.hoon urb/zod/base/mar/talk/command.hoon urb/zod/base/mar/talk/report.hoon urb/zod/mar/bit-accounts.hoon urb/zod/mar/bit-addr-made.hoon urb/zod/mar/bit-addr-request.hoon urb/zod/mar/bit-api-call.hoon urb/zod/mar/bit-get-token.hoon urb/zod/mar/bit-transaction.hoon urb/zod/mar/cloud-auth.hoon urb/zod/mar/cloud-auth/door.hook urb/zod/mar/cloud-secret.hoon urb/zod/mar/cloud-secret/door.hook urb/zod/mar/dill-belt.hoon urb/zod/mar/dill-blit.hoon urb/zod/mar/oct3-move.hoon urb/zod/mar/oct3-update.hoon urb/zod/mar/oct4-move.hoon urb/zod/mar/oct4-update.hoon urb/zod/mar/sole-action.hoon urb/zod/mar/sole-effect.hoon urb/zod/mar/talk-command.hoon urb/zod/mar/talk-report.hoon
38 lines
841 B
Plaintext
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
|
|
--
|
|
--
|