/-  boke, tp=trill-post, cnt=contact
/+  kaji, fetch-lib=fetch, plib=trill-utils, const=constants, sr=sortug, lib=boke
/=  index   /web/index
/=  tvp      /web/tv/tv
/=  subscribe   /web/subscribe
|_  [rl=req-line:kaji s=state:boke =bowl:gall]
+*  fetch  ~(. fetch-lib [s bowl])
    tv   ~(. tvp [s bowl])
++  eyre-bail   (error-response:kaji 404)
++  manx-bail   (error-page:kaji 404)
::
++  $  ^-  eyre-res:kaji
  =/  p  pat.rl  ::?.  mob.rl  pat.rl  [%m pat.rl]
  :: ?.  (is-subscribed:lib src.bowl)  nudge
  ?+  p  eyre-bail
    ~  main
    [%f *]  fragment
  ==
++  main
  :-  %page
  =/  ut  (~(get by here.tv.s) 'spandrell-tv')  
  ?~  ut  manx-bail
  =/  sta  (~(get by schedule.u.ut) started.current.u.ut)
  ?~  sta  manx-bail  :: TODO old station sorry
  =/  page  (main:tv ['spandrell-tv' %our 'Spandrell TV' ~docteg-mothep u.sta])
  (index ~[page] bowl)
  
++  nudge
  :-  %page
  =/  sub  ~(. subscribe src.bowl)
  =/  nudgep  (nudge:sub "TV")
  (index ~[nudgep] bowl)
++  fragment
  :-  %html
  ?+  pat.rl  manx-bail
  [%f %s ~]  ;div  ;*  tv-list:tv  ==
  [%f %u ~]  ;div  ;*  radio-list:tv   ==
  ==
--