Implement gitea-pr comments

bin/gitea-pr

@@ -101,8 +101,35 @@ case "$subcommand" in
         echo "$json" | jq -r '.html_url'
         ;;
     comments)
-        echo "comments: not yet implemented" >&2
-        exit 1
+        pr_number="${1:-}"
+        if [ -z "$pr_number" ]; then
+            echo "Usage: gitea-pr comments PR_NUMBER" >&2
+            exit 1
+        fi
+
+        echo "=== Issue comments ==="
+        response=$(curl -sS -w '\n%{http_code}' "${GITEA_API}/repos/${owner}/${repo}/issues/${pr_number}/comments" \
+            -H "Authorization: token ${GITEA_TOKEN}")
+        http_code=$(echo "$response" | tail -1)
+        json=$(echo "$response" | sed '$d')
+        if [ "$http_code" -lt 200 ] || [ "$http_code" -ge 300 ]; then
+            echo "Failed to fetch issue comments (HTTP $http_code):" >&2
+            echo "$json" >&2
+            exit 1
+        fi
+        echo "$json" | jq -r '.[] | "[\(.user.login) @ \(.created_at)]\n\(.body)\n"'
+
+        echo "=== Reviews ==="
+        response=$(curl -sS -w '\n%{http_code}' "${GITEA_API}/repos/${owner}/${repo}/pulls/${pr_number}/reviews" \
+            -H "Authorization: token ${GITEA_TOKEN}")
+        http_code=$(echo "$response" | tail -1)
+        json=$(echo "$response" | sed '$d')
+        if [ "$http_code" -lt 200 ] || [ "$http_code" -ge 300 ]; then
+            echo "Failed to fetch reviews (HTTP $http_code):" >&2
+            echo "$json" >&2
+            exit 1
+        fi
+        echo "$json" | jq -r '.[] | select(.body != "") | "[\(.user.login) @ \(.submitted_at) — \(.state)]\n\(.body)\n"'
         ;;
     merge)
         echo "merge: not yet implemented" >&2