From e41bb3a930fed58257ffcf1f0e82b10dedb1bbd4 Mon Sep 17 00:00:00 2001
From: Tom Willemsen <tom@ryuslash.org>
Date: Sat, 23 Mar 2013 20:52:49 +0100
Subject: [PATCH] Add remove command

Removes a bookmark from the database.
---
 lisp/clark.lisp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lisp/clark.lisp b/lisp/clark.lisp
index 2d55043..2a63b26 100644
--- a/lisp/clark.lisp
+++ b/lisp/clark.lisp
@@ -242,6 +242,15 @@ otherwise."
           (t (format t "~A~%" ldoc))))
       (call-command help '("help"))))
 
+(defcommand remove (:min-args 1 :max-args 1)
+    "Remove a bookmark from the database."
+    "Usage: clark remove <url>
+
+Remove URL from the database."
+  (clear-tags (car args))
+  (execute-non-query
+   *db* "DELETE FROM bookmark WHERE url = ?" (car args)))
+
 (defcommand search (:min-args 1 :max-args 1)
     "Search through bookmarks."
     "Usage: clark search <str>