Commit Diff

Commit:
336bee9ca0449e41d9ad18fe1f3b8dcb50f3a89a
From:
Omar Polo <op@omarpolo.com>
Date:
Message:
add the line-eq generic function it's useful for the (future) tests being able to compare lines.
Actions:
Patch | Tree
commit - e9a5e4f6741fc27471ed075066c1358908ff9cf3
commit + 336bee9ca0449e41d9ad18fe1f3b8dcb50f3a89a
blob - 833f9c914807375d8490903fc8e5afeb655f1351
blob + 22a05411d994adea712f5106dcc02782fe2585e4
--- gemtext.lisp
+++ gemtext.lisp
@@ -121,3 +121,25 @@
 (defmethod unparse ((b blockquote) stream)
   (with-slots (text) b
     (format stream "> ~a~%" text)))
+
+(defgeneric line-eq (a b)
+  (:documentation "t if the lines A and B are equals.")
+  (:method-combination and))
+
+(defmethod line-eq and ((a element) (b element))
+  (and (eq (type-of a)
+           (type-of b))
+       (equal (slot-value a 'text)
+              (slot-value b 'text))))
+
+(defmethod line-eq and ((a title) (b title))
+  (eq (slot-value a 'level)
+      (slot-value b 'level)))
+
+(defmethod line-eq and ((a link) (b link))
+  (quri:uri-equal (slot-value a 'url)
+                  (slot-value b 'url)))
+
+(defmethod line-eq and ((a verbatim) (b verbatim))
+  (equal (slot-value a 'alt)
+         (slot-value b 'alt)))