ryuslash/clark
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add remove command

Browse source 
Removes a bookmark from the database.
This commit is contained in:
Tom Willemsen 2013-03-23 20:52:49 +01:00
parent 280769a222
commit e41bb3a930
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/clark.lisp
View file

@ -242,6 +242,15 @@ otherwise."
(t (format t "~A~%" ldoc)))) (t (format t "~A~%" ldoc))))
(call-command help '("help")))) (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) (defcommand search (:min-args 1 :max-args 1)
"Search through bookmarks." "Search through bookmarks."
"Usage: clark search <str> "Usage: clark search <str>