diff options
author | Tom Willemsen | 2012-08-25 21:32:15 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-08-25 21:32:15 +0200 |
commit | 6030bc2cdc265754d3976011a4d3ad084a11b37e (patch) | |
tree | 1ee3a017cdbf010e878e7e901b596efe0a6c1d96 | |
parent | 428ea7c3b0146561d6d67fd5689413344aad7d37 (diff) | |
download | tekuti-6030bc2cdc265754d3976011a4d3ad084a11b37e.tar.gz tekuti-6030bc2cdc265754d3976011a4d3ad084a11b37e.zip |
Improve the look of the post meta info
* tekuti/page-helpers.scm (show-post): Show meta info in the `h1' in a
`small' block, not in a `h3'.
-rw-r--r-- | tekuti/page-helpers.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm index 20e36a9..b2ad60f 100644 --- a/tekuti/page-helpers.scm +++ b/tekuti/page-helpers.scm @@ -268,14 +268,13 @@ (define (show-post post comments?) `((h2 (@ (class "storytitle")) - ,(post-link post)) + ,(post-link post) (br) + (small ,(post-readable-date post) + " (" ,@(list-intersperse + (map tag-link (post-tags post)) + " | ") + ")")) (div (@ (class "post")) - (h3 (@ (class "meta")) - ,(post-readable-date post) - " (" ,@(list-intersperse - (map tag-link (post-tags post)) - " | ") - ")") (div (@ (class "storycontent")) ,(post-sxml-content post)) ,@(if comments? |