diff options
Diffstat (limited to 'tissue/commit.scm')
-rw-r--r-- | tissue/commit.scm | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/tissue/commit.scm b/tissue/commit.scm index 3dfd45f..e08f5a6 100644 --- a/tissue/commit.scm +++ b/tissue/commit.scm @@ -90,26 +90,6 @@ search results." (newline port) (newline port)))) -(define-method (document->sxml (commit <commit>) mset) - "Render COMMIT, a <commit> object, to SXML. MSET is the xapian MSet -object representing a list of search results." - `(li (@ (class ,(string-append "search-result search-result-commit"))) - (a (@ (href ,(document-web-uri commit)) - (class "search-result-title")) - ,(document-title commit)) - (div (@ (class "search-result-metadata")) - (span (@ (class ,(string-append "document-type commit-document-type"))) - "commit") - ,(string-append - (format #f " authored ~a by ~a" - (human-date-string (doc:commit-author-date commit)) - (doc:commit-author commit)))) - ,@(let ((snippet (document-sxml-snippet commit mset))) - (if snippet - (list `(div (@ (class "search-result-snippet")) - ,@snippet)) - (list))))) - (define (repository-commits repository) "Return a list of <commit> objects representing commits in REPOSITORY." |