1
0
mirror of https://github.com/Jermolene/TiddlyWiki5 synced 2024-11-27 03:57:21 +00:00

Comment plugin: Add link to top post

This commit is contained in:
Jeremy Ruston 2019-11-02 09:31:36 +00:00
parent e84c422e50
commit 16c1cbee29

View File

@ -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>