From d37383dc4c808fa116791cd9becd7a1df41f50ad Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Fri, 20 Nov 2020 11:04:43 +0530
Subject: Add "[S]" after submitter's comments

---
 draco.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'draco.pl')

diff --git a/draco.pl b/draco.pl
index ac67ee9..08779a1 100755
--- a/draco.pl
+++ b/draco.pl
@@ -91,7 +91,9 @@ sub print_comment_chain {
     my $comment = shift @_;
     my $level = shift @_;
 
-    print "*" x ($level + 2), " ", "$comment->{author}\n";
+    print "*" x ($level + 2), " ", "$comment->{author}";
+    print " [S]" if $comment->{is_submitter};
+    print "\n";
 
     # Print comment details.
     print ":PROPERTIES:\n";
-- 
cgit 1.4.1-2-gfad0