From: Sergey Matveev <stargrave@stargrave.org>
Date: Tue, 26 Mar 2024 14:29:59 +0000 (+0300)
Subject: Workability with empty comment
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=cf0cb2d0d675ebfff7c09d255635f4bf4daf1fb1962aa14905608776fb731d89;p=schwabrak.git

Workability with empty comment
---

diff --git a/comment b/comment
index a2fc9e4..f4784bd 100755
--- a/comment
+++ b/comment
@@ -11,15 +11,20 @@ usage() {
 issue=${1#issues/}
 comment=issues/$issue/comment
 
-$PERL -i -npe 's/^/# /' $comment
+local tmp=`mktemp`
+trap "rm -f $tmp" HUP PIPE INT QUIT TERM EXIT
+$PERL -npe 's/^/# /' < $comment > $tmp
 zmodload -F zsh/stat b:zstat
-zstat -A ctimePrev +ctime $comment
-$EDITOR $comment
-zstat -A ctime +ctime $comment
+zstat -A ctimePrev +ctime $tmp
+$EDITOR $tmp
+zstat -A ctime +ctime $tmp
 [[ $ctime != $ctimePrev ]] || {
     echo Aborting comment >&2
-    $PERL -i -npe 's/^# //' $comment
     exit 0
 }
-$PERL -i -ne 'print if $can; if (/^$/) { $can=1 };' $comment
+if [[ -s $comment ]]; then
+    $PERL -ne 'print if $can; if (/^$/) { $can=1 };' < $tmp > $comment
+else
+    cat < $tmp > $comment
+fi
 git add $comment