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

Add add-command

Browse source 
This command adds a new bookmark to the database and associates any
given tags with the bookmark, adding them, if necessary, as well.
This commit is contained in:
Tom Willemsen 2013-03-21 22:30:55 +01:00
parent 14aa128643
commit ca72ca30d0
1 changed files with 36 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
clark.lisp
View file

@ -8,13 +8,28 @@
(defconstant *version* "0.1.0" (defconstant *version* "0.1.0"
"Clark's version.") "Clark's version.")
(defun add-command (args)
"Add a new bookmark to the database."
(with-transaction *db*
(destructuring-bind (url name description &rest tags) args
(insert-bookmark url name description)
(add-tags tags))))
(defun add-tags (tags)
"Add tags to the bookmark_tag table and possibly to tag."
(let ((bookmark-id (last-insert-rowid *db*)))
(map nil (lambda (tag)
(let ((tag-id (handler-case (insert-tag tag)
(sqlite-error () (get-tag-id tag)))))
(insert-bookmark-tag bookmark-id tag-id))) tags)))
(defun check-db (name) (defun check-db (name)
"Connect to the database, possibly creating it." "Connect to the database, possibly creating it."
(let ((db-exists (probe-file name))) (let ((db-exists (probe-file name)))
(setf *db* (connect name)) (setf *db* (connect name))
(unless db-exists (unless db-exists
(execute-non-query *db* "CREATE TABLE bookmark (url VARCHAR(255) UNIQUE, date INTEGER, name VARCHAR(255), description TEXT)") (execute-non-query *db* "CREATE TABLE bookmark (url VARCHAR(255) UNIQUE, date INTEGER, name VARCHAR(255), description TEXT)")
(execute-non-query *db* "CREATE TABLE tag (name VARCHAR(255) UNIQUE);") (execute-non-query *db* "CREATE TABLE tag (name VARCHAR(255) UNIQUE)")
(execute-non-query *db* "CREATE TABLE bookmark_tag (bookmark_id INTEGER REFERENCES bookmark(rowid), tag_id INTEGER REFERENCES tag(rowid), PRIMARY KEY (bookmark_id, tag_id))")))) (execute-non-query *db* "CREATE TABLE bookmark_tag (bookmark_id INTEGER REFERENCES bookmark(rowid), tag_id INTEGER REFERENCES tag(rowid), PRIMARY KEY (bookmark_id, tag_id))"))))
(defun get-bookmarks () (defun get-bookmarks ()
@ -29,6 +44,10 @@ The result contains the url and the name of the bookmark."
(statement-column-value statement 1)) (statement-column-value statement 1))
finally (finalize-statement statement)))) finally (finalize-statement statement))))
(defun get-tag-id (name)
"Get the rowid of tag NAME."
(execute-single *db* "SELECT rowid FROM tag WHERE name = ?" name))
(defun help-command (args) (defun help-command (args)
"Show a help message." "Show a help message."
(format t (concatenate (format t (concatenate
@ -37,9 +56,25 @@ The result contains the url and the name of the bookmark."
"~%" "~%"
"Possible commands:~%" "Possible commands:~%"
"~%" "~%"
"add Add a bookmark to the database~%"
"help Display this help and exit~%" "help Display this help and exit~%"
"version Output version information and exit~%"))) "version Output version information and exit~%")))
(defun insert-bookmark (url name description)
"Insert URL, NAME and DESCRIPTION into the bookmark table."
(execute-non-query *db* "INSERT INTO bookmark VALUES (?, ?, ?, ?)"
url name (get-universal-time) description))
(defun insert-bookmark-tag (bookmark-id tag-id)
"Insert BOOKMARK-ID and TAG-ID into the bookmark_tag table."
(execute-non-query *db* "INSERT INTO bookmark_tag VALUES (?, ?)"
bookmark-id tag-id))
(defun insert-tag (name)
"Insert tag NAME into the database and return its rowid."
(execute-non-query *db* "INSERT INTO tag VALUES (?)" name)
(last-insert-rowid *db*))
(defun make-command-name (base) (defun make-command-name (base)
"Turn BASE into the name of a possible command." "Turn BASE into the name of a possible command."
(intern (concatenate 'string (string-upcase base) "-COMMAND") (intern (concatenate 'string (string-upcase base) "-COMMAND")