urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

~doznec boots

Browse Source
This commit is contained in:
Philip C Monk 2015-04-01 19:57:38 -04:00
parent ca85c9728e
commit ff6a9c3198
4 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
main/arvo/clay.hoon
View File

@ -902,7 +902,7 @@
~& > %reading-at-aeon
=+ vid=(read-at-aeon:ze u.nao p.q.i.xiq)
~& > %red-at-aeon
?~ vid ~& %':( oh well' $(xiq t.xiq, xaq [i.xiq xaq])
?~ vid ~& [%oh-well mood=p.q.i.xiq] $(xiq t.xiq, xaq [i.xiq xaq])
$(xiq t.xiq, ..wake (balk p.i.xiq u.vid p.q.i.xiq))
::
%many
@ -967,7 +967,7 @@
++ make-direct :: make blob
|= p=page
^- blob
[%direct (mug p) p]
[%direct (shax (jam p)) p]
::
++ make-delta :: make blob delta
|= [p=[p=mark q=lobe] q=page]

10
main/arvo/dill.hoon
View File

@ -369,7 +369,7 @@
%_ +>.$
mos
:_ mos
[hen %pass /term-show %g %show [our /terminal] our /lines]
[hen %pass /term-show/(scot %p our) %g %show [our /terminal] our /lines]
==
::
%wake
@ -510,8 +510,12 @@
%o %_ +>.$
mos
:_ :_ mos
[hen %pass /term-show %g %nuke [our /terminal] our]
[hen %pass /term-show %g %show [our /terminal] our /lines]
:* hen %pass /term-show/(scot %p our)
%g %nuke [our /terminal] our
==
:* hen %pass /term-show/(scot %p our)
%g %show [our /terminal] our /lines
==
==
%p $(kyz [%belt %aro %u])
%u ?: =(0 bus.u.q.q.yar)

11
main/arvo/gall.hoon
View File

@ -770,7 +770,8 @@
::
++ home :: load application
^- silk
[%boil %core [[our %main [%da now]] app.sat %app ~] ~]
=+ let=((hard ,@) q.q:(need (need (ska ~ %cw [our %main %da now] /))))
[%boil %core [[our %main %ud ?:(=(let 0) 1 let)] app.sat %app ~] ~]
::
++ leav
%_ .
@ -1080,6 +1081,14 @@
::
++ work :: eat queue
|- ^+ +
:: ~& > :* %workeando
:: our=our
:: vey==(~ vey.sat)
:: ^= qic
:: ?: ?=(^ qic.sat)
:: [p -.q]:u.qic.sat
:: ~
:: ==
?: |(?=(^ qic.sat) =(~ vey.sat)) +.$ :: nothing to do
=^ yev vey.sat [p q]:~(get to vey.sat)
?: (~(has in nuc.sat) p.yev) $

2
main/arvo/zuse.hoon
View File

@ -1997,7 +1997,7 @@
++ lice ,[p=ship q=buck] :: full license
++ life ,@ud :: regime number
++ lint (list rock) :: fragment array
++ lobe ,@uvF :: blob ref
++ lobe ,@uvI :: blob ref
++ love $% :: http response
[%ham p=manx] :: html node
[%mid p=mite q=octs] :: mime-typed data