From 87496d76f4123176da2cd3a2695b2d625ec89b5e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 1 Jan 2020 19:23:31 +0000 Subject: Improve the display of the post lists on smaller screens --- src/theme.scm | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) (limited to 'src') 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 -- cgit v1.2.3