feat: tweak anchor utility to take in extra classes

1 files changed, 9 insertions, 8 deletions

diff --git a/haunt.scm b/haunt.scm
index 5af3911..a759c66 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -39,11 +39,11 @@
                          (with-layout %blog-theme site title body)
                          sxml->html)))
 
-(define* (anchor label url #:key external? class)
+(define* (anchor label url #:key external? extra-classes)
   `(a (@ (href ,url)
-         ,@(if class
-               `((class ,class))
-               '())
+         ,@(if extra-classes
+               `((class ,(string-append "main__anchor " extra-classes)))
+               '((class "main__anchor")))
          ,@(if external?
                '((rel noopener)
                  (target _blank))
@@ -235,7 +235,7 @@ describe my personal projects and contributions.")))))
                      (type "checkbox") (id "mobile-menu")))
            (div (@ (class "navbar__images"))
                 (div (@ (class "navbar__logo"))
-                     ,(anchor %fullname "/" #:class "navbar__link"))
+                     ,(anchor %fullname "/" #:extra-classes "navbar__link"))
                 (label (@ (class "navbar__menu-icon") (for "mobile-menu"))
                        (span (@ (class "menu-icon")))))
            (nav (@ (class "navbar__nav"))
@@ -243,7 +243,7 @@ describe my personal projects and contributions.")))))
                     ,@(map (lambda (a)
                              `(li (@ (class "menu-item"))
                                   ,(anchor (car a) (cdr a)
-                                           #:class "menu-item__link")))
+                                           #:extra-classes "menu-item__link")))
                            '(("Home" . "/")
                              ("Projects" . "/projects")
                              ("Blog" . "/posts")
@@ -258,7 +258,7 @@ describe my personal projects and contributions.")))))
                                                           " footer__icon"))))
                                  (car item)
                                  #:external? #t
-                                 #:class "footer__link"))
+                                 #:extra-classes "footer__link"))
                        (list
                         (cons (format #f "https://git.~a/blog" %domain)
                               "fa-solid fa-code")
@@ -330,7 +330,8 @@ describe my personal projects and contributions.")))))
               (span (@ (class "project__metadata-items"))
                     (i (@ (class "fa-brands fa-git-alt project__icon")))
                     ,(anchor (project-link project) (project-link project)
-                             #:external? #t))
+                             #:external? #t
+                             #:extra-classes "project__link"))
               (span (@ (classs "project__metadata-items"))
                     (i (@ (class "fa-solid fa-file-lines project__icon")))
                     ,(project-license project)))