shrub/pkg/arvo/mar/sole/action.hoon

51 lines
1.1 KiB
Plaintext
Raw Normal View History

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
/- 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
::
++ grad %noun
++ grow
|%
++ noun +<.grad
--
2015-04-10 09:57:04 +03:00
++ grab :: convert from
|%
++ json
|= jon=^json ^- sole-action
2015-04-10 09:57:04 +03:00
%- need %. jon
=> [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
|* [a=term b=fist]
|=(c=json ?.(=([%s a] c) (b c) (some [a ~])))
2015-04-10 09:57:04 +03:00
::
++ ra
|* [a=[term fist] b=fist]
|= c=json %. c
?.(=(%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
|* [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) ~)
++ 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
(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
--
--