mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
64 lines
1.3 KiB
Plaintext
64 lines
1.3 KiB
Plaintext
/- lens
|
|
/+ old-zuse
|
|
::
|
|
=, old-zuse
|
|
|_ com/command:lens
|
|
++ grab
|
|
|%
|
|
++ noun command:lens
|
|
++ json
|
|
|= jon/^json
|
|
^- command:lens
|
|
~| jon=jon
|
|
%- need
|
|
%. jon
|
|
=> [. jo]
|
|
=< %- ot :~
|
|
source+source
|
|
sink+sink
|
|
==
|
|
|%
|
|
++ source
|
|
^- $-(^json (unit source:lens))
|
|
|= jon/^json
|
|
=+ tuple=%.(jon (ar source))
|
|
?^ tuple
|
|
`[%tuple u.tuple]
|
|
%. jon
|
|
%- of :~
|
|
data+so:jo
|
|
dojo+so:jo
|
|
clay+so:jo
|
|
url+(su auri:urlp)
|
|
api+(su ;~(plug sym ;~(pfix col prn)))
|
|
:- %get-api
|
|
%- su
|
|
;~ plug
|
|
sym
|
|
;~(pfix col (more net (cook crip (star ;~(less net prn)))))
|
|
==
|
|
listen-api+(su ;~(plug sym ;~(pfix col sym)))
|
|
as+(ot mark+(su sym) next+source ~)
|
|
hoon+(ot code+so:jo next+source ~)
|
|
==
|
|
++ sink
|
|
^- $-(^json (unit sink:lens))
|
|
%- of :~
|
|
stdout+|=(^json (some ~))
|
|
output-file+so:jo
|
|
output-clay+(su (easy /sentinel/path))
|
|
url+(su auri:urlp)
|
|
to-api+(su ;~(plug sym ;~(pfix col prn)))
|
|
:- %send-api
|
|
%- su
|
|
;~ plug
|
|
sym
|
|
;~(pfix col (more net (cook crip (star ;~(less net prn)))))
|
|
==
|
|
command+so:jo
|
|
app+(su sym)
|
|
==
|
|
--
|
|
--
|
|
--
|