1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-27 00:44:27 +03:00
urbit/base/mar/sole-action/door.hook

38 lines
846 B
Plaintext
Raw Normal View History

2015-04-10 09:57:04 +03:00
::
:::: /hook/door/sole-action/mar
::
/? 314
/- *sole
!:
::::
::
|_ sole-action
::
++ grab :: convert from
|%
++ json
|= jon=^json ^- sole-action
%- need %. jon
=> [jo ..sole-action]
2015-04-14 03:20:54 +03:00
|^ (fo %ret (of det/change ~))
2015-04-10 09:57:04 +03:00
++ 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 +<))
2015-04-14 03:20:54 +03:00
(of del/ni set/(cu tuba sa) ins/(ot at/ni cha/char ~) ~)
2015-04-10 09:57:04 +03:00
--
::
++ noun sole-action :: clam from %noun
--
--