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/file-document.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/file-document.scm')
-rw-r--r-- | tissue/file-document.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tissue/file-document.scm b/tissue/file-document.scm index 72d83a2..b910131 100644 --- a/tissue/file-document.scm +++ b/tissue/file-document.scm @@ -124,8 +124,10 @@ a list of search results." (class "search-result-title")) ,(document-title document)) (div (@ (class "search-result-metadata")) + (span (@ (class ,(string-append "document-type file-document-type"))) + "document") ,(string-append - (format #f "created ~a by ~a" + (format #f " created ~a by ~a" (human-date-string (file-document-created-date document)) (file-document-creator document)) (if (> (length (file-document-commits document)) |