diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/theme.scm | 23 |
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 |