2015-04-10 09:57:04 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/action/sole/mar
|
2015-04-10 09:57:04 +03:00
|
|
|
::
|
2016-02-18 02:00:12 +03:00
|
|
|
/? 310
|
2015-09-01 23:56:42 +03:00
|
|
|
/- sole
|
2016-11-17 04:42:58 +03:00
|
|
|
::
|
2015-04-10 09:57:04 +03:00
|
|
|
::::
|
|
|
|
::
|
2016-11-17 04:37:39 +03:00
|
|
|
=, sole
|
2015-04-10 09:57:04 +03:00
|
|
|
|_ sole-action
|
|
|
|
::
|
2020-05-05 06:21:05 +03:00
|
|
|
++ grad %noun
|
|
|
|
++ grow
|
|
|
|
|%
|
|
|
|
++ noun +<.grad
|
|
|
|
--
|
2015-04-10 09:57:04 +03:00
|
|
|
++ grab :: convert from
|
|
|
|
|%
|
|
|
|
++ json
|
2020-11-25 23:22:55 +03:00
|
|
|
|= jon=^json ^- sole-action
|
2015-04-10 09:57:04 +03:00
|
|
|
%- need %. jon
|
2018-10-27 02:19:18 +03:00
|
|
|
=> [dejs-soft:format ..sole-action]
|
2019-11-22 03:51:52 +03:00
|
|
|
|^ (ot id+so dat+(fo %ret (of det+change tab+ni ~)) ~)
|
2015-04-10 09:57:04 +03:00
|
|
|
++ fo
|
2020-11-25 23:22:55 +03:00
|
|
|
|* {a=term b=fist}
|
|
|
|
|=(c=json ?.(=([%s a] c) (b c) (some [a ~])))
|
2015-04-10 09:57:04 +03:00
|
|
|
::
|
|
|
|
++ ra
|
2020-11-25 23:22:55 +03:00
|
|
|
|* {a={term fist} b=fist}
|
|
|
|
|= c=json %. c
|
2016-02-10 22:03:28 +03:00
|
|
|
?.(=(%a -.c) b (pe -.a (ar +.a)))
|
2015-04-10 09:57:04 +03:00
|
|
|
::
|
2017-10-20 20:52:31 +03:00
|
|
|
++ ke :: callbacks
|
2020-11-25 23:22:55 +03:00
|
|
|
|* {gar=* sef=(trap fist)}
|
|
|
|
|= jon=json ^- (unit _gar)
|
2017-10-20 20:52:31 +03:00
|
|
|
=- ~! gar ~! (need -) -
|
|
|
|
((sef) jon)
|
|
|
|
::
|
|
|
|
++ change (ot ler+(at ni ni ~) ted+(pe 0v0 edit) ~)
|
2018-10-04 09:43:40 +03:00
|
|
|
++ char (cu taft so)
|
2015-04-10 09:57:04 +03:00
|
|
|
++ edit
|
2017-10-20 20:52:31 +03:00
|
|
|
%+ ke *sole-edit |. ~+
|
2015-04-10 09:57:04 +03:00
|
|
|
%+ fo %nop
|
2017-10-20 20:52:31 +03:00
|
|
|
%+ ra mor+edit
|
2016-02-10 22:03:28 +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
|
|
|
|
--
|
|
|
|
--
|