mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
62 lines
1.3 KiB
Plaintext
62 lines
1.3 KiB
Plaintext
/- lens
|
|
|_ com/command:lens
|
|
++ grab
|
|
|%
|
|
++ noun command:lens
|
|
++ json
|
|
|= jon/^json
|
|
^- command:lens
|
|
~| jon=jon
|
|
%- need
|
|
%. jon
|
|
=< %- ot :~
|
|
source+source
|
|
sink+sink
|
|
==
|
|
=, dejs-soft:format
|
|
|%
|
|
++ source
|
|
^- $-(^^json (unit source:^^lens))
|
|
|= jon/^^json
|
|
=+ tuple=%.(jon (ar source))
|
|
?^ tuple
|
|
`[%tuple u.tuple]
|
|
%. jon
|
|
%- of :~
|
|
data+so
|
|
dojo+so
|
|
clay+so
|
|
url+(su auri:de-purl:html)
|
|
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 next+source ~)
|
|
==
|
|
++ none |=(^^json (some ~))
|
|
++ sink
|
|
^- $-(^^json (unit sink:^^lens))
|
|
%- of :~
|
|
stdout+none
|
|
output-file+so
|
|
output-clay+(su (easy /sentinel/path))
|
|
url+(su auri:de-purl:html)
|
|
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
|
|
app+(su sym)
|
|
==
|
|
--
|
|
--
|
|
--
|