diff options
| -rw-r--r-- | tissue/document.scm | 4 | ||||
| -rw-r--r-- | tissue/issue.scm | 36 | ||||
| -rw-r--r-- | tissue/web/server.scm | 1 |
3 files changed, 20 insertions, 21 deletions
diff --git a/tissue/document.scm b/tissue/document.scm index cc49010..a89dbb8 100644 --- a/tissue/document.scm +++ b/tissue/document.scm @@ -244,8 +244,8 @@ a list of search results." ,(document-title document)) ,@(let ((snippet (document-sxml-snippet document mset))) (if snippet - (list `(span (@ (class "search-result-snippet")) - ,@snippet)) + (list `(div (@ (class "search-result-snippet")) + ,@snippet)) (list))))) (define (read-gemtext-document file) diff --git a/tissue/issue.scm b/tissue/issue.scm index 0003506..54daf28 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -214,26 +214,26 @@ object representing a list of search results." "")))) ,tag))) (issue-keywords issue)) - (span (@ (class "search-result-metadata")) - ,(string-append - (format #f " opened ~a by ~a" - (human-date-string (issue-created-date issue)) - (issue-creator issue)) - (if (> (length (issue-posts issue)) - 1) - (format #f ", last updated ~a by ~a" - (human-date-string (issue-last-updated-date issue)) - (issue-last-updater issue)) - "") - (if (zero? (issue-tasks issue)) - "" - (format #f "; ~a of ~a tasks done" - (issue-completed-tasks issue) - (issue-tasks issue))))) + (div (@ (class "search-result-metadata")) + ,(string-append + (format #f " opened ~a by ~a" + (human-date-string (issue-created-date issue)) + (issue-creator issue)) + (if (> (length (issue-posts issue)) + 1) + (format #f ", last updated ~a by ~a" + (human-date-string (issue-last-updated-date issue)) + (issue-last-updater issue)) + "") + (if (zero? (issue-tasks issue)) + "" + (format #f "; ~a of ~a tasks done" + (issue-completed-tasks issue) + (issue-tasks issue))))) ,@(let ((snippet (document-sxml-snippet issue mset))) (if snippet - (list `(span (@ (class "search-result-snippet")) - ,@snippet)) + (list `(div (@ (class "search-result-snippet")) + ,@snippet)) (list))))) (define (hashtable-append! hashtable key new-values) diff --git a/tissue/web/server.scm b/tissue/web/server.scm index 1a91810..64397a6 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -57,7 +57,6 @@ form { .search-result-metadata { color: dimgray; - display: block; font-size: smaller; } |