mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 09:51:36 +03:00
185b553c99
Listens to the default dill session and passes its %blits on to subscribers. Passes any %belt pokes it gets into dill. Updates webdojo to make use of it, which is the primary motivation for herm's existence.
49 lines
968 B
Plaintext
49 lines
968 B
Plaintext
:: blit: runtime blit structure
|
|
::
|
|
~% %mar-blit ..is ~
|
|
|_ =blit:dill
|
|
++ grad %noun
|
|
:: +grab: convert from
|
|
::
|
|
++ grab
|
|
|%
|
|
++ noun blit:dill
|
|
--
|
|
:: +grow: convert to
|
|
::
|
|
++ grow
|
|
~% %blit-grow ..grow ~
|
|
|%
|
|
++ noun blit
|
|
++ json
|
|
^- ^json
|
|
=, enjs:format
|
|
%+ frond -.blit
|
|
?- -.blit
|
|
%bel b+&
|
|
%clr b+&
|
|
%hop (numb p.blit)
|
|
%lin s+(crip (tufa p.blit))
|
|
%mor b+&
|
|
%sag (pairs 'path'^(path p.blit) 'file'^s+(jam q.blit) ~)
|
|
%sav (pairs 'path'^(path p.blit) 'file'^s+q.blit ~)
|
|
%url s+p.blit
|
|
::
|
|
%klr
|
|
:- %a
|
|
%+ turn p.blit
|
|
|= [=stye text=(list @c)]
|
|
%- pairs
|
|
:~ 'text'^s+(crip (tufa text))
|
|
::
|
|
:- 'stye'
|
|
%- pairs
|
|
:~ 'back'^[?~(. ~ s+.)]:p.q.stye
|
|
'fore'^[?~(. ~ s+.)]:q.q.stye
|
|
'deco'^a+(turn ~(tap in p.stye) |=(d=deco ?~(d ~ s+d)))
|
|
==
|
|
==
|
|
==
|
|
--
|
|
--
|