urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

Script fixes.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-04-09 16:51:19 -07:00
parent d28162053e
commit 9178eba744
2 changed files with 39 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
arvo/eyre.hoon
View File

@ -505,10 +505,11 @@
++ funk :: functional request
|= [nep=@tas fur=(unit term) paw=(list ,@t) quy=quay]
^- (unit seam)
=+ won==(%n (rsh 3 2 nep))
%+ bind
^- (unit ,[logo tube])
=+ ^= zac ^- (unit ,[p=@ta q=path])
?: =(%n (rsh 3 2 nep))
?: won
[~ (scot %da now) paw]
?~ paw ~
=+ zac=(slay i.paw)
@ -527,7 +528,41 @@
==
|= [for=logo toe=tube]
^- seam
[%fun for toe(s (weld s.toe `path`~[~(rent co (flux nep quy))]))]
:^ %fun for
toe(s (weld s.toe `path`~[~(rent co (flux nep quy))]))
?. won ~
:_ ~
=- =+ pey=(cat 3 (end 3 2 nep) %v)
=+ ven=+((,@ (need (sky %cw p.toe q.toe r.toe ~))))
=+ ^= cal :/
"call('".
"/{(trip (rsh 3 1 p.toe))}".
"/{(trip pey)}".
"/{(scow %ud ven)}".
"/{(trip q.toe)}');"
~& [%ven ven %call cal]
[-.sac (weld `marl`+.sac `marl`[cal ~])]
^= sac
;script
; tries = 0;
; call = function(path) {
; xhr = new XMLHttpRequest();
; xhr.open('GET', path, true);
; xhr.addEventListener('load', function() {
; if(this.status !== 200) {
; return keep();
; }
; document.location.reload();
; });
; xhr.addEventListener('error', keep);
; xhr.addEventListener('abort', keep);
; xhr.send();
; }
; keep = function() {
; setTimeout(call,1000*tries);
; tries++;
; }
==
::
++ holy :: structured request
|= [pul=purl moh=moth]

37
arvo/zuse.hoon
View File

@ -1285,40 +1285,7 @@
?: ?=([[[%title *] *] *] zay)
[[i.zay ~] t.zay]
[~ zay]
=. q.twa ^- marl
?. =(%n (cut 3 [2 1] nep.piq)) q.twa
=- =+ pey=(cat 3 (end 3 2 nep.piq) %v)
=+ ven=+((,@ .^(%cw pos.piq)))
=+ ^= cal :/
"call('".
"/{+:(scow %p own.piq)}".
"/{(trip pey)}".
"/{(scow %ud ven)}".
"/{(trip q.pos.piq)}');"
~& [%ven ven %call cal]
(weld q.twa `marl`[[-.sac (weld `marl`+.sac `marl`[cal ~])] ~])
^= sac
;script
; tries = 0;
; call = function(path) {
; xhr = new XMLHttpRequest();
; xhr.open('GET', path, true);
; xhr.addEventListener('load', function() {
; if(this.status !== 200) {
; return keep();
; }
; document.location.reload();
; });
; xhr.addEventListener('error', keep);
; xhr.addEventListener('abort', keep);
; xhr.send();
; }
; keep = function() {
; setTimeout(call,1000*tries);
; tries++;
; }
==
[/html [/head p.twa] [/body q.twa] ~]
[/html [/head (sip p.twa)] [/body (sip q.twa)] ~]
::
++ give !: :: web synthesizer
|* yax=$+(epic *)
@ -2482,7 +2449,7 @@
$% :: [%app p=seep] :: application
:: [%con p=seer] :: console
[%det p=disc q=moat] :: load changes
[%fun p=term q=tube] :: functional
[%fun p=term q=tube r=(list manx)] :: functional
:: [%log p=seal] :: login
== ::
++ seat :: functional path