permit persistence of talk stations

ape/talk.hoon

@@ -1758,12 +1758,23 @@
   =^  moz  +>.$  ra-abet:(~(ra-cancel ra ost.hid ~) src.hid pax)
   [moz +>.$(shells (~(del by shells) ost.hid))]
 ::
-::++  poke-bit
-::  |=  [~]
-::  ^-  (quip move +>)
-::  :_  +>.$
-::  =+  paf=/(scot %p our.hid)/try/(scot %da now.hid)/talk/backlog/jam
-::  [ost.hid %info /jamfile our.hid (foal paf (jam +<+.+>.$))]~
+++  poke-save
+  |=  man=span
+  ^-  (quip move +>)
+  :_  +>.$
+  =+  paf=/(scot %p our.hid)/home/(scot %da now.hid)/talk/[man]/jam
+  =+  grams:(~(got by stories) man)
+  [ost.hid %info /jamfile our.hid (foal paf [%jam !>((jam -))])]~
+::
+++  poke-load
+  |=  man=span
+  =+  ^=  grams
+      %-  (hard (list telegram))
+      %-  cue
+      %-  (hard ,@)
+      .^(%cx /(scot %p our.hid)/home/(scot %da now.hid)/talk/[man]/jam)
+  =+  toy=(~(got by stories) man)
+  [~ +>.$(stories (~(put by stories) man toy(grams grams, count (lent grams))))]
 ::
 ++  prep
   |=  [old=(unit house)]

mar/jam.hoon

@@ -0,0 +1,16 @@
+::
+::::  /hoon/core/jam/mar
+  ::
+!:
+|_  mud=@
+++  grow
+  |%
+  ++  mime  [/application/octet-stream (taco mud)]
+  --
+++  grab
+  |%                                                    ::  convert from
+  ++  mime  |=([p=mite q=octs] q.q)
+  ++  noun  ,@                                          ::  clam from %noun
+  --
+++  grad  %mime
+--

mar/load.hoon

@@ -0,0 +1,10 @@
+::
+::::  /hoon/core/load/mar
+  ::
+!:
+|_  man=span
+++  grab
+  |%                                                    ::  convert from
+  ++  noun  span                                        ::  clam from %noun
+  --
+--

mar/save.hoon

@@ -0,0 +1,10 @@
+::
+::::  /hoon/core/save/mar
+  ::
+!:
+|_  man=span
+++  grab
+  |%                                                    ::  convert from
+  ++  noun  span                                        ::  clam from %noun
+  --
+--