reboot!

main/app/do/core.hook

@@ -11,7 +11,7 @@
 !:
 |%
 ++  droplet    
-$:  id=@  name=@t  memory=@ud  vcpus=@ud  disk=@ud  locked=?
+$:  id=@ud  name=@t  memory=@ud  vcpus=@ud  disk=@ud  locked=?
     created=@t  status=@t  backup-ids=(list ,@t)  snapshot-ids=(list ,@t)
     features=(list ,@t)  region=regi  image=img
     size=syze  size-slug=@t  networks=ntwrks  kernel=kern
@@ -84,6 +84,58 @@ $%  [%thou p=httr]
       'ssh_keys'^a/(turn ssh-keys |=(cord s/+<))  backups/?~(backups ~ b/u.backups)  ipv6/?~(ipv6 ~ b/u.ipv6)
       'user_data'^?~(user-data ~ s/u.user-data)  'private_networking'^?~(private-networking ~ b/u.private-networking)
   ==
+++  state-to-json
+  |=  a=(list droplet)
+  :-  %a
+  %+  turn  a
+  |=  droplet
+  ^-  json
+  %-  jobe
+  :~  id/`json`(jone id)
+      name/`json`s/name
+      vcpus/`json`(jone vcpus)
+      disk/`json`(jone disk)
+      locked/b/locked
+      created/s/created
+      status/s/status
+      backup-ids/a/(turn backup-ids |=(el=cord s/el))
+      snapshot-ids/a/(turn snapshot-ids |=(el=cord s/el))
+      features/a/(turn features |=(el=cord s/el))
+      =+  ^=  reg  
+      :~  name/s/name.region  slug/s/slug.region
+          sizes/a/(turn sizes.region |=(el=cord s/el))
+      ==
+      region/(jobe reg)
+      =+  ^=  im
+      :~  id/(jone id.image)  name/s/name.image  distribution/s/distribution.image
+          slug/s/slug.image  public/b/public.image
+          regions/a/(turn regions.image |=(el=cord s/el))
+          created-at/s/created-at.image  type/s/type.image
+          min-disk-size/(jone min-disk-size.image)
+      ==
+      image/(jobe im)
+      =+  ^=  sz
+      :~  memory/(jone memory.size)  price-monthly/s/price-monthly.size
+          price-hourly/s/price-hourly.size  disk/(jone disk.size)  vcpus/(jone vcpus.size)
+          slug/s/slug.size  transfer/s/transfer.size  available/b/available.size
+          regions/a/(turn regions.size |=(el=cord s/el))
+      ==
+      size/(jobe sz)
+      size-slug/s/size-slug
+      =+  ^=  nt
+          =+  ^=  vobj
+              |=  v
+              %-  jobe  :~
+                ip-address/s/ip-address  netmask/s/netmask
+                gateway/s/gateway        type/s/type
+              ==
+          :~  v4/[%a (turn v4.networks vobj)]
+              v6/[%a (turn v4.networks vobj)]
+          ==
+      networks/(jobe nt)
+      kernel/s/'kernel'
+      next-backup-window/s/'valid'
+  ==
 --
 !:
 |_  [hid=hide vat=axle]
@@ -117,13 +169,13 @@ $%  [%thou p=httr]
     :^  ost  %pass  pour-path
     :+  %e  %them
     `(unit hiss)`[~ request]
-++  prep  ,_`.                        ::  wipe state when app code is changed
+::++  prep  ,_`.                        ::  wipe state when app code is changed
 ::
 ++  peer
   |=  [ost=bone you=ship pax=path]
   ^-  [(list move) _+>.$]
   :_  +>.$
-  [ost %give %rush %json ~]~
+  [ost %give %rush %json (state-to-json drops.vat)]~
 ::
 ++  poke-oauth2-code
   |=  [ost=bone you=ship code=cord]
@@ -181,16 +233,32 @@ $%  [%thou p=httr]
     :+  [(create-droplet ost deets)]
       [ost %give %nice ~]
     ~
+  %reboot
+    =+  id=(need ((ot id/ni ~):jo act))
+    ~&  id
+    :+  (reboot-droplet ost id)
+      [%ost %give %nice ~]
+    ~
   ==
 ::
+++  reboot-droplet
+  |=  [ost=bone id=@ud]
+  =+  ^=  reboot  
+      :~  ost                 /reboot
+      ~[%digitalocean %api]   /v2/droplets/(scot %ud id)/actions
+      :-  %post
+      (jobe type/s/'reboot' ~)
+      (mo ['Content-Type' 'application/json' ~] ['Authorization' (cat 3 'Bearer ' access.toke.vat) ~] ~)
+      ==
+      (httpreq reboot)
+::
 ++  list-droplets
   |=  os=bone
-  =+  ^=  lis  :*
+  =+  ^=  lis
-      os                     /list
+      :~  os                 /list
       ~[%digitalocean %api]  /v2/droplets
       %get
       (mo ['Content-Type' 'application/json' ~] ['Authorization' (cat 3 'Bearer ' access.toke.vat) ~] ~)
-      ~
       ==
   (httpreq lis)
 ::
@@ -250,5 +318,10 @@ $%  [%thou p=httr]
       ~&  created/resp
       :_  +>.$
       [ost %give %nice ~]~
+  ::
+      %reboot
+    ~&  resp
+    :_  +>.$
+    [ost %give %nice ~]~
   ==
 --

main/pub/do/src/main.js

@@ -2,8 +2,42 @@ recl = React.createClass
 div = React.DOM.div
 a = React.DOM.a
 b = React.DOM.button
+hr = React.DOM.hr
+table = React.DOM.table
+th = React.DOM.th
+tr = React.DOM.tr
+td = React.DOM.td
 input = React.DOM.input
 
+Droplet = React.createClass({
+  deleteDroplet: function() {
+    urb.send({
+      appl: "do",
+      data: {action: 'delete',
+            id: this.props.id}})
+  },
+
+  rebootDroplet: function() {
+    urb.send({
+      appl: "do",
+      data: {action: 'reboot',
+            id: this.props.id}})
+  },
+
+  render: function() {
+    $this = this
+    kay = Object.keys(this.props)
+    kay = kay.filter(function(b){return b!="children"}) //  XX individually adress props
+  return div({},
+    b({id:this.props.id}, "delete"),
+    b({id:this.props.id,onClick:this.rebootDroplet}, "reboot"),
+    table({},
+      tr({},kay.map(function(k){return th({},k)})),
+      tr({},kay.map(function(k){return td({},JSON.stringify($this.props[k]))}))),
+    hr())
+  }
+})
+
 Page = recl({
   handleClick: function(){
     if(window.authcode.length !== ''){
@@ -71,12 +105,18 @@ Page = recl({
           input({id:"ipv6",placeholder:"ipv6 (boolean, optional)"}),
           input({id:"user-data",placeholder:" user-data string (optional)"}),
           input({id:"priv-networking",placeholder:"Private Networking (boolean, optional)"})
-        ])
+        ]),
+        div({},
+          this.props.droplets.map(Droplet)
+        )
       ])
     )
   }
 })
 
-mounted = React.render(Page({}), $("#container")[0])
+
+mounted = React.render(Page({droplets:[]}), $("#container")[0])
 urb.bind("/", function(err,d) {
+
+  mounted.setProps({droplets:d.data})
 return})