diff options
author | Arun Isaac | 2022-07-19 17:39:42 +0530 |
---|---|---|
committer | Arun Isaac | 2022-07-19 17:39:42 +0530 |
commit | eecc9610a1c087510436ccadccca38365dfdab7f (patch) | |
tree | 1432c978b3252c8a8a555096b53ebb453c673f18 /tissue/issue.scm | |
parent | a11c6050aa01a6fa43d34f5861b57aaab036f929 (diff) | |
download | tissue-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.scm | 9 |
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)) |