ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 07:28:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

About working. But very slow.

Browse Source
This commit is contained in:
C. Guy Yarvin 2017-09-07 16:47:49 -07:00
parent e8da5f5f73
commit bf3b8432b3
11 changed files with 37 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/talk.hoon
View File

@ -1420,7 +1420,7 @@
[%brown ~]
%^ ra-consume & our.hid
:^ (shaf %init eny.hid)
(my [[%& our.hid (main our.hid)] *envelope %pending] ~)
[[[%& our.hid (main our.hid)] *envelope %pending] ~ ~]
now.hid
[~ %app %tree 'receiving forum posts, ;join %posts for details']
::
@ -1431,7 +1431,7 @@
%^ ra-consume &
src.hid
:* (shaf %comt eny.hid)
(my [[%& our.hid man] *envelope %pending] ~)
[[[%& our.hid man] *envelope %pending] ~ ~]
now.hid
(sy /fora-post eyre+pax ~)
:- %mor :~
@ -1461,7 +1461,7 @@
[%brown ~]
%^ ra-consume & our.hid
:^ (shaf %init eny.hid)
(my [[%& our.hid (main our.hid)] *envelope %pending] ~)
[[[%& our.hid (main our.hid)] *envelope %pending] ~ ~]
now.hid
[~ %app %tree 'receiving comments, ;join %comments for details']
::
@ -1472,7 +1472,7 @@
%^ ra-consume &
src.hid
:* (shaf %comt eny.hid)
(my [[%& our.hid man] *envelope %pending] ~)
[[[%& our.hid man] *envelope %pending] ~ ~]
now.hid
(sy /comment eyre+pax ~)
:- %mor :~

2
lib/twitter.hoon
View File

@ -32,7 +32,7 @@
?- med
$get [url med *math ~]
$post
=+ hed=(my content-type+['application/x-www-form-urlencoded']~ ~)
=+ hed=(my:nl content-type+['application/x-www-form-urlencoded']~ ~)
[url(r ~) med hed ?~(r.url ~ (some (as-octt +:(tail:en-purl r.url))))]
==
::

2
sys/arvo.hoon
View File

@ -1,6 +1,6 @@
:: ::
:::: 6: layer six
!:
::
~> %slog.[0 leaf+"arvo-boot"]
=< |= {now/@da ovo/*}
^- *

11
sys/hoon.hoon
View File

@ -1,4 +1,3 @@
!:
:: ::
:::: /sys/hoon ::
:: ::
@ -1539,15 +1538,15 @@
::
++ ly :: list from raw noun
|* a/*
^+((homo (limo a)) a)
le:nl
::
++ my :: map from raw noun
|* a/*
(malt ^+((homo (limo a)) a))
my:nl
::
++ sy :: set from raw noun
|* a/*
(silt ^+((homo (limo a)) a))
si:nl
::
++ nl
^%
@ -7677,8 +7676,8 @@
[dox p.q]
?> ?=($elm -.q)
:: ~_ (dunk(sut [%cell q.q.p p.p]) %fire-wet)
=. p.p ?:(fab p.p (redo(sut p.p) q.q.p))
:: =. p.p (redo(sut p.p) q.q.p)
:: =. p.p ?:(fab p.p (redo(sut p.p) q.q.p))
=. p.p (redo(sut p.p) q.q.p)
?> ?| !vet
(~(has in rib) [sut dox p.q])
!=(** (mull(sut p, rib (~(put in rib) sut dox p.q)) %noun dox p.q))

2
sys/vane/ames.hoon
View File

@ -1,4 +1,4 @@
!: :: ::
:: :: ::
:::: /hoon/ames/arvo :::::: vane prelude
:: :: ::
|= pit/vase :: kernel vase

1
sys/vane/clay.hoon
View File

@ -1,4 +1,3 @@
!:
:: clay (4c), revision control
::
:: This is split in three top-level sections: structure definitions, main

1
sys/vane/dill.hoon
View File

@ -1,3 +1,4 @@
^%
!:
:: dill (4d), terminal handling
::

13
sys/vane/eyre.hoon
View File

@ -1,4 +1,4 @@
!: :: %eyre, http servant
:: :: %eyre, http servant
!? 164
::::
|= pit/vase
@ -1476,9 +1476,16 @@
%.(grab-json =>(dejs (ot ship+(su fed:ag) code+(mu so) ~)))
::
$delt
:: XX: restored old code to fix for redo
:: ~| parsing+bod
:: :- %del
:: %.(grab-json =>(dejs-soft (ot ship+(su fed:ag))))
::
~| parsing+bod
:- %del
%.(grab-json =>(dejs-soft (ot ship+(su fed:ag))))
=+ jon=(need (de-json q:(need bod)))
?> ?=($o -.jon)
=+ sip=(~(get by p.jon) %ship)
[%del ?~(sip ~ [~ ((su:dejs fed:ag) u.sip)])]
== ==
==
--

8
sys/vane/ford.hoon
View File

@ -592,8 +592,10 @@
=< abet
|- ^+ ..exec
?~ zuk ..exec
$(zuk t.zuk, ..exec `_..exec`(camp van.i.zuk ren.i.zuk bem.i.zuk))
==
%= $
zuk t.zuk
..exec `_..exec`(camp van.p.i.zuk ren.q.i.zuk bem.q.i.zuk)
== ==
::
++ expo :: return gift
|= gef/gift:able
@ -1188,7 +1190,7 @@
|= {cof/cafe fro/(set mark)} ^- (bolt (list mark))
?: (~(has in tag) p.won)
(fine cof (flop pax))
=+ for=(skip (~(tap by fro)) ~(has by war))
=+ for=(skip (~(tap in fro)) ~(has by war))
=. for (sort for aor) :: XX useful?
=: q.won (~(gas to q.won) for)
war (~(gas by war) (turn for |=(mark [+< pax])))

15
sys/vane/jael.hoon
View File

@ -1,5 +1,6 @@
!: :: /van/jael
:: :: %reference/0
^%
!? 150
::
::
@ -1728,7 +1729,7 @@
++ as-hotel :: XX moveme
|= a/ship ^- (map {ship bloq} pile)
=/ b (xeb (xeb a))
=- (my - ~)
=- (my:nl - ~)
:- [(sein a) b]
(put:py (rsh (dec b) 1 a))
::
@ -1756,9 +1757,9 @@
=/ pas/@p (shaf %pass tid.taz)
=* inv inv.taz
?< (~(has by shy) pas)
=. +>.$ (add-rite pas [%email (sy who.inv ~)])
=. +>.$ (add-rite pas [%email (si:nl who.inv ~)])
%+ mov-rite [rex pas]
[%fungi (my [%upl pla.inv] [%usr sta.inv] ~)]
[%fungi (my:nl [%upl pla.inv] [%usr sta.inv] ~)]
::
:: increase existing balance
:: {$reinvite aut/passcode pla/@ud sta/@ud}
@ -1767,7 +1768,7 @@
=/ pas/@p (shaf %pass tid.taz)
?> (~(has by shy) pas)
%+ mov-rite [rex pas]
[%fungi (my [%upl pla.taz] [%usr sta.taz] ~)]
[%fungi (my:nl [%upl pla.taz] [%usr sta.taz] ~)]
::
:: split passcode balance
:: {$reinvite aut/passcode tid/passcode inv/{who/mail pla/@ud sta/@ud}}
@ -1776,11 +1777,11 @@
=/ pas/@p (shaf %pass tid.taz)
=* inv inv.taz
?< (~(has by shy) pas)
=. +>.$ (add-rite pas [%email (sy who.inv ~)])
=. +>.$ (add-rite pas [%email (si:nl who.inv ~)])
:: XX history
=/ ole/@p (shaf %pass aut.taz)
%+ mov-rite [ole pas]
[%fungi (my [%upl pla.inv] [%usr sta.inv] ~)]
[%fungi (my:nl [%upl pla.inv] [%usr sta.inv] ~)]
::
:: redeem ship invitation
:: {$claim aut/passcode her/@p tik/ticket}
@ -1791,7 +1792,7 @@
=/ len (xeb (xeb her.taz))
=/ fun ?+((clan her.taz) !! $duke %upl, $king %usr)
=. +>.$
(del-rite pas [%fungi (my [fun 1] ~)])
(del-rite pas [%fungi (my:nl [fun 1] ~)])
=. +>.$
(del-rite rex [%hotel (as-hotel her.taz)])
=/ who (need %.(%email ~(expose up (lawn pas))))

3
sys/zuse.hoon
View File

@ -1,5 +1,4 @@
!: :: /van/zuse
^%
:: :: /van/zuse
:: :: %reference/1
:: %zuse: arvo library.
::