mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
49a991e40e
The previous version allowed for redundant values (both [%bac ~] and [%key ~ %bac ~] for example), had an odd constraint in @cF, and relied unnecessarily on $<. Also rewords some of the belt and blit descriptions.
51 lines
808 B
Plaintext
51 lines
808 B
Plaintext
:: belt: runtime belt structure
|
|
::
|
|
|_ =belt:dill
|
|
++ grad %noun
|
|
:: +grab: convert from
|
|
::
|
|
++ grab
|
|
|%
|
|
++ noun belt:dill
|
|
++ json
|
|
|= jon=^json
|
|
^- belt:dill
|
|
?: ?=([%s *] jon)
|
|
(taft p.jon)
|
|
=, dejs:format
|
|
%. jon
|
|
%- of
|
|
|^ :* mod+(ot 'mod'^mod 'key'^bot ~)
|
|
txt+(ar (cu taft so))
|
|
bol
|
|
==
|
|
::
|
|
++ bol
|
|
:~ aro+(su (perk %d %l %r %u ~))
|
|
bac+ul
|
|
del+ul
|
|
hit+(ot 'r'^ni 'c'^ni ~)
|
|
ret+ul
|
|
==
|
|
::
|
|
++ bot
|
|
|= j=json
|
|
^- bolt:dill
|
|
?+ j !!
|
|
[%s *] (taft p.j)
|
|
[%o *] ((of bol) j)
|
|
==
|
|
::
|
|
++ mod
|
|
|= j=json
|
|
((su (perk %ctl %met %hyp ~)) j)
|
|
--
|
|
--
|
|
:: +grow: convert to
|
|
::
|
|
++ grow
|
|
|%
|
|
++ noun belt
|
|
--
|
|
--
|