diff options
| -rw-r--r-- | lisp/clark.lisp | 8 |
1 files 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." |