summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-01-01 19:23:31 +0000
committerChristopher Baines <mail@cbaines.net>2020-01-01 19:23:31 +0000
commit87496d76f4123176da2cd3a2695b2d625ec89b5e (patch)
tree4318300f65151eccd9b2d110c2a9e4c62affbb66 /src
parent91766055ea5d11a393fc0c8e28d69e459d1082c4 (diff)
downloadweekly-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.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