# HG changeset patch
# User Zachary Kanfer <zkanfer@gmail.com>
# Date 1706481480 18000
#      Sun Jan 28 17:38:00 2024 -0500
# Node ID 2c093352fa948786af8cf9ac59e8bc3084d3d22a
# Parent  f61351d4cd9bc073d7f586a761f56e7c766f920c
in the frontpage blurb, replace <a> with a link to the url slug

diff --git a/site.arc b/site.arc
--- a/site.arc
+++ b/site.arc
@@ -414,15 +414,19 @@
 
 (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 " &mdash; "))
-                            (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 " &mdash; "))
+                              (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))