diff options
| -rw-r--r-- | lisp/clark.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
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> |