1 files changed, 70 insertions, 0 deletions
diff --git a/desk/web/components/thread-preview.hoon b/desk/web/components/thread-preview.hoon
new file mode 100644
index 0000000..758f6d3
--- /dev/null
+++ b/desk/web/components/thread-preview.hoon
@@ -0,0 +1,70 @@
+/-  tp=trill-post, cnt=contact 
+/+  lib=boke, sigil=sigil-sigil, sr=sortug, plib=trill-utils, ui=trill-ui, wall
+/=  user  /web/components/user
+
+|_  [t=thread:tp contacts=whoms:cnt =bowl:gall]
++*  wal  ~(. wall src.bowl)
+++  is-blog  (~(has in tags.t) 'blog')
+++  pat  %-  trip  %-  spat  ?:  is-blog  (blog-path:lib t)  (weld /board path.t)
+++  wide
+:: =/  blocks  (abbreviate-post:plib content.p.fn 500)
+=/  u  (user ship.pid.t contacts 40)
+=/  reply-count  (scow:parsing:sr %ud (lent replies.t))
+=/  ttags  (tags:wal ~(tap in tags.t))
+;div.thread-preview
+  ;div.thread-author
+    ;+  -.u
+    ;+  +.u
+  ==
+  ;div.thread-name
+    ;div
+      ;a/"{pat}"
+      ;h2:"{(trip title.t)}"
+      ==
+      ;div.thread-tags
+        ;*  %+  turn  ttags  |=  tg=@t  ;a.tag/"/board?t={(trip tg)}": {(trip tg)}
+      ==
+    ==
+  ==
+  ;div.reply-count
+    ;div:"Posted {(post-date-ago:lib id.pid.t now.bowl %tam)} ago"
+    ;div:"{reply-count} replies"
+  ==
+  ;div.dates
+    ;*  last-reply  
+  ==
+==
+++  last-reply  ^-  marl
+  ?~  replies.t  ~
+  =/  usr  (user ship.i.replies.t contacts 40)
+  ;+  ;div.last-reply
+        ;span: Last reply {(post-date-ago:lib id.i.replies.t now.bowl %tam)} ago
+        ;div.last-reply-author
+          ;span: by
+          ;+  name.usr
+        ==
+      ==
+++  mobile
+  =/  usr  (user ship.pid.t contacts 40)
+  =/  reply-count  (scow:parsing:sr %ud (lent replies.t))
+
+;a.thread-preview/"{pat}"
+;div.thread-inner
+  ;h2:"{(trip title.t)}"
+  ;div.meta
+    ;div.author
+      ;div.by-author
+        ;span:"by"
+        ;+  +.usr
+      ==
+      ;div:"{(post-date-ago:lib id.pid.t now.bowl %yau)} ago"
+    ==
+    ;*  ?~  replies.t  ~
+    ;+  ;div.reply
+          ;div:"{reply-count} replies"
+          ;div: Last {(post-date-ago:lib id.i.replies.t now.bowl %tam)} ago
+        ==
+  ==
+==
+==
+--