diff --git a/src/gui/client/bookmark-window.lisp b/src/gui/client/bookmark-window.lisp index cf2cd13..fe779e7 100644 --- a/src/gui/client/bookmark-window.lisp +++ b/src/gui/client/bookmark-window.lisp @@ -15,10 +15,10 @@ (ev:with-enqueued-process-and-unblock () (comm:make-request :gemini-bookmark-add 1 iri section description) (gui-goodies:info-dialog toplevel - (format nil (_ "The address ~a has been bookmarked") iri))) + (format nil (_ "The address ~a has been bookmarked") iri)) + (gui:exit-from-toplevel toplevel)) (gui-goodies:error-dialog toplevel - (format nil (_ "~s is not a valid gemini address.") iri))) - (gui:exit-from-toplevel toplevel)))) + (format nil (_ "~s is not a valid gemini address.") iri)))))) (defun init-window (master iri) (gui:with-toplevel (toplevel :master master :title (_ "Streams"))