update dependencies for 411

full-desk/lib/strandio.hoon

@@ -197,6 +197,20 @@
     `[%done +>.sign-arvo.u.in.tin]
   ==
 ::
+++  take-near
+  |=  =wire
+  =/  m  (strand ,[spar:ames (unit (unit page))])
+  ^-  form:m
+  |=  tin=strand-input:strand
+  ?+    in.tin  `[%skip ~]
+      ~  `[%wait ~]
+    ::
+      [~ %sign * %ames %near ^ *]
+    ?.  =(wire wire.u.in.tin)
+      `[%skip ~]
+    `[%done +>.sign-arvo.u.in.tin]
+  ==
+::
 ++  take-poke-ack
   |=  =wire
   =/  m  (strand ,~)
@@ -335,7 +349,13 @@
   |=  [=wire =spar:ames]
   =/  m  (strand ,~)
   ^-  form:m
-  (send-raw-card %pass wire %arvo %a %keen spar)
+  (send-raw-card %pass wire %arvo %a %keen ~ spar)
+::
+++  keen-shut
+  |=  [=wire =spar:ames]
+  =/  m  (strand ,~)
+  ^-  form:m
+  (send-raw-card %pass wire %keen & spar)
 ::
 ++  sleep
   |=  for=@dr
@@ -470,7 +490,7 @@
   =/  m  (strand ,json)
   ^-  form:m
   ;<  =cord  bind:m  (fetch-cord url)
-  =/  json=(unit json)  (de-json:html cord)
+  =/  json=(unit json)  (de:json:html cord)
   ?~  json
     (strand-fail %json-parse-error ~)
   (pure:m u.json)
@@ -581,8 +601,9 @@
 ++  check-for-file
   |=  [[=ship =desk =case] =spur]
   =/  m  (strand ,?)
-  ;<  =riot:clay  bind:m  (warp ship desk ~ %sing %x case spur)
-  (pure:m ?=(^ riot))
+  ;<  =riot:clay  bind:m  (warp ship desk ~ %sing %u case spur)
+  ?>  ?=(^ riot)
+  (pure:m !<(? q.r.u.riot))
 ::
 ++  list-tree
   |=  [[=ship =desk =case] =spur]

full-desk/mar/hoon.hoon

@@ -8,20 +8,7 @@
 ++  grow                                                ::  convert to
   |%
   ++  mime  `^mime`[/text/x-hoon (as-octs:mimes:html 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"

full-desk/mar/txt.hoon

@@ -18,7 +18,6 @@
   =>  v=.
   |%
   ++  mime  =>  v  [/text/plain (as-octs (of-wain txt))]
-  ++  elem  =>  v  ;pre: {(trip (of-wain txt))}
   --
 ++  grad
   |%