2 files changed, 86 insertions, 0 deletions
diff --git a/desk/web/feed/feed.hoon b/desk/web/feed/feed.hoon
new file mode 100644
index 0000000..fafcb7e
--- /dev/null
+++ b/desk/web/feed/feed.hoon
@@ -0,0 +1,47 @@
+/-  boke, tp=trill-post, tlonc=tlon-channels, cnt=contact
+/+  plib=trill-utils, ui=trill-ui, sr=sortug, lib=boke, const=constants, kaji
+/=  post-text  /web/components/post-text
+/=  date-div   /web/components/date
+/=  user       /web/components/user
+/=  chat-manx  /web/chat/chat
+|_  [s=state:boke =bowl:gall]
+++  css  ^~  %-  trip
+'''
+ddEventListener('kaji-scry', async () => highlight());
+'''
++$  section  $?(%blog %comments %chat %threads %replies)
+++  cursor
+|=  [d=(unit time) up=?]  ^-  marl
+  ?~  d   ~
+  =/  cursor-string  (scow:parsing:sr %uw `@uw`u.d)
+  =/  name   ?:  up  "before"  "after"
+  =/  label  ?:  up  "Newer Posts"  "Older Posts"
+  =/  indicator  ?:  up  "#spinner-up"  "#spinner-down"
+  =/  button=manx
+  ;button  
+    =kaji  "iscroll"
+    =name   name
+    =value  cursor-string
+    =path   "/search/f"
+    =cont   "#search-results"
+    =indicator  indicator
+    ; {label}
+  ==
+  =/  upc
+  ;div
+    ;+  button
+    ;img#spinner-up.spinner@"spinner.svg"(style "display: none;");
+  ==
+  =/  downc
+  ;div
+    ;img#spinner-down.spinner@"spinner.svg"(style "display: none;");
+    ;+  button
+  ==
+  ;+  ?:  up  upc  downc
+
+++  main  ^-  manx
+;div#feed.fsy
+  ;style: {css}
+  ;h1.tc:"Feed"
+==
+--
diff --git a/desk/web/feed/router.hoon b/desk/web/feed/router.hoon
new file mode 100644
index 0000000..9c61b4b
--- /dev/null
+++ b/desk/web/feed/router.hoon
@@ -0,0 +1,39 @@
+/-  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)
+--