From f49a747adfea970f73dc96c07240794c60cec696 Mon Sep 17 00:00:00 2001
From: Spencer Williams <spnw@plexwave.org>
Date: Sat, 29 Mar 2025 19:09:35 -0400
Subject: Add option to export internal links with custom CSS class

---
 seam-test.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'seam-test.el')

diff --git a/seam-test.el b/seam-test.el
index 0b7df1c..7d10f94 100644
--- a/seam-test.el
+++ b/seam-test.el
@@ -47,6 +47,7 @@
           (seam-title-formatter (lambda (title _type) title))
           (seam-export-template-file nil)
           (seam-export-template-string seam-export-default-template-string)
+          (seam-export-internal-link-class nil)
           (seam-export-alist
            `((,(file-name-concat seam-test-directory "html")
               :types ("public")
@@ -254,6 +255,20 @@ extension."
         (buffer-string)
         (re-search-forward "<a href=\"/bar\">"))))))
 
+(ert-deftest seam-test-link-internal-class ()
+  "Test that setting `seam-export-internal-link-class' correctly renders
+the class."
+  (should
+   (identity
+    (seam-test-with-notes ((seam-export-internal-link-class "internal"))
+        ((foo "foo" "public")
+         (bar "bar" "public"))
+      (seam-test-add-contents foo (seam-test-link-to-buffer bar))
+      (with-temp-buffer
+        (insert-file-contents "html/foo.html")
+        (buffer-string)
+        (re-search-forward "<a href=\"/bar.html\" class=\"internal\">"))))))
+
 (ert-deftest seam-test-link-getters ()
   (should
    (equal
-- 
cgit v1.2.3