Only include summary in pull request message (#412)

Closes #411.

Author: jackfirth

cli.rkt

@@ -296,28 +296,6 @@ For help on these, use 'analyze --help' or 'fix --help'."
 
 
 (define (resyntax-fix-print-git-commit-message analysis)
-  (display "This is an automated change generated by Resyntax.\n\n")
-  (for ([pass-results (resyntax-analysis-all-results analysis)]
-        [pass-number (in-naturals 1)])
-    (unless (hash-empty? pass-results)
-      (printf "#### Pass ~a\n\n" pass-number))
-    (for ([(source result-set) (in-hash pass-results)])
-      (define result-count (length (refactoring-result-set-results result-set)))
-      (define fix-string (if (> result-count 1) "fixes" "fix"))
-      ;; For a commit message, we always use a relative path since we're likely running inside
-      ;; some CI runner. Additionally, we make the path a link to the corresponding file at HEAD,
-      ;; since making file paths clickable is pleasant.
-      (define relative-path (find-relative-path (current-directory) (source-path source)))
-      (define repo-head-path (format "../blob/HEAD/~a" relative-path))
-      (printf "Applied ~a ~a to [`~a`](~a)\n\n"
-              result-count fix-string relative-path repo-head-path)
-      (for ([result (in-list (refactoring-result-set-results result-set))])
-        (define line (refactoring-result-original-line result))
-        (define rule (refactoring-result-rule-name result))
-        (define message (refactoring-result-message result))
-        (printf "  * Line ~a, `~a`: ~a\n" line rule message))
-      (newline)))
-  (printf "## Summary\n\n")
   (define total-fixes (resyntax-analysis-total-fixes analysis))
   (define total-files (resyntax-analysis-total-sources-modified analysis))
   (define fix-counts-by-rule
@@ -327,8 +305,8 @@ For help on these, use 'analyze --help' or 'fix --help'."
   (define issue-string (if (> total-fixes 1) "issues" "issue"))
   (define file-string (if (> total-files 1) "files" "file"))
   (if (zero? total-fixes)
-      (printf "No issues found.\n")
-      (printf "Fixed ~a ~a in ~a ~a.\n\n" total-fixes issue-string total-files file-string))
+      (printf "Resyntax found no issues.\n")
+      (printf "Resyntax fixed ~a ~a in ~a ~a.\n\n" total-fixes issue-string total-files file-string))
   (for ([rule+count (in-list fix-counts-by-rule)])
     (match-define (entry rule count) rule+count)
     (define occurrence-string (if (> count 1) "occurrences" "occurrence"))