From 16c1cbee292604b2b8be36a15d5828893d132b20 Mon Sep 17 00:00:00 2001
From: Jeremy Ruston <jeremy@jermolene.com>
Date: Sat, 2 Nov 2019 09:31:36 +0000
Subject: [PATCH] Comment plugin: Add link to top post

---
 .../comments/header-view-template-segment.tid | 28 +++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/plugins/tiddlywiki/comments/header-view-template-segment.tid b/plugins/tiddlywiki/comments/header-view-template-segment.tid
index 09f45d01d..2569b7947 100644
--- a/plugins/tiddlywiki/comments/header-view-template-segment.tid
+++ b/plugins/tiddlywiki/comments/header-view-template-segment.tid
@@ -2,15 +2,39 @@ title: $:/plugins/tiddlywiki/comments/header-view-template-segment
 tags: $:/tags/ViewTemplate
 list-before: $:/core/ui/ViewTemplate/body
 
+\define display-original-comment()
+<$link><$text text=<<currentTiddler>>/></$link>
+\end
+
+\define find-original-comment(exclude)
+<$list filter="[<currentTiddler>role[comment]]" emptyMessage=<<display-original-comment>> variable="ignore">
+<$list filter="[list<currentTiddler>sort[title]] -[enlist<__exclude__>]">
+<$set name="newExclude" filter="[enlist<__exclude__>] [<currentTiddler>]">
+<$macrocall $name="find-original-comment" exclude=<<newExclude>>/>
+</$set>
+</$list>
+</$list>
+\end
+
 <$list filter="[all[current]role[comment]]" variable="ignore">
 <div class="tc-is-comment-header">
-This tiddler is a comment on:
-<ul>
+<p>
+This tiddler a comment on
 <$list filter="[list<currentTiddler>sort[title]]">
+<<find-original-comment>>&nbsp;
+</$list>
+</p>
+<$list filter="[list<currentTiddler>role[comment]sort[title]limit[1]]" variable="ignore">
+<p>
+Parent comments:
+</p>
+<ul>
+<$list filter="[list<currentTiddler>role[comment]sort[title]]">
 <li>
 <$link to=<<currentTiddler>>><$text text=<<currentTiddler>>/></$link>
 </li>
 </$list>
 </ul>
+</$list>
 </div>
 </$list>