ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-04 21:33:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix irritating %logo bug.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-06-24 12:13:26 -07:00
parent f939071722
commit fee99966cb
5 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arvo/batz.hoon
View File

@ -296,7 +296,7 @@
%kill =+ gyp=?>(?=(^ fog) i.fog)
?. =(0 gyp)
abet:kill:(fest gyp hen)
?: =(~[/gold/term/1] ?>(?=(^ hen) t.hen)) :: XX gross
?: =(~[/[%$]/term/1] ?>(?=(^ hen) t.hen)) :: XX gross
[[[hen [%give %logo ~]] ~] +<.^^$]
[~ +<.^^$]
%ling ?> ?=(^ fog)

37
arvo/eyre.hoon
View File

@ -546,18 +546,19 @@
++ hell :: request, no ship
|= [pul=purl hyx=httx moh=moth]
^+ +>
=^ wiq q.q.pul
?~ q.q.pul [~ ~]
=+ nam=(cat 3 '~' i.q.q.pul)
=+ gow=(rush i.q.q.pul fed:ag)
^- [(unit ship) (list ,@t)]
?~(gow [~ q.q.pul] [gow t.q.q.pul])
=+ oar=`(unit ship)`?^(wiq wiq (doss r.p.pul))
?~ oar
(horn pul q.hyx moh)
?. (home u.oar)
(hork u.oar hyx)
(huff u.oar ?=(@ wiq) q.hyx pul moh)
=+ hon=(horn pul q.hyx moh)
?^ hon (muff u.hon)
:: =^ wiq q.q.pul
:: ?~ q.q.pul [~ ~]
:: =+ nam=(cat 3 '~' i.q.q.pul)
:: =+ gow=(rush i.q.q.pul fed:ag)
:: ^- [(unit ship) (list ,@t)]
:: ?~(gow [~ q.q.pul] [gow t.q.q.pul])
:: =+ oar=`(unit ship)`?^(wiq wiq (doss r.p.pul))
=+ oar=(fall (doss r.p.pul) (need hov))
?. (home oar)
(hork oar hyx)
(huff oar q.hyx pul moh)
::
++ home :: do we own?
|= who=ship
@ -642,18 +643,18 @@
::
++ horn :: irregular request
|= [pul=purl cip=clip moh=moth]
^+ +>
^- (unit gift)
=- ?: &(=(/favicon q.q.pul) ?=([~ ?(%ico %png)] p.q.pul))
%- muff
:- ~
:- %thou
^- httr
[200 ~[content-type/'image/png'] [~ (taco fac)]]
?: &(=(/robots q.q.pul) ?=([~ %txt] p.q.pul))
%- muff
:- ~
:- %thou
^- httr
[200 ~[content-type/'text/plain'] [~ (taco rob)]]
(fail 400 "urbit: url {<pul>} does not match a vessel")
~
:*
^= rob
%- roly
@ -728,7 +729,7 @@
==
::
++ huff :: request by ship
|= [our=ship hey=? cip=clip pul=purl moh=moth]
|= [our=ship cip=clip pul=purl moh=moth]
=* sec p.p.pul
=+ ^= sef ^- serf
=+ suf=(~(get by own) our)
@ -744,7 +745,7 @@
:- ses
^- cyst
:* ^- cred
:* [sec hey q.p.pul r.p.pul]
:* [sec q.p.pul r.p.pul]
~
(rsh 3 1 (scot %p (end 6 1 (shaf %oryx ses))))
::

2
arvo/gall.hoon
View File

@ -345,7 +345,7 @@
|= kas=silk
^- silk
:+ %mute kas
:~ [[%$ 12]~ (cave !>([[our app] sup.sat [0 0 eny now]]))]
:~ [[%$ 12]~ (cave !>([[our app] sup.sat [act.sat eny now]]))]
==
++ core |=(vax=vase (cove %core vax)) :: core as silk
++ cove :: cage as silk

3
arvo/hoon.hoon
View File

@ -9214,8 +9214,7 @@
app=@tas :: app identity
== ::
sup=(map bone (pair ship path)) :: subscription set
$: tik=@ud :: boot number
act=@ud :: action number
$: act=@ud :: change number
eny=@uvI :: entropy
lat=@da :: date of last tick
== == ::

2
arvo/zuse.hoon
View File

@ -2200,7 +2200,7 @@
++ hist ,[p=@ud q=(list ,@t)] :: depth texts
++ hole ,@t :: session identity
++ hook path :: request origin
++ hoot ,[p=? q=? r=(unit ,@ud) s=host] :: secure/mapped/host
++ hoot ,[p=? q=(unit ,@ud) r=host] :: secure/mapped/host
++ hort ,[p=(unit ,@ud) q=host] :: http port/host
++ host $%([& p=(list ,@t)] [| p=@if]) :: http host
++ httq :: raw http request