::  File writer
::
::::  /hoon+write+app
  ::
|_  {bowl $~}
++  beak-now  byk(r [%da now])
++  poke-json
  |=  jon/json
  =-  (poke--data (need (- jon.+)))
  =>  jo
  %-  ot  :~
    pax+(cu deft (su fel:stab))
    dat+(of json+some mime+(pe / (cu taco so)) ~)    ::  XX mite
  ==
::
++  poke-write-paste
  |=  {typ/?($hoon $md $txt) txt/@t}
  (poke--data [`typ /pub+paste+(scot %da now)] %mime / (taco txt))
::
++  poke--data
  |=  {{ext/(unit @t) pax/path} dat/$$({$json json} {$mime mime})}
  ?~  ext  $(ext [~ -.dat])
  =+  cay=?-(-.dat %json [-.dat !>(+.dat)], %mime [-.dat !>(+.dat)])
  ?:  =(u.ext -.dat)  (made pax ~ `cay)
  [[ost %exec pax our ~ beak-now %cast u.ext `cay]~ +>.$]  ::  XX defer %nice
::
++  made
  |=  {pax/wire @ res/gage}
  ?.  =(our src)
    ~|(foreign-write+[our=our src=src] !!)
  ?+  -.res  ~|(gage+-.res !!)
    $|  (mean p.res)
    $&  =-  [[ost %info / our -]~ +>.$]
        (foal :(welp (tope beak-now ~) pax /[-.p.res]) p.res)
  ==
--