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/commit.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/commit.scm')
-rw-r--r-- | tissue/commit.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tissue/commit.scm b/tissue/commit.scm index 10dc436..3dfd45f 100644 --- a/tissue/commit.scm +++ b/tissue/commit.scm @@ -98,8 +98,10 @@ object representing a list of search results." (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" + (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))) |