From 612189139623bfc6cb45dadee3aeb0f8491d9fc7 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Wed, 12 Jun 2013 23:22:22 +0200
Subject: Check bookmark doesn't exist before inserting

The `add' command checks if the given url has been registered before and
if so will print a message about this.
---
 lisp/clark.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index bb28bb3..b84e360 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -196,9 +196,11 @@ bookmark."
 
 Add URL with NAME, DESCRIPTION and TAGS to the database. TAGS may be
 omitted or any number of tag names."
-  (with-transaction *db*
-    (insert-bookmark url name description)
-    (add-tags (last-insert-rowid *db*) tags)))
+  (if (not (bookmark-exists-p url))
+      (with-transaction *db*
+        (insert-bookmark url name description)
+        (add-tags (last-insert-rowid *db*) tags))
+      (format t "~A has already been bookmarked~%" url)))
 
 (defcommand edit (url &rest rest)
     "Edit a bookmark."
-- 
cgit v1.2.3-54-g00ecf