diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-01 19:23:31 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-01 19:23:31 +0000 |
| commit | 87496d76f4123176da2cd3a2695b2d625ec89b5e (patch) | |
| tree | 4318300f65151eccd9b2d110c2a9e4c62affbb66 /src | |
| parent | 91766055ea5d11a393fc0c8e28d69e459d1082c4 (diff) | |
| download | weekly-news-87496d76f4123176da2cd3a2695b2d625ec89b5e.tar weekly-news-87496d76f4123176da2cd3a2695b2d625ec89b5e.tar.gz | |
Improve the display of the post lists on smaller screens
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 |