sweeping with anton

This commit is contained in:
Galen Wolfe-Pauly 2016-02-04 11:52:00 -08:00
parent bfd52f9e32
commit 087911e581
59 changed files with 42 additions and 651 deletions

View File

@ -469,7 +469,7 @@
%+ titl 'Sign in - Urbit'
;= ;div.container
;div.row
;div.col-md-2
;div.col-md-4
;h1.sign: Sign in
==
;div.col-md-8

View File

@ -1,107 +0,0 @@
:: App construction utilities
::
:::: /hoon/sh-utils/lib
::
|%
++ append
|* a=*
|* b=*
[b a]
::
++ hapt (pair ship path)
--
!:
::::
::
|%
++ args-done |*(ref=_,[(list) ^] (add-exit (add-nice ref))) :: accept args
::
++ add-exit :: add "kill self" kiss
|* ref=_,[(list) ^]
%+ add-resp [%pass / %g %cide %$]
ref
::
++ add-nice :: return "succcess" response
|* ref=_,[(list) ^]
%+ add-resp [%give %nice ~]
ref
::
++ add-subs :: add gall subscription
|* [hat=[hapt ship path] ref=_,[(list) ^]]
(add-resp [%pass /show %g %show hat] ref)
::
++ args-into-gate :: poke--args from gate: output and exit
|* [con=[* [hide *] *] gat=_,[@ *]]
%- args-done
%^ gate-outs con
|=(a=_+<.gat [%rush (gat a)])
,_`con
::
++ args-into-resp :: compute gifts with gate and exit
|* [con=[* [hide *] *] gat=_,(pole ,[@ *])]
%- args-done
|* [ost=bone * arg=_+<.gat]
:_ con
%. (gat arg)
|* a=(pole ,[@ *])
?~ a ~
a(- [ost %give -.a], + $(a +.a))
::
++ add-output :: send gift to /out
|* [con=[* [hide *] *] ote=[@ *] ref=_,[(list) ^]]
=> .(+<- `[* [hid=hide *] *]`con)
=+ sus=(~(tap in `(set bone)`(~(get ju pus.hid) /out)))
=+ mof=(turn sus (append [%give ote]))
|= _+<.ref
=+ neu=(ref +<)
neu(- (welp mof -.neu))
::
++ add-resp :: add response move to requesting bone
|* [mof=[@ @ *] ref=_,[(list) ^]]
|* [ost=bone _?@(+<.ref ~ +<+.ref)]
=+ neu=(ref +<)
neu(- [[ost mof] -.neu])
::
++ gate-give :: respond with computed gift
|* [gat=_,[@ *] ref=_,[(list) ^]]
(gate-move |*(_+<.gat [%give (gat +<)]) ref)
::
++ gate-bang :: respond with computed note
|* [gat=_,[@ @ *] ref=_,[(list) ^]]
(gate-move |*(_+<.gat [%pass /bang (gat +<)]) ref)
::
++ gate-mess :: respond with local message
|* [con=[* [hide *] *] gat=_,[@ @ *] ref=_,[(list) ^]]
=> .(+<- `[* [hid=hide *] *]`con)
%- gate-move :_ ref
|* _+<.gat
=+ `[imp=path mez=cage]`(gat +<)
[%pass /poke %g %mess [our.hid imp] our.hid mez]
::
++ gate-move :: respond with computed move
|* [gat=_,(mold) ref=_,[(list) ^]]
|* [ost=bone * arg=_+<.gat]
((add-resp (gat arg) ref) +<)
::
::
++ gate-outs :: send computed gift to /out
|* [con=[* [hide *] *] gat=_,[@ *] ref=_,[(list) ^]]
|* [ost=bone * arg=_+<.gat]
((add-output con (gat arg) ref) +<)
::
++ listen-in :: recieve standard input
|* [con=[* [hide *] *] ref=_,[(list) ^]]
=> .(+<- `[* [hid=hide *] *]`con)
(add-subs [[our +.imp] our /in/[-.imp]]:hid ref)
::
++ print
|* [con=[* [hide *] *] tap=tape]
(add-output con [%rush %tang [%leaf tap] ~] ,_[~ con])
::
++ verify :: type-check with context and move
|* [con=^ mof=[@ *]]
|* ref=_,[(list ,_mof) _con]
|* _+<.ref
^- [(list ,_mof) _con]
(ref +<)
--

View File

@ -1,3 +0,0 @@
:: Alias
/+ sh-utils
.

View File

@ -1,21 +0,0 @@
:: this mark is used to receive a confirmed transaction
::
:::: /hoon/bit-accounts/mar
::
/? 310
/- bit-api
!:
[bit-api .]
|_ bit-accounts
::
++ grab :: converter arm
|%
++ noun bit-accounts :: clam from noun
++ json |= jon=^json ^- bit-accounts
~| jon
%- need %. jon
=> jo
=+ bal=(ot amount/so currency/(cu cass sa) ~)
(ot accounts/(ar (ot id/so name/so balance/bal ~)) ~)
--
--

View File

@ -1,5 +0,0 @@
|_ @t
++ grab |%
++ noun cord
--
--

View File

@ -1,6 +0,0 @@
|_ ~
++ grab |%
++ noun ,~
--
--

View File

@ -1,31 +0,0 @@
::
:::: /hoon/bit-api-call/mar
::
/? 314
/- bit-api
[bit-api .]
|_ [access-token=@t req=bit-api-call]
::
++ wrap
|= [end-point=path req=$|(%get [%post p=json])]
[/com/coinbase/sandbox/api v1/end-point req ~ ['access_token' access-token]~]
::
++ order
|= [amount=@t currency=@t] ^- json
(jobe qty/s/amount ?~(currency ~ [currency/s/currency ~]))
++ grow
|% ++ httpreq
%- wrap
|-
?- -.req
%list [/accounts %get]
%buy [/buys %post (order +.req)]
%sell [/sells %post (order +.req)]
%send $(req [%txt-send (rsh 3 2 (scot %uc adr.req)) btc.req])
%txt-send
:+ /transactions/'send_money' %post
(joba %transaction (jobe to/s/to.req amount/s/btc.req ~))
==
--
--

View File

@ -1,21 +0,0 @@
::
:::: /hoon/bit-get-token/mar
::
/? 314
/- bit-api
/+ http
[bit-api .]
|_ req=bit-get-token
::
++ grow
|% ++ httpreq
^- request:http
=- [/com/coinbase/sandbox /oauth/token [%post ~] ~ `quay`-]
:~ ['grant_type' 'authorization_code']
['code' oat.req]
['redirect_uri' (crip (earn red.req))]
['client_id' cid.req]
['client_secret' sec.req]
==
--
--

View File

@ -1,17 +0,0 @@
:: this mark is used to receive a confirmed transaction
::
:::: /hoon/bit-transaction/mar
::
/? 310
!:
|_ id=@t ::XX time
::
++ grab :: converter arm
|%
++ noun ,@t :: clam from noun
++ json |= jon=^json
~| jon
(need ((ot transaction/(ot id/so ~) ~):jo jon))
--
--

View File

@ -1,12 +0,0 @@
::
:::: /hoon/term-line/mar
::
/? 314
|_ txt=cord
::
++ grab :: convert from
|%
++ noun ,@t :: clam from %noun
++ json (cork so:jo need)
--
--

View File

@ -1,16 +0,0 @@
:: this mark is used to receive incoming oauth2 tokens that we use to poke our %gall server
::
:::: /hook/door/do-auth/mar
::
/? 310
!:
|_ cod=cord
::
++ grab :: converter arm
|%
++ noun ,@t :: clam from noun
++ json (cork (ot authcode/so platform/so ~):jo need) :: (need (so:jo jon))
--
--

View File

@ -1,9 +0,0 @@
!:
|_ cod=cord
::
++ grab :: converter am
|%
++ noun ,@t :: clam from noun
++ json (cork (ot secret/so platform/so ~):jo need) :: (need (so:jo jon))
--
--

View File

@ -6,7 +6,7 @@
::
++ grow :: convert to
|%
++ hymn ;html:(head:title:"Untitled" body:"+{own}") :: convert to %hymn
++ hymn ;html:(head body:"+{own}") :: convert to %hymn
++ html (crip (poxo hymn)) :: convert to %html
++ mime [/text/html (taco html)] :: convert to %mime
++ front ~ :: no frontmatter

View File

@ -1,21 +0,0 @@
:: probly
:::: /hoon/core/eot/pro
::
/? 314
::
:::: compute
::
|_ otf=@
::
++ grow :: convert to
|%
++ mime :: convert to %mime
[/font/eot (taco otf)]
--
++ grab
|%
++ mime |=([p=mite q=octs] q.q)
++ noun ,@
--
++ grad %mime
--

View File

@ -1 +0,0 @@
|*(* ~)

View File

@ -1,9 +0,0 @@
::
:::: /hoon/hiss/mar
::
/? 314
/+ http
|_ hiss
::
++ grab |% ++ httpreq request-to-hiss:http
-- --

View File

@ -1,51 +0,0 @@
::
:::: /hoon/hook/mar
::
/? 314
!:
|_ own=@t
::
++ grow :: convert to
|%
++ mime [/text/x-hoon (taco own)] :: convert to %mime
++ elem :: convert to %html
;div:pre(urb_codemirror "", mode "hoon"):"{(trip own)}"
:: =+ gen-id="src-{<`@ui`(mug own)>}"
:: ;div
:: ;textarea(id "{gen-id}"):"{(trip own)}"
:: ;script:"""
:: CodeMirror.fromTextArea(
:: window[{<gen-id>}],
:: \{lineNumbers:true, readOnly:true}
:: )
:: """
:: ==
++ hymn
:: ;html:(head:title:"Source" "+{elem}")
;html
;head
;title:"Source"
;script@"//cdnjs.cloudflare.com/ajax/libs/codemirror/4.3.0/codemirror.js";
;script@"/lib/syntax/hoon.js";
;link(rel "stylesheet", href "//cdnjs.cloudflare.com/ajax/libs/".
"codemirror/4.3.0/codemirror.min.css");
;link/"/lib/syntax/codemirror.css"(rel "stylesheet");
==
;body
;textarea#src:"{(trip own)}"
;script:'CodeMirror.fromTextArea(src, {lineNumbers:true, readOnly:true})'
==
==
++ txt (lore (cat 3 own '\0a'))
--
++ grab
|% :: convert from
++ mime |=([p=mite q=octs] q.q)
++ noun ,@t :: clam from %noun
++ txt
|= wan=wain
=+ (role wan)
(end 3 (dec (met 3 -)) -)
--
++ grad %txt
--

View File

@ -1,9 +0,0 @@
::
:::: /hoon/core/httpreq/pro
::
/? 314
/+ http
::
|_ req=request:http
++ grow |% ++ tank >req<
-- --

View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/mess/mar
::
/? 314
/- mess
|_ zig=mess
::
++ grab
|%
++ noun mess :: clam from %noun
--
--

View File

@ -1,15 +0,0 @@
:: this mark is used to receive incoming oauth2 refresh/access tokens
::
:::: /hoon/oauth-tokens/mar
::
/? 310
!:
|_ [tok=@t ref=@t]
::
++ grab :: converter arm
|%
++ noun ,[@t @t] :: clam from noun
++ json (corl need (ot 'access_token'^so 'refresh_token'^so ~):jo)
--
--

View File

@ -1,15 +0,0 @@
:: this mark is used to receive incoming oauth2 tokens that we use to poke our %gall server
::
:::: /hoon/oauth2-code/mar
::
/? 310
!:
|_ cod=cord
::
++ grab :: converter arm
|%
++ noun ,@t :: clam from noun
++ json (cork so:jo need) :: (need (so:jo jon))
--
--

View File

@ -1,20 +0,0 @@
::
:::: /hoon/core/otf/pro
::
/? 314
::
:::: compute
::
|_ otf=mime
::
++ grow :: convert to
|%
++ mime otf :: convert to %mime
--
++ grab
|%
++ mime |=([mite p=octs] [/font/otf p])
++ noun ^mime
--
++ grad %mime
--

View File

@ -1,14 +0,0 @@
::
:::: /hoon/core/json/mar
::
/? 314
::
:::: compute
::
|_ jon=json
::
++ grow |% ++ mime :: convert to %mime
[/text/'paste-new+json' (tact (pojo jon))]
--
++ grab |% ++ noun json :: clam from %noun
-- --

View File

@ -1,16 +0,0 @@
::
:::: /hoon/core/styl/pro
::
/? 314
|_ mud=@t
++ grow
|%
++ mime [/text/styl (taco mud)]
--
++ grab
|%
++ mime |=([p=mite q=octs] q.q)
++ noun ,@t
--
++ grad %mime
--

View File

@ -1,14 +0,0 @@
::
:::: /hoon/core/hymn/mar
::
/? 314
|_ own=manx
::
++ grow :: convert to
|%
++ html (crip (poxo own)) :: convert to %html
++ mime [/text/html (taco html)] :: convert to %mime
--
++ grab |% :: convert from
++ noun manx :: clam from %noun
-- --

View File

@ -1 +0,0 @@
|_ tape ++ grab |% ++ noun tape -- --

View File

@ -2,7 +2,6 @@
:::: /hoon/urb/mar
::
/? 314
:: /= dep /$ |=([^ but=path] `@uvH`?>(?=([%dep @ ~] but) (slav %uv i.t.but)))
!:
|_ own=manx
::
@ -14,20 +13,8 @@
++ grab
|% :: convert from
++ noun manx :: clam from %noun
:: ++ tree-hymn :: inject into %hymn
:: |= old=manx old :: moved to %eyre
:: XX in ren/
:: ~| hymn//mal-formed
:: :: ~| old
:: ?> ?=([[%html ~] [[%head ~] *] [[%body ~] ^] ~] old) :: XX static
:: :: =+ bek=(sa (turn (turn dep) |=(a=beam (tope a(s ~)))))
:: %_ old
:: c.i.c
:: :- ;meta(charset "utf-8", urb_injected "");
:: ?~ dep c.i.c.old
:: :- ;script@"/~/on/{<dep>}.js";
:: c.i.c.old
:: ==
:: conversion from hymn is handled specially by %eyre,
:: which injects dependency information
:: ++ hymn !! :: inject into %hymn
--
--

View File

@ -1,18 +0,0 @@
::
:::: /hoon/core/user/mar
::
/? 314
/- user
|_ use=user
::
++ grab :: convert from
|%
++ noun user :: clam from %noun
--
++ grow
|%
++ json
%- jobe
~[[%dir [%s -.use]] [%ship (jape <p.p.use>)] [%name [%s q.p.use]]]
--
--

View File

@ -1,28 +0,0 @@
::
:::: /hoon/core/users/pro
::
/? 314
/- users
!:
|_ use=users
::
++ grab :: convert from
|%
++ noun users :: convert from %noun
--
++ grow
|%
++ json
%+ joba
%users
:- %a
%+ turn
use
|=
[p=@p q=@t]
%- jobe
~[[%ship (jape <p>)] [%name [%s q]]]
++ mime
[/text/json (tact (pojo json))]
--
--

View File

@ -1 +0,0 @@
|=(~ ~)

View File

@ -1,20 +0,0 @@
::
:::: /hoon/core/otf/pro
::
/? 314
::
:::: compute
::
|_ wof=mime
::
++ grow :: convert to
|%
++ mime wof :: convert to %mime
--
++ grab
|%
++ mime |=([mite p=octs] [/application/font-woff p])
++ noun ^mime
--
++ grad %mime
--

View File

@ -1,12 +0,0 @@
::
:::: /hoon/core/save/mar
::
!:
|_ [typ=?(%hoon %md %txt) txt=@t]
++ grab
|%
++ noun ,[?(%hoon %md %txt) @t]
++ json
(corl need =>(jo (ot typ/(ci (soft ?(%hoon %md %txt)) so) txt/so ~)))
--
--

View File

@ -1,3 +0,0 @@
/= all /; flop /^ (list (pair time ,*)) /@ /mime/
^- json
?~(all ~ (joba %u s/(scot %da p.i.all)))

View File

@ -1,35 +0,0 @@
:: Talk log front-end
::
:::: /hoon/hymn/talklog/ren
::
/? 310
/= mez
/; pojo
/; |=(a=(list ,[@ p=json]) =.(a (flop a) ?~(a [%a ~] p.i.a)))
/@ /json/
|%
++ cdnj |=(a=tape ;script(src "//cdnjs.cloudflare.com/ajax/libs/{a}");)
--
::
::::
::
^- manx
;html
;head
;title: Talk Log
;* %- turn :_ cdnj ^- wall
:~ "jquery/2.1.1/jquery.min.js"
"lodash.js/2.4.1/lodash.min.js"
"react/0.13.0/react.js"
== ==
;body
;div#cont;
;script(type "text/javascript", src "/~/at/lib/js/urb.js");
;link/"/talk/main.css"(type "text/css", rel "stylesheet");
;script: window.MessageData = {mez}
;script@"js/MessagesComponent.coffee"(type "text/coffeescript");
;script@"js/util.coffee"(type "text/coffeescript");
;script@"js/main.coffee"(type "text/coffeescript");
;+ (cdnj "coffee-script/1.7.1/coffee-script.min.js")
==
==

View File

@ -1 +0,0 @@
,[mov=(mold) ~]

View File

@ -1 +0,0 @@
,[input=path output=path ~]

View File

@ -1 +0,0 @@
,[p=@t q=@ud ~]

View File

@ -1 +0,0 @@
,@

View File

@ -1 +0,0 @@
,[pax=path dat=@ ~]

View File

@ -1,5 +0,0 @@
$% [%do p=@t]
[%exp p=@t q=tank]
[%say p=@t]
==

View File

@ -1 +0,0 @@
,[input=path output=path ~]

View File

@ -1 +0,0 @@
,[(list ,@tas)]

View File

@ -1 +0,0 @@
,[pax=path ~]

View File

@ -1 +0,0 @@
,[syd=@tas her=@p sud=@tas ~]

View File

@ -1 +0,0 @@
,%hail

View File

@ -1,7 +0,0 @@
$: pax=path ::
$= jof ::
$% [%line p=cord] ::
[%res p=span] ::
[%cmd p=char] ::
[%type p=?] ::
== == ::

View File

@ -1,4 +0,0 @@
$: p=[p=cord q=prom r=cord]
q=(list cord)
r=(list ?(tank [%stem p=@da q=tank r=tank]))
==

View File

@ -1 +0,0 @@
,[her=@p num=?(~ [p=@ud ~])]

View File

@ -1 +0,0 @@
,[syd=@tas her=@p sud=@tas ~]

View File

@ -1,3 +0,0 @@
$% [%in p=[p=@p q=@t]]
[%out p=[p=@p q=@t]]
==

View File

@ -1 +0,0 @@
(list ,[p=@p q=@t])

View File

@ -1 +0,0 @@
,[~]

View File

@ -1,6 +0,0 @@
::
:::: /hoon/gate/down/sur
::
/? 314
/- markdown
down

View File

@ -1,6 +0,0 @@
$: %mess p=path
$= q
$% [%do p=@t]
[%exp p=@t q=tank]
[%say p=@t]
== ==

View File

@ -1,6 +0,0 @@
$% $: %mess p=@da q=ship
$= r
$% [%do p=@t]
[%exp p=@t q=tank]
[%say p=@t]
== == ==

View File

@ -1,8 +0,0 @@
$% $: %mess p=path
$= q
$% [%do p=@t]
[%exp p=@t q=tank]
[%say p=@t]
== ==
[%init p=ship q=path]
==

View File

@ -6121,12 +6121,24 @@ h2.advice {
color: #b1b7bd;
}
p.ship {
white-space: nowrap;
}
input#ship {
width: 66.7%;
}
.sig,
#ship,
#pass {
font-size: 2rem;
}
.sig {
margin-right: .3rem;
}
#pass {
width: 100%;
}

View File

@ -15,9 +15,9 @@ div.grams {
div.meta label {
background-color: #B1B7BD;
margin-right: 1rem;
height: 1rem;
width: 1rem;
margin-right: 0.9375rem;
height: 0.9375rem;
width: 0.9375rem;
text-align: center; }
div.meta label:before {
@ -49,6 +49,9 @@ div.meta h3 {
div.meta .time {
padding-right: 2rem; }
div.grams:first-of-type .gram {
margin-top: 0; }
div.gram.first {
margin-top: 1rem; }
@ -63,11 +66,7 @@ div.gram.same:hover div.meta {
padding-top: 1rem; }
.speech {
margin-left: 2rem; }
@media (max-width: 767px) {
div.meta > label {
margin-right: 9px; } }
margin-left: 1.875rem; }
div.gram label[data-glyph=">"],
div.gram label[data-glyph="="],
@ -184,7 +183,7 @@ input.action:focus:-ms-input-placeholder {
.audience,
.message {
margin-left: 2rem; }
margin-left: 1.875rem; }
.audience {
margin-bottom: 1rem; }

View File

@ -1,3 +1,11 @@
.col-md-10.body {
padding-left: 2.8125rem; }
@media (max-width: 767px) {
.col-md-10.body {
margin-top: 0.9375rem;
padding-left: 0.9375rem; } }
img.logo {
height: 2rem;
width: 2rem; }
@ -52,6 +60,9 @@ img.logo.first {
.nav.container {
margin-left: -570px; } }
#head .loading {
display: none; }
.nav.container .loading {
padding-top: 3rem;
display: block; }
@ -173,7 +184,7 @@ img.logo.first {
margin-right: .6rem; }
.icon .home {
margin: 6px 9px 12px 0;
margin: 6px 0.9375rem 12px 0;
width: 24px;
height: 24px;
border-radius: 50%;
@ -357,10 +368,14 @@ img.logo.first {
left: inherit;
top: -100%;
padding-top: 0.9375rem;
padding-bottom: 3.75rem;
padding-bottom: 2.8125rem;
-webkit-transition: top 0.3s ease-in-out;
-moz-transition: top 0.3s ease-in-out;
transition: top 0.3s ease-in-out; }
.menu .menu.depth-1 .contents,
.menu .menu.depth-2 .contents {
border-left: 0;
border-bottom: 2px solid #B1B7BD; }
.menu .close {
margin-top: 0; }
.menu.open .contents {