urbit/main/app/foobug/core.hoon

!:
=>  |%
    ++  axle
      $%  [%0 p=@ud]   
      ==
    ++  gult
      $%  [%json p=json]
          ::  [%hymn p=manx]
      ==
    ++  gilt
      $%  ::  [%json p=json]
          [%hymn p=manx]
      ==
    ++  gift
      $%  [%rust gilt]
          [%rasp gult]
      ==
    ++  move  ,[p=bone q=[%give p=gift]]
    --
|=  *
|_  [hid=hide vat=axle]
++  page
  ^-  manx
  ;html
    ;head
      ;title: Foobug!
    ==
    ;body
      ;p: Word: {<p.vat>}.
      ;button(onclick "goof()"): Goof!
      ;script
        ; var c = 0;
        ; var d = 1;
        ; var x = 0;
        ; 
        ; function pickup() {
        ;   xhr = new XMLHttpRequest();
        ;
        ;   console.log("WTF???");
        ;   xhr.open("GET", "/zod/goe/foobug/"+port+"/frog/"+d);
        ;   xhr.onload = function() {
        ;     console.log("pickup");
        ;     console.log(this)
        ;     change(JSON.parse(this.responseText))
        ;     update();
        ;     d++;
        ;     pickup();
        ;   }
        ;   xhr.send();
        ; }
        ;
        ; function dude() {
        ;   xhr = new XMLHttpRequest();
        ;
        ;   xhr.open("POST", "/zod/pos/foobug/"+port+"/frog/goof");
        ;   xhr.setRequestHeader("content-type", "text/json")
        ;   xhr.onload = function() {
        ;     console.log("dude");
        ;     console.log(this)
        ;     change(JSON.parse(this.responseText))
        ;     update();
        ;     pickup();
        ;   }
        ;   xhr.send("{\"a\":1}")
        ; }
        ; dude();
        ;
        ; function change(jon) {
        ;   x = jon.x;
        ; }
        ;
        ; function update() {
        ;   document.getElementsByTagName("p")[0].innerHTML = "WORD: " + x;
        ; }
        ;
        ; function goof() {
        ;   xhr = new XMLHttpRequest();
        ;   xhr.onload = function() {
        ;     console.log("hi");
        ;     console.log(arguments)
        ;     c++
        ;   }
        ;   xhr.open("POST", 
        ;     "/zod/pom/foobug/"+port+"/"+c)
        ;   xhr.setRequestHeader("content-type", "text/json")
        ;   xhr.send("{\"a\":1}")
        ; }
      ==
    ==
  ==
:: 
++  peer
  |=  [ost=bone you=ship pax=path]
  ^-  [(list move) _+>]
  [[ost %give %rust %hymn page]~ +>]
::
++  poke-json
  |=  [ost=bone you=ship jon=json]
  ^-  [(list move) _+>]
  ~&  [%poke [%state p.vat] ost you jon]
  :_  +>(p.vat +(p.vat))
  :~  [ost %give %rasp %json jon]
  ==
--