Merge pull request #1359 from urbit/chat-scroll

Chat scroll

bin/brass.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:e534cb57dc8b2bee35004d843c7e0b2d028ba699e86d47a58efac4b065ce2f1b
-size 6047224
+oid sha256:8f6e93cb3ee5fcb0970851bd10d2d2a640ff968292d147c35385623b86570296
+size 6662042

bin/ivory.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:e0fc64a80074ed3c62fa3f9f5c85ee606bf87e063b2f1dee8a110d7750cf8c76
-size 4232444
+oid sha256:42d7fae92d11b3dbc3ee9aaa1e2edc5328f308c047dcf126b6cd661862904782
+size 4352384

bin/solid.pill

@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:7fb2efecc5b3fb277e0d634b12afdda6cf9ffab75ac351fefbd7dfa393f7c5cd
-size 9299426
+oid sha256:d46350623e56ebb6fa15761632923b99339088278d87e221657d64c3c5d501e3
+size 9349402

pkg/arvo/app/chat/css/index.css

@@ -141,6 +141,12 @@ h2 {
   line-height: 24px;
 }
 
+.body-small {
+  font-size: 12px;
+  line-height: 16px;
+  color: #f7f7f7;
+}
+
 .label-regular {
   font-size: 14px;
   line-height: 24px;

pkg/arvo/app/timer.hoon

@@ -1,125 +0,0 @@
-/+  *server
-/=  tile-js
-  /^  octs
-  /;  as-octs:mimes:html
-  /:  /===/app/timer/js/tile
-  /|  /js/
-      /~  ~
-  ==
-/=  timer-png
-  /^  (map knot @)
-  /:  /===/app/timer/img  /_  /png/
-=,  format
-::
-|%
-:: +move: output effect
-::
-+$  move  [bone card]
-:: +card: output effect payload
-::
-+$  poke
-  $%  [%launch-action [@tas path @t]]
-  ==
-::
-+$  card
-  $%  [%poke wire dock poke]
-      [%http-response =http-event:http]
-      [%connect wire binding:eyre term]
-      [%diff %json json]
-      [%wait wire @da]
-      [%rest wire @da]
-  ==
-::
---
-::
-|_  [bol=bowl:gall tim=@da]
-::
-++  this  .
-::
-++  bound
-  |=  [wir=wire success=? binding=binding:eyre]
-  ^-  (quip move _this)
-  [~ this]
-::
-++  prep
-  |=  old=(unit tim=@da)
-  ^-  (quip move _this)
-  =/  launcha  [%launch-action [%timer /tile '/~timer/js/tile.js']]
-  :-
-  :~
-    [ost.bol %connect / [~ /'~timer'] %timer]
-    [ost.bol %poke /timer [our.bol %launch] launcha]
-  ==
-  ?~  old
-    this
-  %=  this
-    tim  tim.u.old
-  ==
-::
-++  peer-tile
-  |=  pax=path
-  ^-  (quip move _this)
-  ?:  =(tim *@da)
-    [[ost.bol %diff %json [%s '']]~ this]
-  [[ost.bol %diff %json [%s (scot %da tim)]]~ this]
-::
-++  send-tile-diff
-  |=  jon=json
-  ^-  (list move)
-  %+  turn  (prey:pubsub:userlib /tile bol)
-  |=  [=bone ^]
-  [bone %diff %json jon]
-::
-++  poke-json
-  |=  jon=json
-  ^-  (quip move _this)
-  ?.  ?=(%s -.jon)
-    [~ this]
-  =/  str/@t  +.jon
-  ?:  =(str 'start')
-    =/  data/@da  (add now.bol ~m20)
-    :_  this(tim data)
-    [[ost.bol %wait /timer data] (send-tile-diff [%s (scot %da data)])]
-  ?:  =(str 'stop')
-    :_  this(tim *@da)
-    [[ost.bol %rest /timer tim] (send-tile-diff [%s ''])]
-  [~ this]
-::
-++  poke-handle-http-request
-  %-  (require-authorization:app ost.bol move this)
-  |=  =inbound-request:eyre
-  ^-  (quip move _this)
-  =/  request-line  (parse-request-line url.request.inbound-request)
-  =/  back-path  (flop site.request-line)
-  =/  name=@t
-    =/  back-path  (flop site.request-line)
-    ?~  back-path
-      ''
-    i.back-path
-  ::
-  ?+  site.request-line
-    [[ost.bol %http-response not-found:app]~ this]
-  ::
-  ::  tile
-  ::
-      [%'~timer' %js %tile ~]
-    [[ost.bol %http-response (js-response:app tile-js)]~ this]
-  ::
-  ::  images
-  ::
-      [%'~timer' %img *]
-    =/  img  (as-octs:mimes:html (~(got by timer-png) `@ta`name))
-    :_  this
-    [ost.bol %http-response (png-response:app img)]~
-  ==
-::
-++  wake
-  |=  [wir=wire err=(unit tang)]
-  ^-  (quip move _this)
-  ?~  err
-    :-  (send-tile-diff [%s 'alarm'])
-    this(tim *@da)
-  ~&  err
-  [~ this]
-::
---

pkg/arvo/lib/hood/drum.hoon

@@ -95,7 +95,6 @@
       [%home %launch]
       [%home %chat]
       [%home %publish]
-      [%home %timer]
       [%home %clock]
       [%home %weather]
   ==

pkg/arvo/sys/vane/eyre.hoon

@@ -424,7 +424,7 @@
     ;body
       ;div#main
         ;div#inner
-          ;h1#topborder:"Modulo"
+          ;h1#topborder:"Welcome"
           ;h1:"{(scow %p our)}"
           ;form(action "/~/login", method "post", enctype "application/x-www-form-urlencoded")
             ;input(type "password", name "password", placeholder "passcode", autofocus "true");
@@ -1382,8 +1382,10 @@
         =/  channel-wire=path
           /channel/subscription/[channel-id]/(scot %ud subscription-id.i.requests)
         ::
-        =/  subscriptions
-          subscriptions:(~(got by session.channel-state.state) channel-id)
+        =/  usession  (~(get by session.channel-state.state) channel-id)
+        ?~  usession
+          $(requests t.requests)
+        =/  subscriptions  subscriptions:u.usession
         ::
         ?~  maybe-subscription=(~(get by subscriptions) channel-wire)
           ::  the client sent us a weird request referring to a subscription
@@ -1567,8 +1569,11 @@
       |=  channel-id=@t
       ^-  [(list move) server-state]
       ::
-      =/  session
-        (~(got by session.channel-state.state) channel-id)
+      =/  usession=(unit channel)
+        (~(get by session.channel-state.state) channel-id)
+      ?~  usession
+        [~ state]
+      =/  session=channel  u.usession
       ::
       :_  %_    state
               session.channel-state

pkg/arvo/tests/sys/vane/eyre.hoon

@@ -2033,7 +2033,7 @@
                 %start
                 :-  200
                 :~  ['content-type' 'text/html']
-                    ['content-length' '1751']
+                    ['content-length' '1752']
                 ==
                 [~ (login-page:http-server-gate `'/~landscape/inner-path' ~nul)]
                 complete=%.y