(html
(head
(meta (@ (charset "utf-8")))
+ (meta (@ (name "viewport")
+ (content "width=device-width, initial-scale=1")))
(title ,(if title (string-append title " — " (site-title site))
"Amin Bandali’s Personal Site"))
+ (link (@ (rel "icon")
+ (href "/gnu.ico")))
,(stylesheet "reset")
,(stylesheet "style"))
(body
`(tr
(td ,(aa (post-ref post 'title)
(post-uri site post prefix)))
- (td (small ,(date->string (post-date post)
- my-date-format)))))
+ (td (small (@ (title
+ ,(date->string (post-date post)
+ my-secondary-date-format)))
+ ,(date->string (post-date post)
+ my-primary-date-format)))))
posts)))))
(define (my-post-template post)
(address "By " ,(aa (post-ref post 'author) "/")
" <" ,(post-ref post 'email) ">")
(p (@ (class "date"))
- "Published "
- ,(date->string (post-date post) my-date-format))
- ,(if (post-ref post 'updated)
- `(p (@ (class "updated"))
- "Updated "
- ,(date->string (post-ref post 'updated)
- my-date-format)) '())
+ (span (@ (title ,(date->string (post-date post)
+ my-secondary-date-format)))
+ ,(date->string (post-date post)
+ my-primary-date-format))
+ ,(if (post-ref post 'updated)
+ `(" (updated on "
+ (span (@ (title
+ ,(date->string (post-ref post 'updated)
+ my-secondary-date-format)))
+ ,(date->string (post-ref post 'updated)
+ my-primary-date-format))
+ ")") '()))
,(if (post-ref post 'tags)
`(p (@ (class "tags"))
"Tagged "