mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 10:21:31 +03:00
41 lines
1016 B
Plaintext
41 lines
1016 B
Plaintext
::
|
|
:::: /mar/hall/command/hoon
|
|
::
|
|
/? 310
|
|
/- hall
|
|
/+ hall-json
|
|
::
|
|
=, hall
|
|
|_ cod/command
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun command :: from %noun
|
|
++ json :: from %json
|
|
=, dejs:hall-json
|
|
=, dejs-soft:format
|
|
|= a/json
|
|
^- command:hall
|
|
=- (need ((of -) a))
|
|
:~ publish+(ar thot)
|
|
present+(ot nos+(as so) dif+disa ~)
|
|
:: bearing not needed
|
|
==
|
|
--
|
|
::
|
|
++ grow :: convert to
|
|
|%
|
|
++ json :: to %json
|
|
=, enjs:hall-json
|
|
=, enjs:format
|
|
%+ frond -.cod
|
|
:: only %publish has just a single piece of data.
|
|
?: ?=($publish -.cod) a+(turn tos.cod thot)
|
|
%- pairs
|
|
?+ -.cod !!
|
|
$present ~[nos+(sa nos.cod cord:enjs:hall-json) dif+(disa dif.cod)]
|
|
:: bearing nto needed
|
|
==
|
|
--
|
|
--
|