/-  boke, tp=trill-post, cnt=contact
/+  kaji, fetch-lib=fetch, plib=trill-utils, const=constants, sr=sortug, lib=boke
/=  index       /web/index
/=  subscribe      /web/subscribe
/=  feedp       /web/feed/feed

|_  [rl=req-line:kaji s=state:boke =bowl:gall]
+*  fetch  ~(. fetch-lib [s bowl])
    feed   ~(. feedp [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
  ~&  serving-search=rl(pat p)
  ?+  p  eyre-bail
    ~  main
    [%f rest=*]  (fragment rest.p)
  ==
++  nudge
  :-  %page
  ~&  "pay me"
  =/  sub  ~(. subscribe src.bowl)
  =/  nudgep  (nudge:sub "Feed")
  (index ~[nudgep] bowl)
++  main
  :-  %page
  
  (index ~[main:feed] bowl)
++  fragment
|=  p=(pole knot)
  :-  %html  manx-bail
  :: =/  args  (parse-params par.rl)
  :: ~&  args=args
  :: ?~  args  manx-bail
  :: =/  res  (search:fetch u.args)
  ::   (results:srch u.args res)
--