- [GUI] prevented adding the same link to tour more than once.

src/gui/client/main-window.lisp

@@ -447,7 +447,12 @@
                (comm:make-request :tour-add-link
                                   1
                                   link-value
-                                  link-name)))
+                                  link-name)
+               (print-info-message (format nil
+                                           (_ "~a added to tour")
+                                           (if (string-not-empty-p link-name)
+                                               link-name
+                                               link-value)))))
            (download-background-callback ()
              (open-iri link-value main-window nil :status +stream-status-downloading+))
            (copy-link-callback ()

src/gui/server/main-window-server-side.lisp

@@ -39,10 +39,15 @@
 
 (defmethod add-tour-link ((object gemini-window) (link gemini-parser:gemini-link))
   (with-accessors ((links-tour links-tour)) object
+    (when (not (find link
+                     links-tour
+                     :test (lambda (a b)
+                             (string= (gemini-parser:target a)
+                                      (gemini-parser:target b)))))
       (a:reversef links-tour)
       (push link links-tour)
       (a:reversef links-tour)
-    object))
+      object)))
 
 (defmethod pop-tour-link ((object gemini-window))
   (with-accessors ((links-tour links-tour)) object