diff options
author | Andinus <andinus@nand.sh> | 2020-11-20 11:04:43 +0530 |
---|---|---|
committer | Andinus <andinus@nand.sh> | 2020-11-20 11:04:43 +0530 |
commit | d37383dc4c808fa116791cd9becd7a1df41f50ad (patch) | |
tree | 47fac0a45ce931c8c62357de3e0287aa41f7e95e /draco.pl | |
parent | 56e880f5028d9f1892d1af28007ab6a7108ad977 (diff) | |
download | draco-d37383dc4c808fa116791cd9becd7a1df41f50ad.tar.gz |
Add "[S]" after submitter's comments
Diffstat (limited to 'draco.pl')
-rwxr-xr-x | draco.pl | 4 |
1 files changed, 3 insertions, 1 deletions
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"; |