shrub/pkg/arvo/lib/hood/write-mall.hoon

::  File writer module
::
::::  /hoon/write/hood/lib
  ::
/?    310
=,  format
=*  as-octs  as-octs:mimes:html
=,  space:userlib
|%
+$  part  {$write $0 pith}           :: no state
+$  pith  ~
--
::
::::
  ::
|%
++  data  $%({$json json} {$mime mime})
--
::
::::
  ::
|=  {bowl:mall part}
=*  par  +<+
|_  moz/(list card:agent:mall)
++  abet  [(flop moz) `part`par]
++  emit
  |=  =card:agent:mall
  %_(+> moz :_(moz card))
::
++  beak-now  byk(r [%da now])
++  poke-wipe
  |=  sup/path  ^+  abet                ::  XX determine extension, beak
  =+  ext=%md
  ?~  (file (en-beam beak-now [ext sup]))
    ~|(not-found+[ext `path`(flop sup)] !!)
  =-  abet:(emit %pass /write %arvo %c %info -)
  (fray (en-beam beak-now [ext sup]))
::
++  poke-tree
  |=  {sup/path mim/mime}  ^+  abet     ::  XX determine extension, beak
  (poke--data [`%md (flop sup)] %mime mim)
::
++  poke-paste
  |=  {typ/?($hoon $md $txt) txt/@t}  ^+  abet
  (poke--data [`typ /web/paste/(scot %da now)] %mime / (as-octs txt))
::
++  poke-comment
  |=  {sup/path him/ship txt/@t}  ^+  abet
  =+  pax=(welp (flop sup) /comments/(scot %da now))
  =.  txt
    %+  rap  3  :~
      '## `'  (scot %p him)  '`'
      '\0a'  txt
    ==
  (poke--data [`%md pax] %mime / (as-octs txt))
::
++  poke-fora-post
  |=  {sup/path him/ship hed/@t txt/@t}  ^+  abet
  =+  pax=(welp (flop sup) /posts/(cat 3 (scot %da now) '~'))
  =.  txt
    %-  crip
    """
    ---
    type: post
    date: {<now>}
    title: {(trip hed)}
    author: {<him>}
    navsort: bump
    navuptwo: true
    comments: reverse
    ---

    {(trip txt)}
    """
  (poke--data [`%md pax] %mime / (as-octs txt))
::
++  ames-secret
  ^-  @t
  =-  (crip +:<.^(@p %j pax)>)
  pax=/(scot %p our)/code/(scot %da now)/(scot %p our)
::
++  poke-sec-atom
  |=  {hot/host:eyre dat/@}
  ?>  ?=(%& -.hot)
  =.  p.hot  (scag 2 p.hot)      :: ignore subdomain
  =.  dat  (scot %uw (en:crub:crypto ames-secret dat))
  (poke--data [`%atom [%sec p.hot]] %mime / (as-octs dat))
::
++  poke--data
  |=  {{ext/(unit @t) pax/path} dat/data}  ^+  abet
  ?~  ext  $(ext [~ -.dat])
  =+  cay=?-(-.dat $json [-.dat !>(+.dat)], $mime [-.dat !>(+.dat)])
  ?:  =(u.ext -.dat)
    (made pax now [%complete %success %$ cay])
  =<  abet
  %-  emit  :*
    %pass  write+pax  %arvo  %f
    %build
      live=%.n                ::  XX defer %nice
      ^-  schematic:ford   ::  SYNTAX ERROR AT START OF LINE?
      =/  =beak  beak-now
      [%cast [p q]:beak u.ext [%$ cay]]
  ==
::
++  poke
  |=  [=mark =vase]
  ?+  mark  ~|([%poke-write-bad-mark mark] !!)
    %write-sec-atom  (poke-sec-atom (need !<([host:eyre @] vase)))
    %write-paste     (poke-paste (need !<([?(%hoon %md %txt) @t] vase)))
    %write-tree      (poke-tree (need !<([path mime] vase)))
    %write-wipe      (poke-wipe (need !<(path vase)))
  ==
::
++  made
  |=  [pax=wire date=@da result=made-result:ford]
  ^+  abet
  ::  |=  {pax/wire @ res/gage:ford}  ^+  abet
  :: ?.  =(our src)
  ::   ~|(foreign-write/[our=our src=src] !!)
  ?:  ?=(%incomplete -.result)
    (mean tang.result)
  ::
  =/  build-result  build-result.result
  ::
  ?:  ?=([%error *] build-result)
    (mean message.build-result)
  ::
  =/  =cage  (result-to-cage:ford build-result)
  ::
  =-  abet:(emit %pass /write %arvo %c %info -)
  ::
  (foal :(welp (en-beam beak-now ~) pax /[-.cage]) cage)
::
++  take                                              ::
  |=  [=wire =sign-arvo]
  %+  made  wire
  ?>  ?=(%made +<.sign-arvo)
  +>.sign-arvo
::
++  take-agent
  |=  [=wire =gift:agent:mall]
  ~|([%write-bad-take-agent wire -.gift] !!)
--