From 328ebe85135912678bdacd3381126ffd66ef2761 Mon Sep 17 00:00:00 2001
From: polwex <polwex@sortug.com>
Date: Fri, 27 Jun 2025 22:53:52 +0700
Subject: init

---
 desk/web/feed/router.hoon | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 desk/web/feed/router.hoon

(limited to 'desk/web/feed/router.hoon')

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)
+--
-- 
cgit v1.2.3