summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/theme.scm23
1 files changed, 14 insertions, 9 deletions
diff --git a/src/theme.scm b/src/theme.scm
index 7ce23f3..4b8dfc2 100644
--- a/src/theme.scm
+++ b/src/theme.scm
@@ -113,7 +113,7 @@
(post-ref post 'end-date))
(current-time))))
`(li
- (@ (class ,(if draft "draft-post" "")))
+ (@ (class ,(if draft "draft-post clearfix" "clearfix")))
,(if draft
`((time
"Week " ,(post-ref post 'week)
@@ -122,13 +122,16 @@
"Beginning "
,(date->string*
(post-ref post 'start-date))))
- ,(string-append
- "Will be published on "
- (date->string (move-date-by-days
- (post-ref post 'start-date)
- 7)
- "~A (~1)")))
- `(a (@ (href ,(post-uri post)))
+ (span
+ (@ (class "post-list-week-text"))
+ "Will be published on "
+ ,(let ((date (move-date-by-days
+ (post-ref post 'start-date)
+ 7)))
+ `(span (@ (title ,(date->string date "~1")))
+ ,(date->string date "~A")))))
+ `(a (@ (href ,(post-uri post))
+ (class "post-list-link"))
(time
"Week " ,(post-ref post 'week)
(div
@@ -136,7 +139,9 @@
"Beginning "
,(date->string*
(post-ref post 'start-date))))
- ,(post-ref post 'synopsis))))))
+ (span
+ (@ (class "post-list-week-text"))
+ ,(post-ref post 'synopsis)))))))
posts)
,@(if (string=? title "Recent posts")
'((li