summaryrefslogtreecommitdiff
path: root/tissue/issue.scm
diff options
context:
space:
mode:
authorArun Isaac2022-07-19 17:39:42 +0530
committerArun Isaac2022-07-19 17:39:42 +0530
commiteecc9610a1c087510436ccadccca38365dfdab7f (patch)
tree1432c978b3252c8a8a555096b53ebb453c673f18 /tissue/issue.scm
parenta11c6050aa01a6fa43d34f5861b57aaab036f929 (diff)
downloadtissue-eecc9610a1c087510436ccadccca38365dfdab7f.tar.gz
tissue-eecc9610a1c087510436ccadccca38365dfdab7f.tar.lz
tissue-eecc9610a1c087510436ccadccca38365dfdab7f.zip
web: server: Move document type identifier into HTML.
* tissue/commit.scm (document->sxml): Generate document type identifier. * tissue/file-document.scm (document->sxml): Generate document type identifier. * tissue/issue.scm (document->sxml): Generate document type identifier. * tissue/web/server.scm (%css): Style document type identifiers.
Diffstat (limited to 'tissue/issue.scm')
-rw-r--r--tissue/issue.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm
index 5868120..469b033 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -215,8 +215,15 @@ object representing a list of search results."
,tag))))
(issue-keywords issue)))
(div (@ (class "search-result-metadata"))
+ (span (@ (class ,(string-append "document-type issue-document-type "
+ (if (issue-open? issue)
+ "open-issue-document-type"
+ "closed-issue-document-type"))))
+ ,(if (issue-open? issue)
+ "issue"
+ "✓ issue"))
,(string-append
- (format #f "opened ~a by ~a"
+ (format #f " opened ~a by ~a"
(human-date-string (file-document-created-date issue))
(file-document-creator issue))
(if (> (length (file-document-commits issue))