diff options
Diffstat (limited to 'lisp/clark.lisp')
-rw-r--r-- | lisp/clark.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/clark.lisp b/lisp/clark.lisp index b84e360..4d7deea 100644 --- a/lisp/clark.lisp +++ b/lisp/clark.lisp @@ -285,6 +285,14 @@ Get a random bookmark. If TAG is given limit the result to a bookmark having the tag TAG." (format t "~a~%" (random-item (url-list tag)))) +(defcommand remove-tags (url &rest tags) + "Remove given tags from bookmark's tag list." + "Usage: clark remove-tags <url> [<tags> ...] + +Remove the given TAGS from URL's tag list. If no tags are given, +remove all tags from bookmark." + (delete-tags url tags)) + (defcommand version () "Show version." "Usage: clark version |