/-  tp=trill-post, tlonc=tlon-channels, polls
|%
+$  action
$%  [%add p=post:tp]
    [%del p=id:tp]
    :: approve comments?
    [%add-board name=@t]
    [%del-board name=@t]
==
+$  kaji-req
$%  [%board-redi =post:tp]
    [%blog-redi =post:tp]
    [%redi url=@t]
    [%tv-chat p=@t q=post:tp]
    [%radio-chat p=@p q=*]
    [%chat-msg p=flag:tlonc q=memo:tlonc]
==
+$  state  state-0
+$  tags-table   (map @t pidmap)
+$  pathmap   (map path pid:tp)
+$  threadsf   ((mop pid:tp thread:tp) ggth:tp)  
+$  pidmap    ((mop pid:tp pid:tp) ggth:tp)  
+$  external  ((mop esrc epost) extc)
++  erm       ((on id:tp post:tp) gth)
+$  esrc
$:  time=@da
    id=@t  :: whatever
==
+$  epost
  $:  =pid:tp
      url=@t
      service=@t
      json=@t
==
++  extc  |=  [a=esrc b=esrc]  (gth time.a time.b)
::  in active threads the pid is the pid of the last reply
+$  state-0
$:  %0
    :: all data here. flat structure. fk'it
    feed=gfeed:tp
    threads=threadsf
    active-threads=pidmap  :: same as above but ordered by last reply
    paths=pathmap
    tags=tags-table
    tv=tv-table
    polls=polls-table
    notifications=hark-table
    external=(map @t external)  ::  twitter etc, tagged or named
==
+$  tv-table
  $:  urbit=(map @p urbit-radio)
      here=(map @t bstv)
  ==
+$  hark-table  (map @p t-hark)
+$  t-hark
  $:  last-online=@da
      tracking=(map pid:tp post:tp)
  ==
+$  polls-table  (map pid:tp poll:polls)
+$  bstv
  $:  name=@t
      owner=@p
      current=[playing=@t started=@da]  :: should point to the schedule
      schedule=(map @da tv-station)
  ==
+$  tv-station
  $:  description=cord
      src=cord  :: source file
      started=@da
      ended=(unit @da)
      viewers=(map @p (list presence))
      chat=(list post:tp)
      perms=*
  ==
+$  presence  [came=@da left=@da]
+$  twr  $%([%our name=@t owner=@p tv=tv-station] [%urb name=@t owner=@p p=urbit-radio])
+$  urbit-radio
  $:
  description=cord
  location=ship
  time=@da
  viewers=@ud
  ==
+$  radio-event
  $%  [%put p=urbit-radio]
      [%remove =ship]
      [%request ~]
      [%response minitowers=(map ship urbit-radio)]
  ==

+$  admin
$:  banned=(set address:eyre)
    settings=(map @p setting)
==
+$  setting
$:  thing=*
==

::  fetching stuff, shouldn't be here really but whatever
+$  section  $?(%blog %comments %chat %threads %replies)
+$  chat-page  [p=scan:tlonc older=(unit @da) newer=(unit @da) count=@ud]
+$  search-res  $%([%chat chat-page] [%trill search-page])
+$  search-page
  $:  res=(list post-snip)
      newer=cursor:tp
      older=cursor:tp
  ==
+$  post-snip
  $:  fn=full-node:tp
      snip=@t
  ==

--