diff options
Diffstat (limited to 'tissue/commit.scm')
| -rw-r--r-- | tissue/commit.scm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/tissue/commit.scm b/tissue/commit.scm index c151d3a..b910695 100644 --- a/tissue/commit.scm +++ b/tissue/commit.scm @@ -51,15 +51,6 @@ "Return a date representing the recency of COMMIT." (doc:commit-author-date commit)) -(define-method (document-snippet-source-text (commit <commit>)) - "Return the source text for COMMIT from which to extract a search -result snippet." - ;; The snippet source text excludes the first paragraph (i.e., the - ;; summary line) of the commit. Hence, we use commit-body. - (commit-body - (commit-lookup (current-git-repository) - (string->oid (commit-hash commit))))) - (define-method (document-text (commit <commit>)) "Return the full text of COMMIT." (commit-message @@ -101,7 +92,14 @@ REPOSITORY." #:hash (oid->string (commit-id commit)) #:author (resolve-alias (signature-name (commit-author commit)) (%aliases)) - #:author-date (commit-author-date commit)) + #:author-date (commit-author-date commit) + ;; The snippet source text excludes the + ;; first paragraph (i.e., the summary line) + ;; of the commit. Hence, we use commit-body. + #:snippet-source-text + (commit-body + (commit-lookup (current-git-repository) + (commit-id commit)))) result)) (list) repository)) |