shrub/pkg/garden/lib/hark/store.hoon

/-  sur=hark-store
^?
=,  sur
=<  [. sur]
|%

++  enjs
  =,  enjs:format
  |%
  ++  update
    |=  upd=^update
    ^-  json
    |^
    %+  frond  -.upd
    ?+  -.upd  a+~
        %added      (notification +.upd)
        %timebox  (timebox +.upd)
        %more     (more +.upd)
        %read-each     (read-each +.upd)
        %read-count  (place +.upd)
        %unread-each  (read-each +.upd)
        %unread-count  (unread-count +.upd)
        %seen-index    (place +.upd)
        %all-stats     (all-stats +.upd)
        ::%read-note   (index +.upd)
        ::%note-read   (note-read +.upd)
        :: %archive (notif-ref +.upd)
    ==
    ::
    ++  note-read
      |=  *
      (pairs ~)
    ::
    ++  all-stats
      |=  places=(map ^place ^stats)
      ^-  json 
      :-  %a
      ^-  (list json)
      %+  turn  ~(tap by places)
      |=  [p=^place s=^stats]
      %-  pairs
      :~  stats+(stats s)
          place+(place p)
          
      ==
    ::
    ++  stats
      |=  s=^stats
      ^-  json
      %-  pairs
      :~  each+a+(turn ~(tap in each.s) (cork spat (lead %s)))
          last+(time last.s)
          count+(numb count.s)
      ==
    ++  more
      |=  upds=(list ^update)
      ^-  json
      a+(turn upds update)
    ::
    ++  place
      |=  =^place
      %-  pairs
      :~  desk+s+desk.place
          path+s+(spat path.place)
      ==
    ::
    ++  bin
      |=  =^bin
      %-  pairs
      :~  place+(place place.bin)
          path+s+(spat path.bin)
      ==
    ++  notification
      |=  ^notification
      ^-  json
      %-  pairs
      :~  time+s+(scot %ud date)
          bin+(^bin bin)
          body+(bodies body)
      ==
    ++  bodies
      |=  bs=(list ^body)
      ^-  json
      a+(turn bs body)
    ::
    ++  contents
      |=  cs=(list ^content)
      ^-  json
      a+(turn cs content)
    ::
    ++  content
      |=  c=^content
      ^-  json
      %+  frond  -.c
      ?-  -.c
        %ship  s+(scot %p ship.c)
        %text  s+cord.c
      ==
    ::
    ++  body
      |=  ^body
      ^-  json
      %-  pairs
      :~  title+(contents title)
          content+(contents content)
          time+s+(scot %ud time)
          link+s+(spat link)
      ==
    :: 
    ++  binned-notification
      |=  [=^bin =^notification]
      %-  pairs
      :~  bin+(^bin bin)
          notification+(^notification notification)
      ==
    ::
    ++  timebox
      |=  [tim=(unit @da) l=(list [^bin ^notification])]
      ^-  json
      %-  pairs
      :~  time+`json`?~(tim ~ s+(scot %ud u.tim))
          :-  %notifications  
          ^-  json
          :-  %a
          %+  turn  l
          |=  [=^bin =^notification]
          ^-  json
          (binned-notification bin notification)
      ==
    ::
    ++  read-each
      |=  [p=^place pax=^path]
      %-  pairs
      :~  place+(place p)
          path+(path pax)
      ==
    ::
    ++  unread-count
      |=  [p=^place inc=? count=@ud]
      %-  pairs
      :~  place+(place p)
          inc+b+inc
          count+(numb count)
      ==
    --
  --
++  dejs
  =,  dejs:format
  |%
  ::
  ++  place
    %-  ot
    :~  desk+so
        path+pa
    ==
  ::
  ++  bin
    %-  ot
    :~  path+pa
        place+place
    ==
  ::
  ++  read-each
    %-  ot
    :~  place+place
        path+pa
    ==
  ::
  ::  parse date as @ud
  ::    TODO: move to zuse
  ++  sd
    |=  jon=json 
    ^-  @da
    ?>  ?=(%s -.jon)
    `@da`(rash p.jon dem:ag)

  ++  archive
    %-  ot
    :~  time+(mu sd)
        bin+bin
    ==
  ::
  ++  action
    ^-  $-(json ^action)
    %-  of
    :~  read-all+ul
        archive-all+ul
        seen+ul
        read-count+place
        read-each+read-each
        read-note+bin
    ==
  --
--