diff options
| author |  Tom Willemsen | 2013-03-23 20:52:49 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2013-03-23 20:52:49 +0100 |
| commit | e41bb3a930fed58257ffcf1f0e82b10dedb1bbd4 (patch) | |
| tree | 867db18e77a2fd5bc6730ca708d5bee6378039e1 | |
| parent | 280769a2221145a3c75ce40fad0e949a6f5ac124 (diff) | |
| download | clark-e41bb3a930fed58257ffcf1f0e82b10dedb1bbd4.tar.gz clark-e41bb3a930fed58257ffcf1f0e82b10dedb1bbd4.zip | |
Add remove command
Removes a bookmark from the database.
| -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> |