@@ 414,15 414,19 @@ title, url-slug, body."
(def make-frontpage-blurb (options)
(withs (raw-blurb options!frontpage)
- (if (and (headmatch "<p>" raw-blurb)
- (endmatch "</p>" raw-blurb))
- raw-blurb
- (tostring (tag p
- (awhen options!date
- (tag em
- (pr it))
- (pr " — "))
- (pr raw-blurb))))))
+ (subst "<a>"
+ (string "<a href=\""
+ options!url-slug
+ "\" class=\"primary-blurb-link\">")
+ (if (and (headmatch "<p>" raw-blurb)
+ (endmatch "</p>" raw-blurb))
+ raw-blurb
+ (tostring (tag p
+ (awhen options!date
+ (tag em
+ (pr it))
+ (pr " — "))
+ (pr raw-blurb)))))))
(def prn-codegen-page (title url-slug body-text analytics-script page-specific-headers config)
(prn-page title url-slug body-text analytics-script page-specific-headers config))