aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSpencer Williams <spnw@plexwave.org>2025-07-11 16:52:33 -0400
committerSpencer Williams <spnw@plexwave.org>2025-07-11 16:52:33 -0400
commitac468cb3500ac9def50359bb87ba04a7267d1249 (patch)
tree2922f31cf4432e3a8e8ae3773d243f72e0962977
parent037a20d6a621fc24576dbb4fb460b4b6cbcbc846 (diff)
Minor reformatting
-rw-r--r--lisp/seam-html.el1
-rw-r--r--lisp/seam-test.el29
2 files changed, 17 insertions, 13 deletions
diff --git a/lisp/seam-html.el b/lisp/seam-html.el
index 8842ab8..57cd9b9 100644
--- a/lisp/seam-html.el
+++ b/lisp/seam-html.el
@@ -344,7 +344,6 @@ INFO is a plist holding contextual information. See
;; No path, only description.
(t desc))))
-
(defun seam-html-src-block (src-block _contents info)
"Transcode a SRC-BLOCK element from Org to HTML.
CONTENTS holds the contents of the item. INFO is a plist holding
diff --git a/lisp/seam-test.el b/lisp/seam-test.el
index 13c52c6..f361658 100644
--- a/lisp/seam-test.el
+++ b/lisp/seam-test.el
@@ -213,7 +213,8 @@
(buffer-name note)))))
(ert-deftest seam-test-link-update ()
- "Test that renaming a note updates its HTML and that of notes which link to it."
+ "Test that renaming a note updates its HTML and that of notes
+which link to it."
(should
(equal '(("qux.html")
("public/qux.org")
@@ -256,8 +257,8 @@ re-export note to which it links."
(re-search-forward "<a href=\"/bar.html\">")))))
(ert-deftest seam-test-link-no-extension ()
- "Test that the :no-extension option causes links to render without .html
-extension."
+ "Test that the :no-extension option causes links to render without
+.html extension."
(should
(identity
(seam-test-with-notes ((seam-export-alist
@@ -274,8 +275,8 @@ extension."
(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."
+ "Test that setting `seam-export-internal-link-class' correctly
+renders the class."
(should
(identity
(seam-test-with-notes ((seam-export-internal-link-class "internal"))
@@ -306,8 +307,8 @@ the class."
(mapcar #'seam-test-strip-testdir (seam-get-links-to-file (buffer-file-name qux))))))))
(ert-deftest seam-test-delete-note ()
- "Test that deleting a note also deletes its HTML and re-exports linking
-notes such that they no longer link to it."
+ "Test that deleting a note also deletes its HTML and re-exports
+linking notes such that they no longer link to it."
(should
(equal
'(nil ("html/foo.html" "public/foo.org"))
@@ -323,7 +324,8 @@ notes such that they no longer link to it."
(seam-test-list-files))))))
(ert-deftest seam-test-backlinks-public ()
- "Test that linking to a note from a public note creates a backlink."
+ "Test that linking to a note from a public note creates a
+backlink."
(should
(identity
(seam-test-with-notes ((seam-export-template-string "{{{backlinks}}}"))
@@ -382,8 +384,9 @@ backlink."
(buffer-string))))))
(ert-deftest seam-test-set-type-private ()
- "Test that setting a public note to private will delete its HTML file and
-update linking HTML files such that they no longer link to it."
+ "Test that setting a public note to private will delete its HTML
+file and update linking HTML files such that they no longer link
+to it."
(should
(equal
'(nil ("html/foo.html" "private/bar.org" "public/foo.org"))
@@ -489,7 +492,8 @@ it."
(buffer-name))))))
(ert-deftest seam-test-follow-link-new ()
- "Test that following a link to an nonexistent note creates and opens that note."
+ "Test that following a link to an nonexistent note creates and
+opens that note."
(should
(equal
'("bar" ("private/bar.org" "private/foo.org"))
@@ -534,7 +538,8 @@ and opens that note."
(seam-export--file-string "html/quotes-symbols.html")))))
(ert-deftest seam-test-custom-slug ()
- "Test that setting the SEAM_SLUG property saves and exports accordingly."
+ "Test that setting the SEAM_SLUG property saves and exports
+accordingly."
(should
(equal
'("html/c-vs-cpp.html" "public/c-vs-cpp.org")